Регистрация
zaventerharut
10.04.2021 21:30
Информатика
Есть ответ 👍

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

215
344
Посмотреть ответы 2

Ответы на вопрос:

UlianaLaruonova
UlianaLaruonova
4,5(98 оценок)

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.

2006Liora
2006Liora
4,6(6 оценок)
Var i,sum: integer; begin for i: =4 to 100 do     begin          sum: =sum+i;           writeln('summa#',i,'=',sum);     end; end.

Популярно: Информатика