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

Question

Информатика

Аленя

2 января, 19:57

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

+3

Ответы (1)

Знаете ответ?

Мотя · 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.