0

Labotatorium Teknik Informatika (LABTI) Universitas Gunadarma : Perulangan Pada Delphi

LAPORAN AKHIR PRAKTIKUM


Mata Praktikum                    : Algoritma dan Pemograman 2
Kelas                                      : 1IA11
Praktikum ke-                        : 2
Tanggal                                 : 21 Maret 2016
Materi                                     : Perulangan Pada Delphi
NPM                                       : 53415436
Nama                                     : Irfan Sabdho Musthofa
Ketua Asisten                       : Budhi Utama
Paraf Asisten                        :
Nama Asisten                       : Neldo
Jumlah Lembar                    : 10 Lembar





LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2016





 LISTING PROGRAM

 var
a,b,c,d: integer;
i: string;

procedure TForm1.Button1Click(Sender: TObject);
begin
label5.Caption:= 'Perulangan ' +button1.Caption+ ' mengurutkan angka dari';  label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda 1';
  memo1.Clear;
  b:= strtoint(edit1.Text); c:= strtoint(edit2.Text);
  for a:= b to c do   
  memo1.Lines.add(inttostr(a));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 label5.Caption:= 'Perulangan ' +button2.Caption+ ' mengurutkan angka dari';
 label6.Caption:= '' +edit2.Text+ ' sampai ' +edit1.Text+ ' dengan beda 1';
  memo1.Clear;
  b:= strtoint(edit1.Text); c:= strtoint(edit2.Text);
  for a:= c downto b do     
  memo1.Lines.add(inttostr(a));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
label5.Caption:= 'Perulangan ' +button3.Caption+ ' mengurutkan angka dari';  label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda ' +edit3.Text;
  memo1.Clear;
     b:= strtoint(edit1.Text); c:= strtoint(edit2.Text); d:= strtoint(edit3.Text);
  while b<=c do     
  begin
    memo1.Lines.add(i+inttostr(b));
    b:= b+d;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
label5.Caption:= 'Perulangan ' +button4.Caption+ ' mengurutkan angka dari';  label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda ' +edit3.Text;
  memo1.Clear;
  b:= strtoint(edit1.Text); c:= strtoint(edit2.Text); d:= strtoint(edit3.Text);
  repeat
  memo1.Lines.add(i+inttostr(b));
  b:= b+d;
  until
  b>c;
end;

end.





LOGIKA PROGRAM

