Составить блок схему вычисления выражения

staveugene

Составить блок схему и программу на языке программирования Паскальy(x) =x2 ln x, 1 <= x <=2 1, x<1 e*cosx, x>2
1 ответ

staveugene

Uses CRT;
Var x,y:real;
begin
 readln(x);
 if (x>=1) and (x<=2) then y:=x*x*ln(x)
 else if x<1 then y:=1
 else y:=exp(1)*cos(x);
 writeln('Y(x):=',y:0:3);
 readln
end.