Arsip: [MASTER DELPHI HELP ANE]bil Fibbonaci

 
user image
more 10 years ago

andrypein

gan,, ane ada tugas nih dari kampus tentang buat bil fibonaci,, ane udah buat pascalnya,, scriptnya kaya gini:
program bil_deret; uses wincrt; var a,b,c,d:integer; bil:array of integer; deret:arrayof 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]<=c) do begin deret[d]:=f1+f2; f1:=deret[d-1]; f2:=deret[d]; d:=d+1; end; d:=1; while (d<=c) do begin write(deret[d],' '); d:=d+1; end; end.
alhamdulillah work dan emang yang diminta dosen begitu,,, lantas dosen suruh kami coba di delphinya... ko hasilnya tidak sama yang di pascal??? malah jadi ngaco begitu,, plis bantu ane,,letak kesalahannya ada dimana?? :( [/quote]
user image
more 10 years ago

andrypein

gambarnya kaya gini
user image
more 10 years ago

mas_kofa

mana gambar nya?
user image
more 10 years ago

DelphiExpert

Mana code versi Delphi-nya?
user image
more 10 years ago

Tbawor

program Fibonacci;
{$APPTYPE CONSOLE} //---------directive aplikasi console
uses
  SysUtils;
//----------------------
var
a,b,c,d:integer;
bil:array of integer;
deret:arrayof integer;
f1,f2:integer;
//----------------------
begin
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]<=c) do begin
deret[d]:=f1+f2;
f1:=deret[d-1];
f2:=deret[d];
d:=d+1;
end;
//----------------------
d:=1;
while (d<=c) do begin
write(deret[d],' ');
d:=d+1;
end;
readln;
end.
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com