Найдите значение функции - Pascal ABC

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

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

Найдите значение функции У

Решение задачи: «Найдите значение функции»

textual
Листинг программы
program pr;
var
  y: real;
  x, z: integer;
begin
  writeln('Введите значение x');
  readln(x);
  writeln('Введите значение z');
  readln(z);
  if x < -1 then
    y := (abs(x * x + 4)) / (2 * x - z);
  if x >= -1 then
    y := (z - x) * (z - x);
  writeln('y= ', y);
end.

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

  1. В программе объявлены три переменные: y, x и z.
  2. Программа запрашивает у пользователя значения x и z с помощью функции readln.
  3. В блоке if проверяется значение переменной x. Если x меньше -1, то вычисляется значение y по формуле abs(xx+4)/(2x-z). Если x больше или равно -1, то вычисляется значение y по формуле (z-x)*(z-x).
  4. Значение переменной y выводится на экран с помощью функции writeln.

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

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