Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 66130
08.12.2006, 17:34
0.00 руб.
0 4 1
Компьютеры Программирование
Здравствуйте! как мне решить такую задачу?
Числа Фибоначчи определяются соотношением F_(o)=F_(1)=1; F_(n)=F_(n-1) + F _(n-2). Составить программу поиска первого числа Фибоначчи (и его номера), большего заданного m
Заранее благодарна!

Обсуждение

Неизвестный
08.12.2006, 17:57
общий
это ответ
Здравствуйте, Олюшка!
Было скучно решил ответить....

Смотрите пример....

Удачи!!!

Приложение:
var f:array[0..2] of integer; m:integer;begin f[0]:=1; f[1]:=1; readln(m); repeat f[2]:=f[0]+f[1]; f[0]:=f[1]; f[1]:=f[2]; until f[2]>m ; writeln(‘m=‘,m,‘ f=‘,f[2]); readln;end.
Неизвестный
08.12.2006, 18:20
общий
О! Самому лень было бы написать, а тут готовый код — только чуть-чуть напильничком его доработать =)<pre>var f:array[0..2] of <b>longint</b>; m<b>,n</b>:integer;begin <b>n:=2;</b> f[0]:=1; f[1]:=1; readln(m); f[2]:=f[0]+f[1]; while f[2]:=f[0]+f[1]; f[0]:=f[1]; f[1]:=f[2]; <b>inc(n);</b> until <b>(</b>f[2]>m<b>)</b>; writeln(‘<b>f[‘,n,‘]</b>=‘,f[2]); readln;end.</pre>
Неизвестный
08.12.2006, 18:35
общий
ой, спасибки, огромное))) прям большущее)))
Неизвестный
10.12.2006, 11:16
общий
Вот как выглядит програмка) Спасибо, всем кто мне помогал)))program fibonachy;varf: array [0..2] of integer;m: integer;nomer: integer;beginf[0]:=1;f[1]:=1;nomer:=-1;writeln (‘Введите число m’);write (‘Число m=’);readln (m);repeatinc (nomer);f[2]:=f[0] + F[1];f[0]:=f[1];f[1]:=f[2];until f[2]>m;writeln (‘Номер числа Фибоначчи’);writeln (‘номер =’,nomer);writeln (‘Число Фибоначчи, больше заданного m’);write (‘f=’,f[2]);readln;end.
Форма ответа