Program Pascal Prosedure

 Berikut ini adalah salah satu contoh program pascal dengan menggunakan prosedur
dengan variabel :   x : integer;
                            yt: char;
Program ini di gunakan untuk memilih Playlist Lagu.


program PLAYLISTLAGU;
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 ('Daftar tidak terdefinisi');
     readln;
     kembali;
end;

procedure menu5;
begin
     clrscr;
     writeln('*********Terimakasih Sudah Menggunakan Program Ini********');
     writeln('');
     writeln('Nama: Sodikin ');
     writeln('NIP : 432007006120000');
     writeln('TASIKMALAYA');
     readln;
     kembali;
end;

procedure menu4;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 4');
     writeln ('==================');
     writeln ('Linkin Park');
     writeln ('1. Castle Of Glass');
     writeln ('2. Skin To Bone');
     writeln ('3. Powerless');
     writeln ('4. Road Untraveled');
     writeln ('5. In My Remains');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu3;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 3');
     writeln ('==================');
     writeln ('GrenDay');
     writeln ('1. Basket Case');
     writeln ('2. Time Of Life');
     writeln ('3. 21 Guns');
     writeln ('4. When I Come Around');
     writeln ('5. Boulevard Of Broken Dream');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu2;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 2');
     writeln ('==================');
     writeln ('Slank');
     writeln ('1. Cinta Kita');
     writeln ('2. Ku Tak Bisa');
     writeln ('3. Kupu-Kupu Liar');
     writeln ('4. Pandangan Pertama');
     writeln ('5. Bendera Setengah Tiang');
     writeln ('==================');
     readln;
     kembali;
end;

procedure menu1;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST 1');
     writeln ('==================');
     writeln ('Kenny G');
     writeln ('1. Forever Love');
     writeln ('2. Uncle Al');
     writeln ('3. Waiting For You');
     writeln ('4. Going Home');
     writeln ('5. Jasmine Flower');
     writeln ('==================');
     readln;
     kembali;
end;

procedure utama;
begin
     clrscr;
     writeln ('DAFTAR PLAYLIST');
     writeln ('===================');
     writeln ('[1] Playlist 1');
     writeln ('[2] Playlist 2');
     writeln ('[3] Playlist 3');
     writeln ('[4] Playlist 4');
     writeln ('[5] About ');
     writeln ('[6] Keluar');
     writeln ('===================');
     write ('Masukan pilihan anda. [1/2/3/4/5/6] : ');
     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
        exit;
     if (x > 6) then
        taktahu;
end;

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

 
Hasil Program Setelah di Run;

Penulis : Zen Scremo ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Program Pascal Prosedure ini dipublish oleh Zen Scremo pada hari Monday, December 2, 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Program Pascal Prosedure