PROCEDURE DAN FUNCTION PADA PASCAL

Sebagaimana kita tau bahwa fungsi procedure dan function adalah untuk mencegah program menjadi modul-modul program yang berguna untuk menghindari penulisan coding program yang sama secara berulang-ulang. Modul-modul ini nantinya bisa dipanggil beberapa kali.

Aturan penulisan :

Procedure nama_procedure_kalian;
Var variabel kalian;
Begin;
(isi program)
End.

Contoh :
Program Luas_Segitiga_Lingkaran;
uses crt;
var pilih : integer;

    procedure Garis;
    begin
    writeln('--------------------');
    end;

    procedure Segitiga;
    var
    alas,tinggi : integer;
    luas : real;
    begin clrscr;
    writeln('------------------------');
    writeln('        SEGITIGA        ');
    writeln('------------------------');
    write('MASUKAN NILAI TINGGI : '); readln(tinggi);
    write('MASUKAN NILAI ALAS   : '); readln(alas);
    luas := 1/2*alas*tinggi;
    writeln('JADI LUASNYA ADALAH  : ' ,luas:4:1);
    readln;
    end;

    procedure Lingkaran;
    var
    r : integer;
    luas : real;
    const
    phi = 3.14;
    begin clrscr;
    writeln('------------------------');
    writeln('       LINGKARAN        ');
    writeln('------------------------');
    Write('MASUKAN NILAI JARI JARI : '); readln(r);
    luas:= phi*r*r;
    Writeln('JADI LUASNYA ADALAH     : ' ,luas:4:1);
    readln;
    end;


BEGIN clrscr;
garis;
writeln('      MENGHITUNG LUAS      ');
garis;
writeln('1. SEGITIGA');
writeln('2. LINGKARAN');
writeln('3. KELUAR');
garis;
write('PILIH SALAH SATU (NO) : '); readln(pilih);

if pilih=1 then Segitiga;
if pilih=2 then Lingkaran
else Exit;
readln;
END.



Semoga berfungsi ya kawan....!!!

Contoh program pascal lainnya :

• MEMBUAT BILANGAN PRIMA DENGAN PASCAL

Artikel Terkait:

Pemrograman

• Menggerakkan Komponen & Membuat Animasi menggunakan komponen tTimer
• Cara Membuat Aplikasi Chatting Menggunakan Delphi 7
• String dalam Bahasa C
• Array dalam Bahasa C
• Fungsi dalam Bahasa C
• Perulangan dalam Bahasa C
• Percabangan dalam Bahasa C
• Fungsi-fungsi Dasar Dalam Bahasa C
• Tipe Data Primitif dalam Bahasa C
• Sejarah Perkembangan Bahasa Pemrograman C
• Perulangan Dengan Repeat Until Menggunakan Turbo Pascal
• Menghitung Bilangan Ganjil dan Genap Menggunakan Turbo Pascal
• Pengurutan Bilangan mengunakan Turbo Pascal
• MEMBUAT APLIKASI KONVERSI BILANGAN DENGAN PROGRAM VB
• MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0
• MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0
• MEMBUAT PROGRAM PEMUTAR MUSIK DENGAN VB 6.0 | APLIKASI MP3 PLAYER
• MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB
• MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC
• MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC
• MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PASSWORD DENGAN VISUAL BASIC
• MEMBUAT APLIKASI PENGHITUNG HARGA BARANG DENGAN VISUAL BASIC
• MEMBUAT PROGRAM MENGKONVERSI SUHU DENGAN VISUAL BASIC
• CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0