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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2011, 18:02   #1
tracer
Пользователь
 
Регистрация: 10.05.2011
Сообщений: 30
По умолчанию создание программ с использованием циклов

Дано натуральное число n. Необходимо получить последовательность Фиббоначи с n чисел: каждое последующее число равно сумме двух предыдущих чисел.
tracer вне форума Ответить с цитированием
Старый 10.05.2011, 18:31   #2
Swarog
Форумчанин
 
Аватар для Swarog
 
Регистрация: 26.01.2010
Сообщений: 215
По умолчанию

Код:
function Fibona44i(n: byte): double;
begin
  if ((n=1)or(n=2)) then
    Result := 1
  else
    // двойной рекурсивный вызов:
    // память расходуется катастрофически
    Result := Fibona44i(n-1)+Fibona44i(n-2);
end;
Могу лишь пнуть в нужном направлении (ну или как получится)
Swarog вне форума Ответить с цитированием
Старый 10.05.2011, 18:35   #3
Swarog
Форумчанин
 
Аватар для Swarog
 
Регистрация: 26.01.2010
Сообщений: 215
По умолчанию

Код:
lastv := 1;
lastlastv := 1;
if n >= 1 then writeln (1);
if n >= 2 then writeln (1);
for i := 3 to n do
 begin
  lastlastv := lastv;
  lasv := lastlastv + lastv;
  writeln(lastv);
 end
Могу лишь пнуть в нужном направлении (ну или как получится)
Swarog вне форума Ответить с цитированием
Старый 10.05.2011, 19:29   #4
tracer
Пользователь
 
Регистрация: 10.05.2011
Сообщений: 30
По умолчанию

спасибо большое
tracer вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование циклов с использованием оператора WHILE Yuliyanna Паскаль, Turbo Pascal, PascalABC.NET 11 25.04.2011 02:25
программы с наглядным использованием циклов beygul Свободное общение 8 10.04.2010 05:22
Обработки многомерных массивов с использованием циклов. DanielDefo Паскаль, Turbo Pascal, PascalABC.NET 3 01.04.2010 16:18
с использованием вложенных циклов вкусняшка Помощь студентам 4 31.03.2009 17:22
Программы с использованием операторов ветвления и циклов Vitas1234 Помощь студентам 1 11.06.2008 17:41