Berlatih Membuat Program Pascal Bagian 5

Dalam sebuah program, akan lebih mudah diatur dan dikelompokkan dalam modul atau bagian. Dengan pembagian yang sesuai maka pembuat program (programmer) tidak perlu menulis ulang bagian program yang sama berkali-kali. Dengan demikian maka proses pembuatan program lebih efisien.

Untuk membagi program pascal ada dua macam cara pengelompokan yaitu Procedure dan Function. 

Procedure

adalah bagian program yang terdiri dari gabungan beberapa statement untuk melakukan tugas tertentu tanpa memiliki nilai kembalian.
Procedure dalam pascal memiliki ciri-ciri:
  • Dipanggil dengan nama procedurnya
  • Tidak memiliki tipe
  • Nilai kembalian ditampung pada variabel

Function

adalah bagian program yang terdiri dari gabungan beberapa statemen untuk melakukan tugas tertentu dan memiliki nilai kembalian (return value) yang dapat diolah kembali oleh bagian program yang lain.
Function dalam pascal memiliki ciri-ciri:
  • Memiliki tipe data
  • Nilai kembalian diberikan dalam nama function
  • Cara memanggilnya diletakkan disebelah kanan Assigment

Langsung saja ini Contoh Programnya:

program latih5;

uses crt;

var
i,pangkat : integer;
hasil, dasar : real;

procedure beep;
begin
  sound(1200);delay(40);
  sound(2400);delay(40);
  sound(3600);delay(40);
  sound(4800);delay(40);
  sound(3600);delay(40);
  sound(2400);delay(40);
  sound(1200);delay(40);
  sound(4800);delay(40);
end;

function power(base:real;exp:integer):real;
var
hasil : real;
ind   : integer;
begin
hasil:=1;
for ind:=1 to abs(exp) do
  hasil:=hasil*base;
if exp<0 then
  hasil:=1/hasil;
power:=hasil;
end;

BEGIN
clrscr;
write('Masukkan Bilangan dasar :');readln(dasar);
write('Masukkan Pangkatnya     :');readln(pangkat);
hasil:=power(dasar,pangkat);
beep;
writeln;
write(dasar:5:0,' dipangkatkan ',pangkat,' hasilnya adalah :',hasil:5:0);
readln;

END.

Tampilan dari program diatas kurang lebih seperti ini:
Hasil .exe dari program diatas dapat anda unduh disini

Posting Komentar