Решение простейшего уравнения: программа закрывается при повторном вводе данных - 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.
Объяснение кода листинга программы
- Программа начинается с объявления трех переменных: x, y и c.
- Переменная x объявлена как real, т.е. действительное число, и используется для хранения значения, введенного пользователем.
- Переменная y также объявлена как real и используется для хранения результата вычисления.
- Переменная c объявлена как char и используется для хранения символа, введенного пользователем.
- Программа использует цикл repeat для повторного выполнения блока кода.
- Внутри цикла выводится приглашение для ввода значения x.
- Значение x считывается с помощью функции readln.
- Если значение x не равно 8.25, то выполняется блок кода, который вычисляет значение y и выводит его на экран.
- Если значение x равно 8.25, то выводится сообщение
НИД
. - Выводится приглашение для ввода символа c.
- Символ c считывается с помощью функции readln.
- Блок кода выполняется до тех пор, пока символ c не будет равен
Y
(заглавная буква). - Значение c сравнивается со
Y
с использованием функции upcase. - Когда значение c становится равным
Y
, цикл прекращается и программа завершается. - Значение y выводится на экран с точностью до 5 знаков после запятой.
- Значение x выводится на экран.
- Значение c выводится на экран.
- Значение y выводится на экран.
- Значение x выводится на экран.
- Значение c выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д