|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2008, 19:53 | #1 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
на числа Фибоначчи, вайл репит
Определить, минимальное количество чисел Фибоначчи, на-чиная с F0, которые нужно вычесть из некоторого наперед заданного А, чтобы результат стал меньше 0,05А
Числа Фибоначчи определяются формулами F0=F1=1 Fn=Fn-1+Fn-2 n=2. 3... |
24.12.2008, 21:22 | #2 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
ребят каму не сложно помогите пожалуйста
|
24.12.2008, 21:45 | #3 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
думаю что так :
uses crt;
var f0,f1,f2,kol,a,b:integer; begin clrscr; write(' vvedite A -> '); readln(a); writeln; writeln; b:=a; kol:=0; f1:=1; f0:=1; while b>0.05*a do begin b:=b-f0; f2:=f1+f0; f0:=f1; f1:=f2; inc(kol); end; writeln; writeln(kol); readln; end.
@(o_0)@
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуста сделать задачу через ваил и репит | Liver | Помощь студентам | 2 | 16.12.2008 15:35 |
Помогите пожалуста сделать задачу через ваил и репит | Liver | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 16.12.2008 11:49 |
расчет числа фибоначчи | tro | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.12.2007 11:52 |
Числа Фибоначчи | sher_man | Помощь студентам | 9 | 20.10.2007 18:45 |
эти ужасные числа фибоначчи!!! | галя | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 24.12.2006 20:23 |