Вывод и вычисление выражения - 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.

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

  1. Сначала программа запрашивает у пользователя ввести число для переменной x и сохраняет его в переменной n.
  2. Затем программа проверяет, находится ли значение n в диапазоне от 1 до 3 с помощью цикла while.
  3. Внутри цикла while программа выводит на экран формулу 1 - x^3 + x^2 - (x + 1)^2 и запрашивает у пользователя ввести число.
  4. После получения числа программа проверяет его значение с помощью оператора case.
  5. Если пользователь ввел число 1, программа выводит на экран значение Y = x * x * x + x.
  6. Если пользователь ввел число 2, программа выводит на экран значение Y = 2 - (x + 1) * (x + 1).
  7. Если пользователь ввел число 3, программа выводит на экран значение Y = sqrt(x + 4).
  8. Если пользователь ввел число, которое не равно 1, 2 или 3, программа продолжает запрашивать у пользователя вводить числа, пока не получит допустимое значение.

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

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