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