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..
