Вычисление значения функции при разных 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.

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

  1. Ввод значений x, y с помощью функции readln.
  2. Переменная k инициализируется значением 0.
  3. Если y меньше 2, то проверяется, является ли x+y меньше 0. Если это так, то k принимает значение 1. Если нет, то вычисляется значение f как квадратный корень из (x+y).
  4. Если y больше или равно 5, то вычисляется значение f как квадрат (x+y).
  5. Если y меньше 2 и x+y не меньше 0, то k принимает значение 1.
  6. Если k равно 1, то выводится сообщение о том, что значение функции не определено.
  7. Если k не равно 1, то выводится значение f.

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

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