un aiutino per un algoritmo

[xxx Alcatraz xxx]

Allora devo fare una cosa facile facile ma che non so perchè non mi viene ora
Devo fare in pascal l'algoritmo della successione di Fibonacci.
In pratica la successione è questa 1,1,2,3,5,8,13... (il numero sucessivo è la somma dei due precedenti).

Qualcuno sa farmelo in Pascal, o almeno quale è l'agoritmo?

thx!

[ENGINE]

a cosa serve in pratica la successione di Fibonacci scusa ?

[xxx Alcatraz xxx]

E che me ne frega a me!
Serve alla prof, per vedere se siamo capaci di trovare l'agoritmo.
Il testo del problema è: Calcolare la somma dei primi n termini di questa successione: 1,1,2,3,5,8,13…(successione di Fibonacci)

[Xfree]

azz...
se trovo il libro di informatica te la posto (dopo due anni che non programmo più mi sono anche scordato cos è il C )

[ingpeo]

in pseudocodice:

per i che va da 0 a n:
a(i)=a(i-1)+a(i-2)

[ingpeo]

Originariamente inviato da ingpeo
in pseudocodice:

per i che va da 0 a n:
a(i)=a(i-1)+a(i-2)

Bisogna stare attenti ai primi 2 numeri, metti un if i<2 then a(i)=1

[ENGINE]

Originariamente inviato da Xfree
azz...
se trovo il libro di informatica te la posto (dopo due anni che non programmo più mi sono anche scordato cos è il C )

se parli di codice gli serviva in pascal tanto

[xxx Alcatraz xxx]

ingpeo, grazie mille!
Purtroppo non è che ci ho capito moltissimo
Io ho fatto così:
program fibonacci;
var i,a,n:integer;
begin
writeln('Inserisci un numero');
readln(n);
a:=1;
for i:=0 to n do
a:=a*(i-1)+a*(i-2);
writeln(a);
readln
end.

Ma mi da come risultato zero.

[ingpeo]

Originariamente inviato da xxx Alcatraz xxx
ingpeo, grazie mille!
Purtroppo non è che ci ho capito moltissimo
Io ho fatto così:
program fibonacci;
var i,a,n:integer;
begin
writeln('Inserisci un numero');
readln(n);
for i:=0 to n do
a:=a*(i-1)+a*(i-2);
writeln(a);
readln
end.

Ma mi da come risultato zero.

Ma avete fatto le array?
Se no ti servono delle variabili di appoggio.
Dimmi che te lo passo.

[Xfree]

Originariamente inviato da ENGINE
se parli di codice gli serviva in pascal tanto

si ma l'algoritmo non ci vuole niente a convertilo in pascal o viceversa ( o almeno io non ho mai avuto grossi problemi)

[dooka]

a=0
b=1

repeat
c=a+b
a=b
b=c
until keypressed


(?)

[xxx Alcatraz xxx]

Si abbiamo iniziato proprio oggi gli array, guardacaso

[Xfree]

ho trovato qualcosa fatto in pascal qui http://www.vis-ingenii.com/pagine/tu.../fibonacci.htm

vedi se ti può essere utile

[Xfree]

Originariamente inviato da xxx Alcatraz xxx
Si abbiamo iniziato proprio oggi gli array, guardacaso

e allora non è che per caso la prof vi ha assegnato l'esercizio per verificare se li avevate capiti?

[ingpeo]

Originariamente inviato da Xfree
ho trovato qualcosa fatto in pascal qui http://www.vis-ingenii.com/pagine/tu.../fibonacci.htm

vedi se ti può essere utile

Mii che lungo!
Per l'algoritmo semplice semplice bastano meno righe.

[ingpeo]

Originariamente inviato da Xfree
e allora non è che per caso la prof vi ha assegnato l'esercizio per verificare se li avevate capiti?

E allora te lo metto in pseudocodice così studi un po'

variabili
A: array[100]
i,n=integer


leggi n (max 100)

a[1]=1
a[2]=1
for i=3 to n do
a[i]=a[i-1]+a[i-2]

scrivi a[n]

[xxx Alcatraz xxx]

ingpeo, per favoreee sto impazzendo! adesso ho fatto questo, ke pero non funziona...
program fibonacci;
var i,n,tmp,secondo,primo:integer;
begin
writeln('Inserisci un numero');
readln(n);
primo:=0;
secondo:=1;
for i:=1 to n do
begin
tmp:=secondo;
secondo:=primo+secondo;
primo:=tmp;
end;
writeln(secondo);
readln
end.

[Xfree]

Originariamente inviato da ingpeo
Mii che lungo!
Per l'algoritmo semplice semplice bastano meno righe.

e infatti a fondo pagina c'è la versione ricorsiva

[xxx Alcatraz xxx]

Regà per favore, se domani non porto sto minchione di Fiboncci so **zzi amari mia!
Per favoree, help meeee.

PS
Sto cominciando a sclerare

PPS
La funzione ricorsiva non mi servirebbe a nulla dato che non abbiamo ancora fatto le funzioni

[ingpeo]

Li incrementi in modo errato
Prova così:

program fibonacci;
var i,n,tmp,secondo,primo:integer;
begin
writeln('Inserisci un numero');
readln(n);
primo:=0;
secondo:=1;
for i:=1 to n do
begin
tmp:=primo;
primo:=secondo;
secondo:=tmp+primo;
end;
writeln(secondo);
readln
end.