Решение простейшего уравнения: программа закрывается при повторном вводе данных - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Мне сказали задать оператор вывода, но не знаю, как его сделать! Уснул на этой лекции. Суть в том, что число выводится в виде:" число.число(буква)+набор чисел(буква) " А требуется вывод 1 точным числом. Уравнение: Y=8-x3 / 8.25 - х Мой код. Который на ПР работал(В смысле ввода), а дома отказывается.
Program work;
var x,y: real;
begin
writeln ('Введите X');
readln(x);
if x() then begin y:=(8-sqr(x)*x)/(8.25-x);
writeln('y=' ,y:2:5);
readln();
end
else
writeln('НИД');
readln();
end.
Прошу ваш код и мои ошибки.

Решение задачи: «Решение простейшего уравнения: программа закрывается при повторном вводе данных»

textual
Листинг программы
Program work;
var x,y: real;
    c:char;
begin
repeat
writeln ('Введите X');
readln(x);
if x<>8.25 then
 begin
  y:=(8-x*x*x)/(8.25-x);
  writeln('y=' ,y:0:5);
 end
else writeln('НИД');
writeln('Повторить? Y/y');
readln(c);
until upcase(c)<>'Y';
end.

Объяснение кода листинга программы

  1. Программа начинается с объявления трех переменных: x, y и c.
  2. Переменная x объявлена как real, т.е. действительное число, и используется для хранения значения, введенного пользователем.
  3. Переменная y также объявлена как real и используется для хранения результата вычисления.
  4. Переменная c объявлена как char и используется для хранения символа, введенного пользователем.
  5. Программа использует цикл repeat для повторного выполнения блока кода.
  6. Внутри цикла выводится приглашение для ввода значения x.
  7. Значение x считывается с помощью функции readln.
  8. Если значение x не равно 8.25, то выполняется блок кода, который вычисляет значение y и выводит его на экран.
  9. Если значение x равно 8.25, то выводится сообщение НИД.
  10. Выводится приглашение для ввода символа c.
  11. Символ c считывается с помощью функции readln.
  12. Блок кода выполняется до тех пор, пока символ c не будет равен Y (заглавная буква).
  13. Значение c сравнивается со Y с использованием функции upcase.
  14. Когда значение c становится равным Y, цикл прекращается и программа завершается.
  15. Значение y выводится на экран с точностью до 5 знаков после запятой.
  16. Значение x выводится на экран.
  17. Значение c выводится на экран.
  18. Значение y выводится на экран.
  19. Значение x выводится на экран.
  20. Значение c выводится на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы