Ciąg Fibonacciego w Turbo Pascalu

[art1]

Czy ktoś mógłby podpowiedzieć jak napisać taki program :

Napisz program, który wyświetla na ekranie zadaną ilość wyrazów ciągu Fibonacciego.Ciąg Fibonacciego to ciąg liczb naturalnych owłaściwościach:

fib0= 0, fib1 = 1, fibn = fibn-1 + fibn-2 dla n ≥ 2

Początkowe wartości tego ciągu to: 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, …

 

Dzięki!

[piotrek_zet]

n podajesz jako ilosc liczb fibonachiegio

 

 

int : liczba,liczbapop, i,n;

 

liczba := 1;

liczbapop := 1;

for i := 1 to n do begin

liczba := liczba + liczbapop;

liczbapop := liczba - liczbapop;

write(liczba);

end

[art1]

Mógłbyś troszke jasniej bo nie bardzo rozumiem. :lol:

[pshem]

heh.

to byl program w pascalu ktory robil to co chciales.

jesli tego nie rozumiesz to znak dla ciebie zebys sie programowaniem nie zajmowal...

[piotrek_zet]

hehe, dokladnie zgadzam sie, to samo powiedzialem gosciowi

[^Garth^]

art1 jasniej sie juz nie da :) jak nie wiesz jak to dziala to wez kartke i olowek i wykonaj to dla np 5 wyrazow ciagu , powinienes zrozumiec algorytm .... aa i jeszcze na poczatku powinien byc warunek sprawdzajacy czy nie jest to przypadkiem 1 wyraz ciagu

 

if (n=1 ) then

write (0) ;

[piotrek_zet]

tak fakt masz racje. Na począdku trzeba jeszcze dodać if`a

[Gość]

art1 jasniej sie juz nie da :) jak nie wiesz jak to dziala to wez kartke i olowek i wykonaj to dla np 5 wyrazow ciagu , powinienes zrozumiec algorytm .... aa i jeszcze na poczatku powinien byc warunek sprawdzajacy czy nie jest to przypadkiem 1 wyraz ciagu  

 

if (n=1 ) then  

write (0) ;

Zawsze moze przecwiczyc na krolikach :wink: :D

[Elpawlakos]

moze tak bedzie ci latwiej zrozumiec:

F[0]:=0

F[1]:=1

for j:=2 to n

do F[j]:=F[j-2]+F[j-1]

ale rzeczywiscie jak mowili poprzednicy za programowanie sie nie bierz jak nie umiesz napisac ciagu fibonacciego.

najpierw pocwicz na kartce schematy blokowe!

pozdro.

[Hipo]

Nie wiem czy to jesszcze aktualne ale jeśli tak to wal na priv z namiarami to wyśle Ci gotowca