Program Pascal Dengan Menggunakan Prosedur

Program Pascal Dengan Menggunakan Prosedur

Berikut ini adalah salah satu contoh program pascal dengan menggunakan prosedur
dengan variabel :   x : integer;
                            yt: char;
Program ini di gunakan untuk memilih ketersediaan film.
program daftar_film;
uses wincrt;

var
   x : integer;
   yt: char;

procedure kembali;
begin
     write ('Ingin kembali ke menu utama? [Y/T] : ');
     readln (yt);
end;

procedure taktahu;
begin
     clrscr;
     writeln ('Menu tidak terdefinisi');
     readln;
     kembali;
end;

procedure menu8;
begin
     clrscr;
     writeln('Terimakasih Sudah Menggunakan Program Ini');
     writeln('Nama: Dede Opik');
     writeln('NPM : 432007006120062');
     writeln('STMIK TASIKMALAYA');
     readln;
     kembali;
end;



procedure menu7;
begin
     clrscr;
     writeln ('DAFTAR FILM ANIMASI');
     writeln ('==================');
     writeln ('1. One Piece');
     writeln ('2. Naruto ');
     writeln ('3. Tsubassa ');
     writeln ('4. Smurai X');
     writeln ('5. Kuruko No Basket ');
     writeln ('6. Little Busters');
     writeln ('7. Diamond no Ace  ');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;


procedure menu6;
begin
     clrscr;
     writeln ('DAFTAR FILM MISTERI');
     writeln ('==================');
     writeln ('1. Changeling');
     writeln ('2. Murder Eleven ');
     writeln ('3. Closed Circuit ');
     writeln ('4. Joy Ride');
     writeln ('5. The Faculty ');
     writeln ('6. All the Boys Love Mandy Lane');
     writeln ('7. Odd Thomas ');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;

procedure menu5;
begin
     clrscr;
     writeln ('DAFTAR FILM ADVENTUR');
     writeln ('==================');
     writeln ('1. The Golden Compass');
     writeln ('2. Percy Jackson Sea of Monsters ');
     writeln ('3. The Mortal Instruments City of Bones ');
     writeln ('4. The Wolverine');
     writeln ('5. Turbo');
     writeln ('6. Despicable Me 2');
     writeln ('7. Despicable Me 1 ');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;

procedure menu4;
begin
     clrscr;
     writeln ('DAFTAR FILM HOROR');
     writeln ('==================');
     writeln ('1. House of Good and Evil');
     writeln ('2. The Walking Dead');
     writeln ('3. Bela Kiss Prologue');
     writeln ('4. All Hallows Eve');
     writeln ('5. Lizzie Bordens Revenge');
     writeln ('6. The Conjuring');
     writeln ('7. Abandoned Mine ');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;

procedure menu3;
begin
     clrscr;
     writeln ('DAFTAR FILM KOMEDI');
     writeln ('==================');
     writeln ('1. Saving Santa');
     writeln ('2. Mike Tyson: Undisputed Truth');
     writeln ('3. Saving Santa');
     writeln ('4. Nativity 2 Danger in the Manger');
     writeln ('5. Please Kill Mr Know It All');
     writeln ('6. Besharam');
     writeln ('7. Charlie Countryman');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;

procedure menu2;
begin
     clrscr;
     writeln ('DAFTAR Film Drama');
     writeln ('==================');
     writeln ('1. City Of Gold');
     writeln ('2. Kilimanjaro');
     writeln ('3. Bad Granpa');
     writeln ('4. Drinking Buddies');
     writeln ('5. The Bounty ');
     writeln ('6. The Attack');
     writeln ('7. Prisobers');
     writeln ('==================');
     writeln ('Harga : Rp. 1000/3 hari');
     readln;
     kembali;
end;

procedure menu1;
begin
     clrscr;
     writeln ('DAFTAR FILM ACTION');
     writeln ('==================');
     writeln ('1. Batman-The Dark Knight Rises');
     writeln ('2. Batman-The Dark Knight');
     writeln ('3. Batman-Begin');
     writeln ('4. Batman & Robin');
     writeln ('5. Batman Forever');
     writeln ('6. Batman Returns');
     writeln ('7. Ender Game');
     writeln ('8. Elysium');
     writeln ('==================');
     writeln ('Harga : Rp. 10000/3 hari');
     readln;
     kembali;
end;

procedure utama;
begin
     clrscr;
     writeln ('                         SELAMAT DATANG DI RENTAL FILM ABADI');
     writeln('');
     writeln ('===================');
     writeln ('[1] ACTION     1');
     writeln ('[2] DRAMA      2');
     writeln ('[3] KOMEDI     3');
     writeln ('[4] HOROR      4');
     writeln ('[5] ADVENTUR   5');
     writeln ('[6] MISTERI    6');
     writeln ('[7] ANIMASI    7');
     writeln ('[8] ABOUT      8');
     writeln ('[9] KELUAR     9');
     writeln ('===================');
     writeln ('');
     write ('Masukan pilihan anda... [1/2/3/4/5/6/7/8/9] : ');
     readln (x);
     if (x = 1) then
        menu1
     else
     if (x = 2) then
        menu2
     else
     if (x = 3) then
        menu3
     else
     if (x = 4) then
        menu4
     else
     if (x = 5) then
        menu5
     else
      if (x = 6) then
        menu6
     else
      if (x = 7) then
        menu7
     else
      if (x = 8) then
        menu8
     else
     if (x = 9) then
        Exit;
     if (x > 9) then
      taktahu;
end;

begin
     clrscr;
     utama;
     while (yt = 'Y') do
        utama;
     while (yt = 'y') do
        utama;
end.

Hasil Program Setelah di Run.