Login to Website

Login dengan Facebook

 

Post Reply
Thread Tools
  #1  
Old 20th November 2011
Linuxmania
Ceriwiser
 
Join Date: Nov 2011
Posts: 392
Rep Power: 14
Linuxmania mempunyai hidup yang Normal
Default [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:


Spoiler for pascal:






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]

Sponsored Links
Space available
Post Reply




Switch to Mobile Mode

no new posts