01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 2 лабораторка / лабораторная работа № 2 задание 1

1. дано действительное число а. Для функции у =f (x), график которой приведен на рисунке, вычислить y= f (a).

Y

• Текс программы

Program number 1;

var

A, y: real;

begin

readln (a);

if a>=3 then y:=2

else if a<1 then y:=-2

else y:=sqr(a-1)-2;

writeln(y:3:2);

readln;

end.

• Исходные данные: 2;1; Результат: -1.00; -2.00

• 

  да

  нет

  да

  нет

  Блок-схема