Praktikum III- Logika Perulangan

I.     Deskripsi Program

Program ini bernama program angka ganjil. Jadi, teknis dari program ini adalah menampilkan berapa banyak angka ganjil yang muncul dalam sebuah range angka tertentu. Jadi di program ini kita disuruh menginputkan 2 buah inputkan, dari angka tertentu sampai angka tertentu. Kemudian nanti akan muncul angka ganjil yang akan muncul dari range angka itu. Program ini menggunakan program delphi 7. Program ini juga menggunakan sistematis perulangan for to do. Program ini sangat sederhana bila digunakan

II.           Interface Program

 

III.              Coding Program

Nama Komponen	Event	Perintah
ButtonProses	OnClick	procedure TForm1.Button1Click(Sender: TObject); var   i,a,b:integer; begin memo1.Clear; a:= strtoint(edit1.TEXT) ; b:= strtoint(edit2.TEXT); if a>b then   begin   for i:=  a downto b do     begin       if(i mod 2 <>0) then         begin           memo1.Lines.Add(inttostr(i));         end;     end;   end else begin     for i := a to b do     begin       if(i mod 2 <>0) then         begin           memo1.Lines.Add(inttostr(i));         end;     end; end; end; end.

 

 IV. Output

                 

Gambar 1. Tampilan Awal Program

Gambar 2. Tampilan Ketika Di Proses

http://www.4shared.com/rar/5zR-V_EUce/prakII.html