Question

составить на алгоритмическом языке PASCAL программу вычисления значений функции

ВАРИАНТ 3

Answer 1

var z,d,x:real;

i:integer;

begin

 writeln('введите d');

 readln(d);

 x:=0.1;

 for I:= 1 to 7 do

 begin

   z:=(x*x-4*x+8.1)*d;

   writeln('z=',z,' при x=',x);

   x:=x+0.15

 end;

end.