I numeri di Fibonacci
Leonardo Fibonacci,
detto Leonardo Pisano,
(Pisa 1175 – 1240 circa),
dopo aver assimilato
durante i suoi numerosi
viaggi le conoscenze
matematiche del mondo
arabo, si propose di
diffondere nel mondo
scientifico le regole di
calcolo note agli arabi
a  1 ; b  1 ; cont  2
PROGRAM fibonacci;
VAR a,b,c,cont: INTEGER;
BEGIN
a := 1;
b := 1;
cont := 2;
scrivi a, b
cont = 25
cont < 25
ca+b
cont  cont + 1
scrivi c
a  b ; b c
WRITELN(a);
WRITELN(b);
REPEAT
c := a + b;
WRITELN( c );
a := b;
b := c;
cont := cont + 1
UNTIL cont = 25
END.
cont = 25
Una seconda
struttura iterativa
cont < 25
ca+b
cont  cont + 1
scrivi a, b
scrivi c
cont = 26
cont < 26
ca+b
a  b ; b c
cont  cont + 1
scrivi c
a  b ; b c
a  1 ; b  1 ; cont  2
scrivi a, b
cont = 26
cont < 26
ca+b
cont  cont + 1
scrivi c
PROGRAM fibonacci;
VAR a,b,c,cont: INTEGER;
BEGIN
a := 1;
b := 1;
cont := 2;
WRITELN(a);
WRITELN(b);
WHILE cont < 26 DO
BEGIN
c := a + b;
WRITELN( c );
a := b;
b := c;
cont := cont + 1
END
END.
a  b ; b c