Question

Распечатать значения функций f1(x)=3х3+2 и f2(x)=x 2+2, пока не будет достигнуто пересечение их графиков. Начальное значение х=-2 и изменяется с шагом 0.01..

Answer 1

var

  x, f1, f2:real;

begin

  writeln('       x      f1(x)      f2(x)');

  x := -2;

  repeat

    f1 := 3 * x * x * x + 2;

    f2 := x * x + 2;

    writeln(x:10:2, f1:10:4, f2:10:4);

    x := x + 0.01;

  until f1 = f2;

end.