Beranda > ilmu Komputer > Prog. Sederhana Function, Procedure, Object

Prog. Sederhana Function, Procedure, Object

Listing Program

Uses crt;

Type bola =object

Procedure input;

Procedure Luas;

Procedure volum;

end;

var R,L,V,a:real;

Procedure bola.input;

begin

clrscr;

write(‘Masukkan jari2=’); readln(R);

end;

Procedure bola.Luas;

begin

L:=4*a*r*r;

writeln(‘Luas=’,L);

end;

Procedure bola.volum;

begin

V:=4/3*a*r*r*r;

writeln(‘volum=’,V);

end;

var buled:bola;

begin

a:=22/7;

buled.input;

writeln;

readkey;

buled.Luas;

writeln;

buled.volum;

readkey;

end.

Logika Program

Program ini adalah program untuk menghitung luas dan volum bola. Pertama didefinisikan dulu tipe data bola sebagai objek. Yang ada dalam objek bola adalah procedure input , procedure luas dan procedure volum. Variabel – variable yang digunakan adalah variable R , V, L, dan a yang tipe datanya real (bilangan nyata) .

Lalu , dimulai procedure pertama yaitu procedure bola.input . pendeklarasian nama procedurenya harus  didahului nama objek. Program pada procedure bola.input adalah untuk menginput nilai r atau jari – jari  yang dinyatakan sebagai variable R.

Procedure yang kedua adalah procedure bola.luas . Pada blok program ini, dimasukan rumus untuk menghitung luas bola yaitu   L:=4*a*r*r. dimana a adalah 22/7.

Prosedure yang terakhir adalah procedure bola.volum. Sama seperti procedure bola.luas , rumus untuk menghitung volume bole dimasukkan ke dalam procedure ini.

Setelah semua procedure telah dibuat, maka program dimulai dengan pernyataan begin. Nilai a dinyatakan terlebih dahulu yaitu nilainya sebesar 22/7. Setelah itu, kita hanya memanggil procedure – procedure yang telah dibuat dengan menuliskan nama procedurenya diakhiri tanda titik koma. Tetapi pada program ini, dideklarasikan variable buled sebagai tipe data bola. Ini artinya nama objek berubah. Jadi nama procedure yang dipanggil juga berubah yaitu buled.input, buled.luas, buled.volum.


Kategori:ilmu Komputer
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: