pert.10 (Procedure Pascal)

Dalam pascal kita mengenal yang namanya procedure, procedur yang dimaksud dalam pascal menurut Dwi Sanjaya dalam buku struktur data diplanet pascal, procedure berguna untuk mengumpulkan statment-statment yang dapat dijalankan menjadi satu dalam suatu block dan untuk menjalankannya kembali hanya dengan menuliskan nama procedure yang menampungnya. jadi kita ga perlu banyak buat listing hanya tinggal panggil nama procedurenya saja saat kita membutuhkannya.

Berikut contoh latihan1 program hitung_tanpa_parameter; ———-> parameter = nilai
var
p,q,x,y:byte;

procedure tambahkali;
begin
p:=x+y;
q:=x*y;
writeln(‘X+Y=’,p);
writeln(‘X*Y=’,q);
end;
begin
write(‘X=’);readln(x);
write(‘Y=’);readln(y);
tambahkali;
readln;
end.

Latihan 2 program hitung_dengan_parameter;
var
p,q,x,y:byte;

procedure tambahkali(a,b:byte);
begin
p:=a+b;
q:=a*b;
writeln(‘X+Y=’,p);
writeln(‘X*Y=’,q);
end;
begin
write(‘X=’);readln(x);
write(‘Y=’);readln(y);
tambahkali(x,y);
readln;
end.

Setelah kamu buat latihan diatas, coba kamu buat contoh latihan untuk menghitung luas segitiga dan keliling segitiga :

Tampilan Layar
Masukan Nilai Alas : (input)
Masukan Nilai Tinggi : (input)
———————-
Luas Segitiga adalah : (output)
Keliling segitiga adalah : (output)

Selamat Mencoba…….
Kunci Jawaban :
program hitung_segitiga;
var
l,k:real;a,t:byte;
procedure hitung(alas,tinggi:byte);
begin
l:=(alas*tinggi);
k:=1/2*(alas*tinggi);
writeln(‘Luas segitiga=’,l:4:0);
writeln(‘Keliling segitiga=’,k:4:0);
end;
begin
write(‘Nilai Alas=’);readln(a);
write(‘Nilai Tinggi=’);readln(t);
hitung(a,t);
readln;
end.

Oke …. Sekarang silakan buat lebih kreatif lagi..

Iklan

10 Comments

  1. bergerak untuk perubahan

    afwan, artinya apa ya???? kalo gak salah ini sloga dari salah satu parpol yaaa ???? yang menyatakan diri sebagai parpol islam. mang ada parpol islam???

    hanya ingin menanyakan, perihal diluar dari pascal. afwan sebelumnya, setau saya al qur’an itu adalah al Furqon, sebagai pembeda antara haq dan batil. akan tetapi kenapa sebagian parpol mencoba untuk berkoalisi dengan parlemen. padahal telah jelas kekufuran orang-orang yang berada diparlemen. dan barang siapa yang duduk bersama mereka, maka termasuk dalam golongan mereka.

    karena telah jelas antara haq dan batil. dan tidak akan pernah tercampur dari keduanya tersebut. apabila tercampur, maka yang haq tsb telah menjadi bagian dari yang batil. dan itu artinya, mereka telah tergolong kafir yang haq (bukan maksud untuk mengkafirkan).

    mohon penjelasannya. jawab via e-mail saja
    zarah_imute@yahoo.com

    syukron wa afwan kalau kurang berkenan

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