|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.12.2008, 23:21 | #1 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
ЦИКЛЫ БЕЗ ПАРАМЕТРА
Числа Фибоначчи определяются формулами F0=F1=1 Fn=Fn-1+Fn-2 n=2. 3...
Вывести на экран первое число Фибоначчи, большее некоторого наперед заданного числа А, и число Фибоначчи, стоящее перед ним |
12.12.2008, 21:46 | #2 |
Пользователь
Регистрация: 25.11.2008
Сообщений: 31
|
Program Phibon;
uses CRT; const N = 32; var Arr: Array[1..N] of Longint; Sum: Longint; i : Integer; Begin { Очищаем экран } ClrScr; { Заполняем массив и считаем сумму } Arr[1] := 1; Arr[2] := 1; Sum := Arr[1] + Arr[2]; for i := 3 to N do begin Arr[i] := Arr[i-1] + Arr[i-2]; Sum := Sum + Arr[i]; end; { Выводим массив на экран } WriteLn('Числа Фибоначчи:'); for i := 1 to N do begin Write(Arr[i]: 8); if i mod 8 = 0 then WriteLn; end; WriteLn; WriteLn; WriteLn('Сумма ряда: ', Sum); { Ждём нажатия любой клавиши } Repeat Until KeyPressed; End. может поможет,я просто почти не шарю^__^ |
14.12.2008, 10:55 | #3 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
спасибо конечно но мне как нить попроще,
1. Использовать только простые типы данных. 2. В задании х, А и В - вещественные числа, К - натуральное. 3. Задание реализовать в двух вариантах: для организации циклов использовать оператор а) WHILE; б) REPEAT. |
14.12.2008, 11:21 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Уже обсуждалось. Рули поиском по форуму словом фибоначчи.
I'm learning to live...
|
14.12.2008, 11:37 | #5 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
такой задачи нету искал
|
20.12.2008, 18:16 | #6 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
ну может кто нить поможет, желательно репитом
|
20.12.2008, 20:06 | #7 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
Код:
Последний раз редактировалось Костя КС; 20.12.2008 в 20:17. |
20.12.2008, 20:22 | #8 |
Пользователь
Регистрация: 22.01.2008
Сообщений: 78
|
Код:
|
24.12.2008, 19:52 | #9 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
Program Laba3b;
{ўлЇ®«*Ё« ђ®¬**®ў Ђ*в®*} var f,f1,f2: integer; a : real; Begin write('введите нижний придел значений чисел Фибоначчи = '); readln(a); f1 := 1; f2 := 1; if a>1 then repeat f := f1+f2; f1 := f2; f2 := f until f > a; writeln('число ',f,' - первое число Фибаначчи, больше ',a:4:2); writeln('число ',f1,' стоит перед ',f,''); else writeln('нет чисел Фибоначчи, стоящих перед ',a); End. народ помогите не работает программа, где нужно исправить?? Последний раз редактировалось Ananim-Pbl6ak; 24.12.2008 в 19:56. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Передача строки-как параметра-переменной | Иллидан | Общие вопросы Delphi | 13 | 03.10.2008 18:40 |
Передача компонента как параметра в функцию | hayhay | Microsoft Office Excel | 1 | 11.03.2008 15:53 |
Передача параметра в поток | joker | Win Api | 10 | 22.12.2007 12:53 |
Помогите с чтением параметра в реестре!! | snake-as | Общие вопросы Delphi | 2 | 14.03.2007 15:50 |