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

Question

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

Гость

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

Accepted Answer

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.