Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.11.2007, 10:33   #1
tro
Новичок
Джуниор
 
Регистрация: 27.11.2007
Сообщений: 1
По умолчанию расчет числа фибоначчи

блин подскажите как расчитать числа фибоначчи на паскале ???
tro вне форума
Старый 27.11.2007, 11:04   #2
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Код:
//Получение чисел Фибоначчи
procedure fib(n:word);
var
i,sum:longint;
const fa:array [0..1] of longint=(1,1);
begin
write(#$D#$A,fa[0],#$D#$A,fa[1]);
for i:=2 to n-1 do
begin
sum:=fa[0]+fa[1];
write(#$D#$A,sum);
fa[0]:=fa[1];fa[1]:=sum;
end;
end;
P.S.: Поиск по форуму не кусается.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"
AlDelta вне форума
Старый 27.11.2007, 11:19   #3
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Последовательность чисел Фибоначчи u(0),u(1),... образуется по закону u(0)=0, u(1)=1, u(i)=u(i-1)+u(i-2) (i=2,3,...)
т.е. имеем ряд чисел: 0,1,1,2,3,5,8,13,21,34,55,89,144,.. .
Код:
{$N+,E+,R+}
var a,b,c:comp;
      i,n:2..88;
begin
  write('число членов ряда (от 2 до 88) ?',#8); readln(n);
  a:=0; b:=1; write(a:20:0,b:20:0); {первые два}
  for i:=3 to n do
    begin
      c:=a+b; write(c:20:0);
      a:=b; b:=c;
    end;
end.
madmot вне форума
Старый 30.11.2007, 09:00   #4
pascal65536
Пользователь
 
Регистрация: 03.09.2007
Сообщений: 42
По умолчанию

Код:
Var C : Integer;

    Function F(A:Integer):Integer;
    Begin
         If (A = 1) Or (A = 2)
            Then F := 1
            Else F := F(A-1) + F(A-2);
    End;

Begin
     C := 15;
     WriteLn(F(C));
End.
pascal65536 вне форума
Старый 30.11.2007, 11:26   #5
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Эта тема уже затрагивалась
http://www.programmersforum.ru/showthread.php?t=7882
I like WPF
kommunist вне форума
Старый 05.12.2007, 10:34   #6
sher_man
Пользователь
 
Регистрация: 18.10.2007
Сообщений: 41
По умолчанию

var n,i,dr,st,now:integer;
begin
readln (n);
dr:=1;
st:=1;
for i:=3 to n do
begin
now:=dr+st;
dr:=st;
st:=now;
end;
writeln (now);
readln;
end.
sher_man вне форума
Старый 05.12.2007, 11:52   #7
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Достаточно.
Тема закрыта.
Alex21 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расчет числа строк в типизированном файле 1234 Паскаль, Turbo Pascal, PascalABC.NET 6 20.05.2008 11:14
помогите с алгоритмом Фибоначчи kardan Помощь студентам 8 01.04.2008 20:22
Определить n-ое число Фибоначчи - Рекурсия Xeon332 Помощь студентам 3 09.01.2008 19:01
Числа Фибоначчи sher_man Помощь студентам 9 20.10.2007 18:45
эти ужасные числа фибоначчи!!! галя Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 24.12.2006 20:23