Распечатать значения функций f1(x)=3х3+2 и f2(x)=x 2+2, пока не будет достигнуто пересечение их графиков. Начальное значение х=-2 и изменяется с шагом 0.01..
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад