Написать программу в Delphi 7, содержащую цикл для вычисления функции
y=A_n*X^n+A_(_n_-_1_)*X^(^n^-^1^)+...+A_1*X+A_0
если n=10, A0=0.75, A1=1.6, A2=A3=...=A10=2.0; X изменяется с шагом h=0.2 от X1=0 дo X2=2.0.

1

Ответы и объяснения

Лучший Ответ!
2013-11-11T01:41:48+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.

какя именно строчка и каккая именно ошибка? кстати какая версия паскаля?
возможно ему перед until точка с запятой не нравится
writeln('x = ', x:3:1, ' y = ', F(x):9:3); вот в этой строчке выдает ошибку
убери форматирование наверно
спасибо теперь все работает