Вычисление значения функции при разных y - Pascal ABC
Формулировка задачи:
Добрый день , помогите решить задачу.
Не пойму как дальше написать,чтобы выполнить задание
Решение задачи: «Вычисление значения функции при разных y»
textual
Листинг программы
uses crt; var x,y,f: real; k: byte; begin {Вводим значения x,y} writeln('Введите x,y'); readln(x,y); k:=0; if y<2 then if x+y<0 then k:=1 else f:=sqrt(x+y) else if y>=5 then f:=sqr(x+y) else k:=1; if k=1 then writeln('Значение функции не определено') else writeln('f(x,y)=',f:0:2); end.
Объяснение кода листинга программы
- Ввод значений x, y с помощью функции readln.
- Переменная k инициализируется значением 0.
- Если y меньше 2, то проверяется, является ли x+y меньше 0. Если это так, то k принимает значение 1. Если нет, то вычисляется значение f как квадратный корень из (x+y).
- Если y больше или равно 5, то вычисляется значение f как квадрат (x+y).
- Если y меньше 2 и x+y не меньше 0, то k принимает значение 1.
- Если k равно 1, то выводится сообщение о том, что значение функции не определено.
- Если k не равно 1, то выводится значение f.