Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data

Algoritma dan pemrograman komputer kuliah My stuff Note Struktur Data

Hallo.. :D

Kali ini saya mendapatkan tugas UAS Struktur Data dari Mr.Hedi Ruswanto nih, berikut laporannya ..
Jika anda pemakai Lazarus(opensource) silahkan dibuka, tapi kali iinni saya akan menggunakan 

Borland Delphi 7. Baiklah, Buka programnya ---> lalu buat form seperti ini 

Atur Propertiesnya pada window Object Inspector seperti ini :

Name	Properties	Keterangan
Form1	Caption	ACHMAD MAULANA BAEHAQI (112222005)
Button1	Caption	INPUT
Button2	Caption	CLEAR
Button3	Caption	EXIT
Label1	Caption	DATA TAHUN
Label2	Caption	JUMLAH DATA
Label3	Caption	JUMLAH TAHUN KABISAT
Label4	Caption	WWW.GOPANDAAN.COM
Edit1	Text	kosongi
Edit2	Text	Kosongi
ListBox1	-	-

Setelah itu double klick pada Button1 yakni Input, kemudian masukkan script berikut :

var

x,a,t: integer;

tahun: array[1..10] of string;

s: string;

begin

  s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','0');

  t:=0;

for x:=1 to strtoint(s) do

begin

tahun[x]:=inputbox('Tahun Ke : '+inttostr(x),'Masukkan Tahun','');

ListBox1.Items.Add(tahun[x]);

edit1.Text:=inttostr(ListBox1.Items.Count);

a:=strtoint(tahun[x]);

if a mod 4=0

then t:=t+1

else t:=t+0;

edit2.Text:=inttostr(t);

end;

end;

Kembali ke Form lalu Double Klick pada Button2 yakni CLEAR sisipkan Script ini untuk 

perintah menghapus pada Edit1 dan 2. pastikan seperti ini 

procedure TForm1.BTClearClick(Sender: TObject);

begin

ListBox1.Clear;

edit1.Text:='';

edit2.Text:='';

end;

Lalu kembali ke Form lagi lalu Double Klick pada Button3 Yakni EXIT dan sisipkan script 'close;' seperti dibawah ini

procedure TForm1.BTKeluarClick(Sender: TObject);

begin

close;

end;

Untuk mencobanya tekan F9 / Run (tampilan awal)

Tekan tombol INPUT untuk memasukkan data.. Masukkan jumlah data yang akan diinputkan (n-->banyaknya data) 

Kemudian Masukkan data mulai dari tahun ke :1 hingga jumlah tahun banyaknya data yang anda masukkan. 

Berikut hasilnya sodara :D

keterangan :

·        Var digunakan untuk  Mendefinisikan sebuah variable

·        Begin untuk memulai suatu penulisan script program

·  Integer untuk  mendefinisikan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan (range -1024 sampai 32767)

·        StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

·        IntToStr untuk merubah tipe data integer ke tipe data string.

·        Caption untuk Membuat caption pada table

·        End; untuk mengakhiri sebuah script namun masih ada lanjutannya

·        End. Untuk mengakhiri sebuah script

·      If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi

· Array adalah untuk tipe data bentukan yang merupakan wadah untuk menampung nilai2 data yang sejenis

·    String disini digunakan untuk data bentukan yang membentuk suatu kata atau satu kalimat yang diapit oleh dua tanda kutip

·        Mod perintah untuk menghitung hasil sisa bagi

·        Listbox digunakan untuk menampilkan hasil inputan

 Sekian.. Wassalam :D

Bagikan

Jangan lewatkan

Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data

4/ 5

Oleh Hanya Catatan Pribadi

Hanya Catatan Pribadi 15:32 Komentar