Question

Составить блок-схему алгоритма. Определить тип алгоритма. Составить программу на языке программирования Паскаль.

Answer 1

const

 e = 2.718;

var

 y, x: real;

begin

 writeln('Введите значение x:');

 write('x = ');

 read(x);

 if x = 2 then

 begin

   y := e * e * e * e;

   writeln('y = ', y:0:3);

 end

 else

 begin

   if (x < 2) then

     y := 4 * x * x - 7;

   if (x > 2) then

     y := abs(x - 1);

   writeln('y = ', y);

 end;

end.