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

PEMROGRAMAN VISUAL PRAKTIKUM 2

 

I.    Tujuan Praktikum 

      Praktikum ini bertujuan untuk mengenal apa itu Logika Percabangan, mengetahui jenis-jenis dari logika

      percabangan serta fungsing dari setiap jenis logika percabangan.

II. Deskripsi Program 

      Pada program visual kali ini menggunakan Delphi XE4. Pada program ini merupakan program tentang

      perhitungan nilai pada mahasiswa. Jika nilai lebih dari 90 maka keteranganya sangat baik, jika nilai lebih

     dari 70 maka keterangannya baik, jika nilai lebih dari 60 maka keterangannya cukup, jika nilai lebih dari

     60 maka keterangannya kurang dan jika kurang dari 60 maka keterangan sangat mengecewakan.

III.  Interface Program 

IV.  Coding Program

Nama Komponen	Event	Perintah
Button 1	OnClick	procedure TForm30.Button1Click(Sender: TObject); begin edit5.Text:= floattostr ((strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit3.Text)+strtofloat(edit4.Text))/(4)); if edit5.Text >= '90' then edit6.Text := 'Sangat Baik' else if edit5.Text >'70' then edit6.Text := 'Baik' else if edit5.Text > '60' then  edit6.Text := 'Cukup' else if edit5.Text >'50' then edit6.Text := 'Kurang' else edit6.Text := 'Sangat Mengecewakan'; end;
Button 2	OnClick	procedure TForm30.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; close; end; end.

  

V.   Ouput

Gambar 5.1. Proses Input

Gambar 5.2. Output Nilai Rata-rata dan Keterangan