Распечатать значения функций f1(x)=3х3+2 и f2(x)=x 2+2, пока не ...

Question

Распечатать значения функций f1(x)=3х3+2 и f2(x)=x 2+2, пока не ...

Дмитрий

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

Есть ответ

17.12.2022

400

Ответ

Answer 1 · 17.12.2022

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.

Распечатать значения функций f1(x)=3х3+2 и f2(x)=x 2+2, пока не ...

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

Ответ

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.

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.