0

Contoh Laporan Akhir Laboratorium Teknik Informatika - Percabangan Pada Delphi

LAPORAN AKHIR PRAKTIKUM




Mata Praktikum               : Algoritma dan Pemograman 2

Kelas                               : 1IA11

Praktikum ke-                  : 1

Tanggal                           : 14 Maret 2016

      Materi                              : Pengenalan dan Percabangan Pada Delphi

NPM                                : 53415436

Nama                              : Irfan Sabdho Musthofa

Ketua Asisten                 : Budhi Utama

Paraf Asisten                  :

Nama Asisten                 :

Jumlah Lembar               : 4 Lembar





LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2016
LISTING PROGRAM

procedure TForm1.Button1Click(Sender: TObject);
var
uts, uas, hasil : real;
ipk : char;
begin
label5.Caption := 'Selamat, ' +edit1.Text+ ' dengan NPM: ' +edit2.Text;
uts := strtofloat(edit3.Text);
uas := strtofloat(edit4.Text);
hasil := (uts+uas)/2;
If (hasil > 84) and (hasil <= 100) then ipk := 'A'
else
If (hasil > 70) and (hasil <=   84) then ipk := 'B'
else
If (hasil > 55) and (hasil <=   70) then ipk := 'C'
else
If (hasil > 40) and (hasil <=   55) then ipk := 'D'
else ipk :='E';
label6.Caption := 'Nilai Anda: ' +floattostr(hasil)+ ' dengan IPK: ' +ipk+ ' untuk ' +form1.Text;
end;
end.


LOGIKA PROGRAM

Pada pembuatan program pertemuan ke-1 pertama-tama ubah caption Form1 menjadi ‘Laboratorium Teknik Informatika’
Masukan (input) object-object sebagai berikut :
·      Label1 ubah caption menjadi ‘NAMA’
·      Label2 ubah caption menjadi ‘NPM’
·      Label3 ubah caption menjadi ‘UTS’
·      Label4 ubah caption menjadi ‘UAS’
·      Label5 dan Label6 hapus caption
·      Button ubah caption menjadi ‘HASIL’
·      Edit1 s/d Edit4 hapus caption
Klik 2x pada object Button untuk menuju ke jendela pemrograman.
Menuliskan variabel di atas begin sebagai berikut :
·      uts, uas, hasil dengan tipe data real
·      ipk dengan tipe data karakter (char)
Pada Label5 diberikan perintah pencetakan dengan memanggil Edit1 dan Edit2.
Mendeklarasikan variabel sebagai berikut :
·      uts           = Edit3 (ubah data dari String menjadi Float)
·      uas          = Edit4 (ubah data dari String menjadi Float)
·      hasil        = (masukan rumus perhitungan)
Pengubahan data pada object Edit3 dan Edit4 dilakukan dengan menuliskan ‘strtofloat’ agar nilai yang dimasukan berupa bilangan desimal dimana penggunaannya menggunakan tanda titik (.).
Menuliskan rumus perhitungan dari nilai yang dimasukan sebelumnya pada variabel hasil dengan menuliskan ‘(uts+uas)/2’.
Memasukan pemrograman percabangan ‘if else’ pada variabel ipk dengan syarat-syarat sebagai berikut :
·      Nilai 85 s/d 100 predikat ‘A’
·      Nilai 70 s/d  84  predikat ‘B’
·      Nilai 55 s/d  69  predikat ‘C’
·      Nilai 40 s/d  54 pedikat ‘D’
·      Nilai < 40 predikat ‘E’
Pada Label6 diberikan perintah pencetakan dengan memanggil variabel hasil yang di depannya dituliskan ‘floattostr’ dan variabel ipk, serta Form1.
Menuliskan ‘end;’ untuk mengakhiri begin.
Pemrograman diakhiri dengan menuliskan ‘end’.



OUTPUT PROGRAM


BUAT SENDIRIII.... :))

       


        



irfan musthaf

Phasellus facilisis convallis metus, ut imperdiet augue auctor nec. Duis at velit id augue lobortis porta. Sed varius, enim accumsan aliquam tincidunt, tortor urna vulputate quam, eget finibus urna est in augue.

Tidak ada komentar:

Posting Komentar