Вывод и вычисление выражения - PascalABC.NET
Формулировка задачи:
Составить программу, которая выводит меню и при нажатии нужной цифры вычисляет соответствующее выражение:
Решение задачи: «Вывод и вычисление выражения»
textual
Листинг программы
begin var (x, n) := (ReadlnInteger('X ='), 0); while (n < 1) or (n > 3) do begin writelnformat('1 - x^3 + x{0}2 - (x + 1)^2{0}3 - (x + 4)^0.5', NewLine); n := ReadlnInteger('Введите число:'); case (n) of 1: writeln('Y = ', x * x * x + x); 2: writeln('Y = ', 2 - (x + 1) * (x + 1)); 3: writeln('Y = ', sqrt(x + 4)); end; end; end.
Объяснение кода листинга программы
- Сначала программа запрашивает у пользователя ввести число для переменной
x
и сохраняет его в переменнойn
. - Затем программа проверяет, находится ли значение
n
в диапазоне от 1 до 3 с помощью цикла while. - Внутри цикла while программа выводит на экран формулу
1 - x^3 + x^2 - (x + 1)^2
и запрашивает у пользователя ввести число. - После получения числа программа проверяет его значение с помощью оператора case.
- Если пользователь ввел число 1, программа выводит на экран значение
Y = x * x * x + x
. - Если пользователь ввел число 2, программа выводит на экран значение
Y = 2 - (x + 1) * (x + 1)
. - Если пользователь ввел число 3, программа выводит на экран значение
Y = sqrt(x + 4)
. - Если пользователь ввел число, которое не равно 1, 2 или 3, программа продолжает запрашивать у пользователя вводить числа, пока не получит допустимое значение.