PRATIKUM 3 PEMVIS

       I.          I.   Deskripsi Program

Pada program yang kedua ini menggunaka Delphi XE4. Pada program ini menggunakan peerulangan for to do. Selain itu program ini merupakan program mencari bilangan prima. Yang mana harus menginput nilai awal dan nilai akhir. Setelah itu difilterlah dari bilangan tersebut yang merupakan bilangan prima.

    II.         II.  Interface Program

III.  Coding Program

 

Nama Komponen	Event	Perintah
Button 1	Onclick	procedure TForm36.Button1Click(Sender: TObject); var i,j,prima,jumlah : integer; begin jumlah :=strtoint(edit2.Text); listbox1.Items.Clear; for i := strtoint(edit1.Text) to jumlah do begin j:=0; for prima := 1 to i do begin if i mod prima=0 then j:=j+1 end; if j = 2 then listbox1.Items.Add(inttostr(i)); end; end;

IV.   Output