Написать программу в Delphi 7, содержащую цикл для вычисления функции[latex]y=A_n*X^n+A_(_n_-_1_)*X^(^n^-^1^)+...+A_1*X+A_0[/latex]если n=10, A0=0.75, A1=1.6, A2=A3=...=A10=2.0; X изменяется с шагом h=0.2 от X1=0 дo X2=2.0.
Написать программу в Delphi 7, содержащую цикл для вычисления функции
[latex]y=A_n*X^n+A_(_n_-_1_)*X^(^n^-^1^)+...+A_1*X+A_0[/latex]
если n=10, A0=0.75, A1=1.6, A2=A3=...=A10=2.0; X изменяется с шагом h=0.2 от X1=0 дo X2=2.0.
Гость
Ответ(ы) на вопрос:
Гостьconst
a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2);
var
x, h, x1, x2: real;
function F(x: real): real;
var
i: integer;
x_n, res : real;
begin
res := a[1];
x_n := 1;
for i := 1 to 10 do
begin
x_n := x_n * x;
res := res + a[i + 1] * x_n;
end;
F := res;
end;
begin
x1 := 0; x2 := 2;
h := 0.2;
x := x1;
repeat
writeln('x = ', x:3:1, ' y = ', F(x):9:3);
x := x + h;
until x > x2;
end.
Не нашли ответ?
Похожие вопросы