Pada pertemuan ke 2 praktikum Algoritma dan Pemrograman 2A, saya membuat sebuah Form Perulangan pada Delphi yang menampilkan hasil input dari nilai 1 dan nilai 2 serta beda yang nantinya akan menampilkan hasil dari tombol-tombol perulangan for to do, for downto do, while do, dan repeat until di kotak memo yang tersedia. Penjelasan dari tiap sintaks sebagai berikut:
·         var
a,b,c,d: integer;
i: string;
-       Sintaks diatas merupakan pendeklarasian variabel a, b, c, d bertipe integer dan I bertipe string. Tipe data Integer adalah tipe data yang terdiri dari angka bulat (tidak mengandung nilai pecahan atau nilai decimal), dan tipe data String adalah tipe data yang menyimpan array (larik).
·         procedure TForm1.Button1Click(Sender: TObject);
-       Sintaks diatas merupakan prosedur yang akan dipanggil saat program pertama kali menjalankan Tombol 1 yang telah dibuat.
·         begin
-       Sintaks diatas menandakan awal dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button1Click.
·         label5.Caption:= 'Perulangan ' +button1.Caption+ ' mengurutkan angka dari';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan kata/kalimat yang muncul dari pemanggilan +button1.Caption+ di label5.Caption.
·         label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda 1';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan nilai yang muncul dari pemanggilan +edit1.Text+ dan +edit2.Text+ di label6.Caption.
·         memo1.Clear;
-       Sintaks diatas berfungsi untuk melakukan pengrisetan (penghapusan) terhadap hasil dari dijalankannya program sebelumnya.
·         b:= strtoint(edit1.Text); c:= strtoint(edit2.Text);
-       Sintaks diatas merupakan pendeklarasian variabel b yang dapat diinput pada edit1.Text dan variabel c yang dapat diinput pada edit2.Text dengan mengubah tipe data dari String menjadi Integer malalui penulisan “strtoint”.
·         for a:= b to c do
-       Sintaks diatas merupakan perulangan FOR TO DO dimana, nilai variabel a berisi nilai dari variabel b sampai nilai dari variabel c.
·         memo1.Lines.add(inttostr(a));
-       Sintaks diatas berfungsi untuk menampilkan nilai variabel a yang dirubah tipe datanya dari Integer menjadi String dengan menuliskan “inttostr”.
·         end;
-       Sintaks diatas menandakan akhir dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button1Click.
·         procedure TForm1.Button2Click(Sender: TObject);
-       Sintaks diatas merupakan prosedur yang akan dipanggil saat program pertama kali menjalankan Tombol 2 yang telah dibuat.
·         begin
-       Sintaks diatas menandakan awal dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button2Click.
·         label5.Caption:= 'Perulangan ' +button2.Caption+ ' mengurutkan angka dari';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan kata/kalimat yang muncul dari pemanggilan +button2.Caption+ di label5.Caption.
·         label6.Caption:= '' +edit2.Text+ ' sampai ' +edit1.Text+ ' dengan beda 1';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan nilai yang muncul dari pemanggilan +edit2.Text+ dan +edit1.Text+ di label6.Caption.
·         memo1.Clear;
-       Sintaks diatas berfungsi untuk melakukan pengrisetan (penghapusan) terhadap hasil dari dijalankannya program sebelumnya.
·         b:= strtoint(edit1.Text); c:= strtoint(edit2.Text);
-       Sintaks diatas merupakan pendeklarasian variabel b yang dapat diinput pada edit1.Text dan variabel c yang dapat diinput pada edit2.Text dengan mengubah tipe data dari String menjadi Integer malalui penulisan “strtoint”.
·         for a:= c downto b do
-       Sintaks diatas merupakan perulangan FOR DOWNTO DO dimana, nilai variabel a berisi nilai dari variabel c sampai nilai dari variabel b.
·         memo1.Lines.add(inttostr(a));
-       Sintaks diatas berfungsi untuk menampilkan nilai variabel a yang dirubah tipe datanya dari Integer menjadi String dengan menuliskan “inttostr”.
·         end;
-       Sintaks diatas menandakan akhir dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button2Click.
·         procedure TForm1.Button3Click(Sender: TObject);
-       Sintaks diatas merupakan prosedur yang akan dipanggil saat program pertama kali menjalankan Tombol 3 yang telah dibuat.
·         begin
-       Sintaks diatas menandakan awal dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button3Click.
·         label5.Caption:= 'Perulangan ' +button3.Caption+ ' mengurutkan angka dari';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan kata/kalimat yang muncul dari pemanggilan +button3.Caption+ di label5.Caption.
·         label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda ' +edit3.Text;
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan nilai yang muncul dari pemanggilan +edit2.Text+, +edit1.Text+ dan +edit3.Text di label6.Caption.
·         memo1.Clear;
-       Sintaks diatas berfungsi untuk melakukan pengrisetan (penghapusan) terhadap hasil dari dijalankannya program sebelumnya.
·         b:= strtoint(edit1.Text); c:= strtoint(edit2.Text); d:= strtoint(edit3.Text);
-       Sintaks diatas merupakan pendeklarasian variabel b yang dapat diinput pada edit1.Text, variabel c yang dapat diinput pada edit2.Text, dan variabel d yang dapat diinput pada edit3.Text dengan mengubah tipe data dari String menjadi Integer malalui penulisan “strtoint”.
·         while b<=c do
-       Sintaks diatas merupakan perulangan WHILE DO dimana, nilai variabel b kurang dari sama dengan nilai variabel c.
·         begin
-       Sintaks diatas menandakan awal dari blok program atas prosedur perulangan sebelumnya yaitu prosedur dari perulangan while do.
·         memo1.Lines.add(i+inttostr(b));
-       Sintaks diatas berfungsi untuk menampilkan nilai variabel b yang dirubah tipe datanya dari Integer menjadi String dengan menuliskan “inttostr”.
·         b:= b+d;
-       Sintaks diatas berfungsi untuk merubah nilai variabel b pada proses perulangan dengan menjumlahkan nilai variabel b sebelumnya dengan nilai variabel d yaitu beda.
·         end;
-       Sintaks diatas menandakan akhir dari blok program atas prosedur perulangan sebelumnya yaitu prosedur dari perulangan while do.
·         end;
-       Sintaks diatas menandakan akhir dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button3Click.
·         procedure TForm1.Button4Click(Sender: TObject);
-       Sintaks diatas merupakan prosedur yang akan dipanggil saat program pertama kali menjalankan Tombol 4 yang telah dibuat.
·         begin
-       Sintaks diatas menandakan awal dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button4Click.
·         label5.Caption:= 'Perulangan ' +button4.Caption+ ' mengurutkan angka dari';
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan kata/kalimat yang muncul dari pemanggilan +button4.Caption+ di label5.Caption.
·         label6.Caption:= '' +edit1.Text+ ' sampai ' +edit2.Text+ ' dengan beda ' +edit3.Text;
-       Sintaks diatas berfungsi untuk menampilkan kata/kalimat yang berada pada tanda kutip dan nilai yang muncul dari pemanggilan +edit2.Text+, +edit1.Text+ dan +edit3.Text di label6.Caption.
·         memo1.Clear;
-       Sintaks diatas berfungsi untuk melakukan pengrisetan (penghapusan) terhadap hasil dari dijalankannya program sebelumnya.
·         b:= strtoint(edit1.Text); c:= strtoint(edit2.Text); d:= strtoint(edit3.Text);
-       Sintaks diatas merupakan pendeklarasian variabel b yang dapat diinput pada edit1.Text, variabel c yang dapat diinput pada edit2.Text, dan variabel d yang dapat diinput pada edit3.Text dengan mengubah tipe data dari String menjadi Integer malalui penulisan “strtoint”.
·         repeat
-       Sintaks diatas menandakan awal dari penulisan perulangan REPEAT UNTIL.
·         memo1.Lines.add(i+inttostr(b));
-       Sintaks diatas berfungsi untuk menampilkan nilai variabel b yang dirubah tipe datanya dari Integer menjadi String dengan menuliskan “inttostr”.
·         b:= b+d;
-       Sintaks diatas berfungsi untuk merubah nilai variabel b pada proses perulangan dengan menjumlahkan nilai variabel b sebelumnya dengan nilai variabel d yaitu beda.
·         until
-       Sintaks diatas berfungsi untuk mendeklerasikan nilai akhir dari perulangan REPEAT UNTIL.
·         b>c;
-       Sintaks diatas merupakan pendeklerasian nilai akhir perulangan dimana, nilai variabel b lebih besar dari nilai variabel c.
·         end;
-       Sintaks diatas menandakan akhir dari blok program atas prosedur sebelumnya yaitu prosedur dari TForm1.Button3Click.
·         end.
-       Sintaks diatas menandakan berakhirnya seluruh sintaks dari program Delphi dengan kode “end” yang diakhiri tanda titik “.”


OUTPUT PROGRAM





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