помогите решить задачу на последовательность

[graf333]

http://www.programmersforum.ru/attac...1&d=1223189254

[Sibedir]

А в чем, собственно, проблема? А то не понятно, надо помочь или за вас сделать?

[graf333]

помочь как записать последовательность и как её с числом е связать

[Sibedir]

Короче, решить за вас задачу.
Последовательность - это массив (a: array [1..100] of Real)
Как записать: организовать цикл и a[i] := 1 / i;
Как её с числом е связать: if Abs (a[i] - a[i-1]) < e then ...

[puporev]

Последовательность - это массив (a: array [1..100] of Real)

Абсолютно неверное утверждение. Если последовательность не ограчинена по количеству элементов, как в данном случае, то ни в какой массив Вы ее не загоните, да и зачем лишняя переменная?
Цикл

i:=1;a:=1/i;         {начальные значения}
while abs(a-ai)>=e do
   begin
     a:=ai;    {a присваиваем значение вычисленного ai}
     ai:=1/i;  {вычисляем новое значение ai}
     inc(i); {увеличиваем счетчик на 1}
   end;

решает все проблемы.
Остается только вывести результат с контролем.

write('a=',a:0:5,'  ai=',ai:0:5,'  |a-ai|=',abs(a-ai):0:5);

[Sibedir]

puporev, я перкрасно понимаю, что мой ответ не является готовым решением, но я к этому и не стремился. Человек спросил

как записать последовательность

Я ответил. Хотя для решения задачи этого и не нужно, но пусть топикстартер сам дотумкивает.
А в остальном в вашем примере присутствует и цикл и условие. Только вот вы это все сами до ума довели.Задача слишком простая, что бы разжовывать ее. Я просто хотел, чтобы graf333 немного напряг мозги.
graf333, в следующий раз ни у кого из форумчан может не оказаться свободного времени. Так что не надо выставлять свою лень на показ. Такие простые задачи способен решить даже 5-клашка.