Question

Выведите значение функции:
F = 2/(1-4x), где х изменяется на отрезке от а = 2.0 до b = -1.2 с шагом -0.2

Answer 1

var a, b, c: real;

begin

   a := 2; b := -1.2; c := -0.2;

   while a > b do

   begin

       writeln((2 / (1 - 4 * a)):0:3);

       a += c;

   end;

end.