Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11642
Последний выпуск: 19.06.2015

Золотой треугольник

Руслан Богатырев
Журнал "Мир ПК", #07, 2001 год
11.09.2001
PROCEDURE Fibonacci3* (i: SHORTINT): LONGINT;
VAR x: LONGINT; k: SHORTINT; stack: ARRAY 2 OF LONGINT;
BEGIN (* PRE: i >= 0; i <= MaxFibINDEX *)
IF (i = 0) OR (i = 1) THEN RETURN 1
ELSE (* i > 1 *) stack[0] := 1; stack[1] := 1;
k := 2;
REPEAT
x := stack[0] + stack[1]; stack[0] := stack[1];
stack[1] := x;
INC(k);
UNTIL (k > i);
RETURN x
END; (* POST: sBadIndex = 

Вернуться к статье

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог