Salah satu program yang baru saya pelajari dan bisa cara pembuatannya ialah membuat program dengan menggunakan Delphi 7 second edition.
Cara membuat deret fibonacci
Saya membuat program deret fibonacci dengan menggunakan Delphi 7 yang sudah pernah saya pelajari langkah-langkahnya, Pertama saya membuka program Delphi 7 lalu pilih menu file -> new -> other lalu pilih console application. maka akan muncul pada layar anda seperti ini :
| Gambar 1.1 Membuka File Baru |
Setelah itu saya memulai dengan membuat variabel, sebagai contohnya anda bisa melihatnya di gambar ini :
| Gambar 1.2 Membuat Variabel |
Setelah membuat variabel saya masukkan syntax,
untuk memberi inputan berapa banyak bilangan yang kita mau saya menggunakan syntax seperti ini :
write('Masukkan bilangan=');
readln(N);
readln(N);
*dimana N adalah variabel dari inputan bilangan yang kita masukkan
selebihnya saya memasukkan syntax
a:=1;
b:=1;
for i:=0 to (n-1) do
if (i=0) or (i=1) then
write(a,' ')
else
begin
jum:= a+b;
write(jum,' ');
a:=b;
b:=jum;
end;
readln;
atau lebih jelasnya bisa melihat gambar ini :
Pada gambar terdapat i:=0 tetapi kita bisa tidak usah menuliskan itu.
b:=1;
for i:=0 to (n-1) do
if (i=0) or (i=1) then
write(a,' ')
else
begin
jum:= a+b;
write(jum,' ');
a:=b;
b:=jum;
end;
readln;
atau lebih jelasnya bisa melihat gambar ini :
| Gambar 1.3 Syntax program |
Setelah itu selesailah sudah cara membuat deret fibonacci dengan menggunakan delphi 7
bisa dilihat hasil akhir dari apa yang saya buat adalah seperti ini
![]() |
| Gambar 1.4 Hasil Akhir Bilangan Fibonacci |

