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.

Answer 1

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.