Procedure pada delphi atau pascal - menghitung luas dan keliling persegi panjang

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Prosedur merupakan subprogram yang terdiri dari sekelompok perintah untuk mengolah suatu masalah dengan suatu atau lebih masukan untuk mengahasilkan satu atau lebih keluaran. Adapun cara mendeklarasikan prosedur adalah :

PROCEDURE nama_prosedur (parameter1, parameter2, ���: tipeparameter);

Perbedaan utama antara fungsi dan prosedur adalah, prosedur tidak harus mempunyai keluaran, tetapi fungsi harus mempunyai keluaran.

program luas_keliling_persegipanjang;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var      {deklarasi variabel global}

    p, l, ls,kel: real;    {ls:luas, kel:keliling}

    Procedure Hitung_Luas;           {Prosedur untuk menghitung luas}
begin
 ls:=p*l;
 writeln('Luas     :',ls:3:2);
end;

Procedure Hitung_Keliling;  {Prosedur untuk menghitung keliling}
begin
 kel:=(2*p)+(2*l);
 writeln('Keliling :',kel:3:2);
end;

{===program utama===}
begin
writeln('Program Untuk Menghitung luas dan keliling persegipanjang');
  writeln;
  write('Masukan panjang : ');readln(p);
  write('Masukan lebar   : ');readln(l);
  writeln;
  Hitung_Luas;     {Memanggil prosedur Hitung_Luas}
  Hitung_Keliling;               {Memanggil prosedur Hitung_Keliling}
  readln;

  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end. 

Selamat menikmati
Have Fun

Related Posts:

Tweet