Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 05.10.2008, 09:50   #1
graf333
Новичок
Джуниор
 
Регистрация: 04.10.2008
Сообщений: 2
По умолчанию помогите решить задачу на последовательность

http://www.programmersforum.ru/attac...1&d=1223189254
Изображения
Тип файла: jpg Безымянный.jpg (9.7 Кб, 154 просмотров)
graf333 вне форума Ответить с цитированием
Старый 05.10.2008, 10:40   #2
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,261
По умолчанию

А в чем, собственно, проблема? А то не понятно, надо помочь или за вас сделать?
Sibedir вне форума Ответить с цитированием
Старый 05.10.2008, 10:47   #3
graf333
Новичок
Джуниор
 
Регистрация: 04.10.2008
Сообщений: 2
По умолчанию

помочь как записать последовательность и как её с числом е связать
graf333 вне форума Ответить с цитированием
Старый 05.10.2008, 11:02   #4
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,261
По умолчанию

Короче, решить за вас задачу.
Последовательность - это массив (a: array [1..100] of Real)
Как записать: организовать цикл и a[i] := 1 / i;
Как её с числом е связать: if Abs (a[i] - a[i-1]) < e then ...
Sibedir вне форума Ответить с цитированием
Старый 05.10.2008, 11:15   #5
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Цитата:
Последовательность - это массив (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);
puporev вне форума Ответить с цитированием
Старый 05.10.2008, 12:04   #6
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,261
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу... SlipKorn Microsoft Office Excel 4 25.09.2008 10:23
Помогите решить задачу Vegus Общие вопросы C/C++ 1 07.05.2008 16:49
Помогите решить задачу. Кронос Помощь студентам 3 28.10.2007 14:11


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS