تبليغاتX
کامپیوتر - دنباله ي فيبوناتچي
دنباله ي فيبوناتچي
CLS
F1 = 1: F2 = 1
INPUT A
FOR I = 1 TO A
   PRINT F1;
   F3 = F1 + F2
   F1 = F2: F2 = F3
NEXT I

 

   چهارشنبه دهم مرداد 1386   15:4    رسول فضلی