VPF::Помогите с реш-ем легкой задачи

ruslan55

Дата 4.6.2008, 23:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Задание такое:В последовательности Фибоначчи первые два члена равны единице, а все последующие — сумме двух предыдущих. Напишите программу, находящую определенный член последовательности (номер искомого члена задается в виде аргумента или вводится с клавиатуры).

спасибо заранее

mr.Anderson

Дата 5.6.2008, 00:07 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

Называй темы нормально, пожалуйста.

Не проверял код (дельфы нет), но идея правильная.

Код


program Fibonacci;
var
 i : Integer;
 a : Array [1..100] of Integer; //100 чисел, поставь больше, если надо
begin
 a[0] := 1;
 a[1] := 1;

 for i:=3 to 100 do
  a[i] = a[i-2] + a[i-1];

 readln( i );

 writeln( a[i] );
end.

--------------------

mr.Anderson

Дата 5.6.2008, 00:27 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

Апдейт. Немножко усовершенствуем прогу для более шустрой работы. + Багфикс.

Код


program Fibonacci;
const
 max = 1000; //1000 чисел, поставь больше, если надо
var
 i : Integer;
 n : Integer;
 a : Array [1..max] of Integer;
begin
 a[1] := 1;
 a[2] := 1;

 readln( n );

 if( n > max ) then
  exit;

 for i:=3 to n do
  a[i] = a[i-2] + a[i-1];

 writeln( a[n] );
end.

Это сообщение отредактировал(а) mr.Anderson - 5.6.2008, 00:29

--------------------

ruslan55

Дата 5.6.2008, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

получается что любой член будет равен 1?

Snowy

Дата 5.6.2008, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Модератор: Название темы должно отражать ее суть!

Правила форума: http://forum.vingrad.ru/index.php?act=boardrules

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »