contenuti del blog

martedì 20 novembre 2012

Pascal: programma per trovare un numero della sequenza di fibonacci

La sequenza di Fibonacci è: 0 1 1 2 3 5 8 .....
ecco un programma per sapere il primo, il secondo il decimo qualsiasi altro numero della sequenza.
program sequenzafibonacci;
uses crt;
var
n,x,y,s:longint;
c:char;
begin
repeat
x:= 0;
y:= 1;
S:= 0;                 
clrscr;                          
gotoxy(30,1);                                  
textcolor(black+blink);                        
textbackground(green);                       
write(' SEQUENZA DI FIBONACCI ');
textbackground(black);                              
textcolor(10);
delay(100);
gotoxy(1,3);
write('Quale numero della sequenza vuoi sapere? ');
read(n);
         if n< 2 then
        begin
        gotoxy(1,5);
        textcolor(12);
        write('Il numero della sequenza è: ',n);
        end
                else
                while n >= 2 do
                        begin
                         s:= x + y;
                          x:= y;
                           y:= s;
                            n:= n -1;
                          end;
        gotoxy(1,5);
         textcolor(12);
        write('Il numero della sequenza è: ',s);

 textcolor(10);
 gotoxy(1,7);
 write('Vuoi calcolare un altro numero? (y/n) ');
 c:= readkey;
 until c <> 'y';
 gotoxy(1,11);
 write('USCITA!');
 delay(1000);
 end.

Nessun commento:

Posta un commento