[MASTER DELPHI HELP ANE GAN]bil Fibbonaci
 

gan,,

ane ada tugas nih dari kampus tentang buat bil fibonaci,,

ane udah buat pascalnya,,

scriptnya kaya gini:

<div style="margin:20px; margin-top:5px">
Spoiler for pascal:


<div class="alt2" style="margin: 0px; padding: 6px; border: 1px inset;">
<div style="display: none;">


program bil_deret;

uses wincrt;



var

a,b,c,d:integer;

bil:array[1..100] of integer;

deret:array[1..100]of integer;

f1,f2:integer;





begin

gotoxy(25,1);

writeln('Deret Bilangan Deret');

writeln;

write('Masukan Bilangan Pertama : ');readln(a);

write('Masukan Bilangan Kedua : ');readln(b);

writeln;

write('Tentukan banyaknya deret? ');readln(c);

deret[1]:=a;

deret[2]:=b;

f1:=a;

f2:=b;

d:=3;



while (bil[d]