Membuat Deret Fibonacci dengan Pascal

Written By Abdul Wakhid on 1 Desember 2009 | 18.46.00

abdulmail - Membuat deret fibonacci dengan pascal

program DeretFibonacci;
uses crt;
var
i,n,f,f1,f2 : longint;
pil:char;
label A,B,C,D,E;

begin
A: clrscr;
textcolor(green);
writeln(' --------------------------------');
writeln(' MENAMPILKAN DERET FIBONACCI');
writeln(' --------------------------------');
textcolor(white);
write(' MASUKKAN SUKU KE- N (1-46) : ');readln(n);
if (n>46) or (n<1) then goto A;
if n=1 then goto B;
writeln;
writeln(' SUKU KE- 1 ADALAH = 1');
writeln(' SUKU KE- 2 ADALAH = 1');goto C;
B: writeln(' SUKU KE- 1 ADALAH = 1');
C: f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln(' SUKU KE- ',i:2,' ADALAH = ',F);
f2:=f1; f1:=f;
end;
D: textcolor(white);writeln;writeln;
writeln(' --------------------------------');
write (' INGIN MENGULANG ?(Y/N)');readln(pil);
writeln;
begin
if (pil='Y') or (pil='y') then goto A
else
if (pil='N') or (pil='n') then goto E
else
textcolor(red+blink);
writeln(' PILIHAN HANYA Y / N , SILAKAN ULANG');
writeln;goto D;
E: textbackground(yellow);
writeln(' TERIMA KASIH ');
writeln(' ..............DELAY............');
delay(2000);
end;
end.

Koreksi ya..
Thx.

2 komentar:

Anonim mengatakan...

thanks for knowing my email:
yuniana.blog.uns.ac.id
thankyu
or:
yuniana-pengantarilmukomputer.blogspot.com

sriwahyuni mengatakan...

sipzz buosss....

Posting Komentar

Don't Spam Please !