Вроде бы простая задача на одномерный массив Опции

[Dark Vova]

Доброе время суток! Помогите пожалуйста разобраться.. Дана задача:
Сформируйте и выведите на экран массив из n элементов, где каждый элемент массива равен разнице первого и предыдущего элемента, деленной на порядковый номер элемента.
Решение, по идее, должно выглядеть так:

Uses Crt;
var
 i,n:integer;
 x:array [1..100] of real;
begin
 ClrScr;
 ReadLn(n);
 For i:=1 to n do
  ReadLn(x[i]);
 For i:=2 to n do
  begin
   x[i]:=(x[1]-x[i-1])/i;
   WriteLn(x[i]:5:2); 
  end;
 ReadKey;
end.

Но если запустить программу, то она выдаст неверный результат. Но это ещё не всё.
Если записать формулу в команде WriteLn:

 
For i:=2 to n do
 WriteLn((x[1]-x[i-1])/i:5:2);

то программа всё верно подсчитает.
В чём же ошибка?

[klem4]

Последовательность cтроится автоматически, все что тебе нужно ввести - первые 2 элемента.

write('x[1] = '); readln(x[1]);
  write('x[2] = '); readln(x[2]);

  for i := 3 to n do
   x[i] := (x[1] - x[i - 1]) / i;

[Dark Vova]

klem4 Спасибо! Но на примере опять ошибка...
Если мы введем 4 числа: 9, 8, 7, 6 - то конечный массив (пока без деления, чтобы нагляднее было) по идее должен выглядеть как "9, 8, 1, 2". А паскаль выдаёт такой результат: "9, 8, 1, 8".
То бишь он первое действие да, делает как надо, то есть вычитает 9 - 8 = 1. а потом он же должен вычитать 9 - 7 = 3, а выдает 8..

Сообщение отредактировано: Dark Vova - 5.03.2007 22:59

[klem4]

Для 9, 8, 7, 6 результат должен быть такойже как и для 9, 8 то есть:

9, 8, (9-8)/3, [9 - (9 - 8)/3] / 4

тобишь

9, 8, ~0.3, ~2.1

ты забываешь о

каждый элемент массива равен разнице первого и предыдущего элемента, деленной на порядковый номер элемента.

[Dark Vova]

klem4 Спасибо, что помог разобраться! Забыл, что элементы-то заменяются.. Значит моя программа тоже верна. Ещё раз спасибо!