Паскаль информатика: Для заданного Х вычислить значение функции:
Y= 2X^2 если X=1;
Y= 100 если x=2,3,4;
Y= кв. корень из X. если X=5
Y= 2X^2 если X=1;
Y= 100 если x=2,3,4;
Y= кв. корень из X. если X=5
сделай по аналогии
program fun;
uses crt; //y = x^2, x<=2
var i:integer; //y -x-1, x>2
y,x,max,min,sred,otric:real; // 1.1 < x < 4.2
mas:array[1..11] of real;
BEGIN
clrscr;
writeln('vichislenie funkcii');
writeln('---------------------');
writeln;
writeln('----------------');
writeln(' x y');
writeln('----------------');
x:=1.1;
i:=1;
repeat
if x<=2 then mas:=x*x
else
mas:=-x-1;
writeln(x:6:2,mas:7:2);
x:=x+0.3;
i:=i+1;
until x >4.2;
writeln('----------------');
writeln;
max:=mas[1];
for i:=2 to 11 do
if mas>max then max:=mas;
writeln('max= ',max:6:2);
min:=mas[1];
for i:=2 to 11 do
if mas
writeln('min= ',min:6:2);
sred:=(max + min)/2;
writeln('srednearifmeticheskoe= ',sred:6:2);
for i:=11 downto 1 do
if mas<0 then otric:=mas;
writeln('pervaya funkciya <0 = ',otric:6:2);
writeln('konec zadachi');
readkey;
END.