Составить на алгоритмическом языке PASCAL программу вычисления значений функции:
Z = ( x² — 4x + 8,1)d
Пределы изменения х: [0;1]
Шаг в цикле: 0,07
Используемый оператор в цикле: FOR

Ответ учителя по предмету Информатика

Так… Тут не получится включительно 1, ибо шаг не делится нацело… Но 0,98) Вот, лови))

var

  Z, x, d: real;

  i: integer;

begin

  writeln(‘Enter d:’);

  readln(d);

 

  for i := 0 to trunc(1 / 0.07) do

  begin

    x := 0.07 * i;

    Z := (sqr(x) — 4 * x + 8.1) * d;

    writeln(‘Z(‘, x:1:2, ‘, ‘, d, ‘) = ‘, Z);

  end;

end.