Logika Perulangan

I.         Tujuan Praktikum

Tujuan Praktikum ini adalah agar praktikan memahami logika perulangan, apa saja bentuk logika yang termasuk dalam logika perulangan, cara penulisan sintaks pada program, dan mencoba membuat program sederhana yang menggunakan bentuk logika perulangan.

II.      Deskripsi Program

Program ini merupakan program sederhana bilanganfibonacciyang didalamnya ada logika while do. Saat program dijalankan, user menginput bilangan awal fibonacci.  Kemudian uses mengiput jumlah perulangan yang diinginkan. Setelah menekan tombol proses maka hasil akan keluar pada komponen memo. Tombol keluar untuk keluar dari program.

III.   Interface Program

Gambar 3.1 Tampilan program Bilangan Fibonacci

IV.   Coding Program

Nama Komponen	Event	Perintah
Form1 btnProses Btnexit	OnActivate On Click On change	procedure TForm1.FormActivate(Sender: TObject); begin mmoHasil.Lines.Clear; end; procedure TForm1.btnProsesClick(Sender: TObject); var a,b,c,d,e:Integer; begin  if (edtAwal.Text<>'') and (edtJumlah.Text<>'') then   begin   mmoHasil.Clear;   a:=StrToInt(edtAwal.Text);   b:=strtoint(edtJumlah.Text);   c:=0;   d:=1;   e:=1;     while d<=b do     begin       c:=c+a;       mmoHasil.Lines.Append('fibonacci ke' +IntToStr(e)+'= '+inttostr(c));       a:=c-a;       d:=d+1;       e:=e+1;     end;     edtAwal.SetFocus;   end; end; procedure TForm1.btnexitClick(Sender: TObject); begin close; end;

V.      Output

Gambar 5.1 Tampilan ketika dijalankan

              

Gambar 5.2 Tampilan ketika menginput kemudian menekan tombol proses


Download