(35 ) доработать программу на pascal так, чтобы она - вопрос №1008178835 от lera1059 31.05.2020 16:49

Question

Информатика: (35 ) доработать программу на pascal так, чтобы она выполняла вычисления 3 раза с разными исходными данными, используя оператор цикла for. var x,f: real; begin write( введите значение x= ); readln(x); if x 3 then f: =-3*x+9 else f: =sqr(x)*x/(sqr(x)+8); writeln( f( ,x: 5: 3, )= , f: 5: 3); end.

lera1059 · Answer

var x,F: real;

i: integer; //вводим переменную-счетчик для цикла for

begin

for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза

begin //начало цикла

Write('введите значение x= ');

readln(x);

if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);

Writeln('F(',x:5:3,')= ', F:5:3);

end; //конец цикла

end.