Паскаль, числа Фибоначчи.

Ответить
Ramon
Сообщения: 11
Зарегистрирован: 13 окт 2008, 17:44

Найти первое число Фибоначчи большее некоторого заданного числа M, а также номер n этого числа.

для справки: число Фибоначчи определяется формулой f(n)=f(n-1)+f(n-2)
где f(0)=1, f(1)=1
подробнее здесь:
http://ru.wikipedia.org/wiki/Числа_Фибоначчи

Заранее спасибо!
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

a:=1;
b:=1;
n:=2;
c:=0;
while c<M do
begin
c;=a+b;
a:=b;
b:=c;
inc(n);
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

тема рассматривалась в Алгоритмах.
Числа Фибоначчи
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Ответить