Se citeşte un număr natural n. Afişaţi al n-lea termen al şirului lui Fibonacci. Folosiţi o funcţie care întoarce cel de-al n-lea termen al şirului lui Fibonacci.

program prob10;

type sir=array[1..50]of integer;

var i, n,fb:integer; a:sir;

begin

write(‘n=’);readln(n);

for i:=1 to n do

if (i=1) or (i=2) then a[i]:=1

else a[i]:=a[i-1]+a[i-2];

write(a[n]);

end.

In plus, varianta 2, cu care se rezolva mult mai usor si e si mai putin de scris, asta pentru cei care au facut functiile, de la clasa a XI a in sus.

║program prob10;

║var n:integer;

║function Fib(n:integer):integer;

║begin if (n=1) or (n=2) then fib:=1

║else fib:=fib(n-1)+fib(n-2);

║end;

║begin

║write(‘n=’);readln(n);

║write(fib(n));

║end.

Posturi asemanatoare

• Probleme Pascal – Calculul sumei 1+1*2+1*2*3.+…..*n (13)
• Probleme Pascal – Aflarea numerelor prima cuprinse intre doua numere a si b, cu afisarea intr-un fisier text (5)
• Probleme Pascal – Afisarea tuturor numerelor cu 3 cifre divizibile cu suma cifrelor lor (3)
• Probleme Pascal – Afisarea unui trunghi de numere (0)
• Probleme Pascal – Din 2 numere a si b sa se afle care are suma cifrelor maxima (0)