Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 13.01.2021, 10:29   #1
An2ton1
Новичок
Джуниор
 
Регистрация: 13.01.2021
Сообщений: 2
По умолчанию Фибонначи

Написать рекурсивную подпрограмму вычисления чисел Фибоначчи. Помогите пожалуйста с begin и end (Pascal Abc.net)
Xn=Xn-1+Xn-2 X0=1 X1=1

Последний раз редактировалось An2ton1; 13.01.2021 в 10:34.
An2ton1 вне форума Ответить с цитированием
Старый 13.01.2021, 10:59   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,547
По умолчанию

Код:
вводим целочисленное значение N
X(0)=1
X(1)=1
цикл перебрать все значение i от 2 до N
начало тела цикла
 X(i) = X(i-2)+X(i-1)
выводим на экрна X(i)
конец тела цикла
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 13.01.2021, 11:59   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,977
По умолчанию

У человека ведь хотелка - рекурсивная! Не знаю, как на, простите за выражение, абеце, а в нормальной среде это выглядит так (кстати, begin end'ов тут - хоть завались) :
Код:
function Fib(arg:integer) : integer ;
Begin
  if Arg<2 then Fib := arg
  else Fib := Fib(arg-1) + Fib(arg-2)
end ;

begin
  for i := 0 to 10 do
    begin
      j := Fib(i) ;
      Memo1.Lines.Add(Format('%3d %5d',[i,j]))
    end;
end;
Сама функция и пример её использования.
0 0
1 1
2 1
3 2
4 3
5 5
6 8
7 13
8 21
9 34
10 55
Цитата:
Помогите пожалуйста с begin и end
Это мне напомнило из "Берегись автомобиля" :
Цитата:
- Да, и не забудьте сказать: "Быть - или не быть?"

Последний раз редактировалось digitalis; 13.01.2021 в 12:17.
digitalis вне форума Ответить с цитированием
Старый 13.01.2021, 14:14   #4
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 526
По умолчанию

экспорт ориентированная импорт замещающая
программа про числа Фибоначчи Fibonacci

https://www.programmersforum.ru/show....php?p=1807460

язык не по теме зато выводит в столбик красиво
и ещё в той теме есть программы
учим C# зная basic & excel
https://programmersforum.ru/showthre...=327446&page=9
сфинкс вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи з числом Фибонначи и факториалом Nastia985 Общие вопросы по Java, Java SE, Kotlin 2 30.10.2016 11:06
Числа Фибонначи (С++) MURREX Помощь студентам 1 02.12.2008 12:09


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS