Menggabungkan Perintah dalam Sebuah Menu di turbo pascal

Tentang bahasa program pascal lagi . disini saya akan membagikan tentang coding perintah-perintah bahasa pascal yang dijadikan satu dalam sebuah menu, jadi seperti anda memilih makanan di restaurant ternama dengan menu yang cukup menggiurkan lidah tapi harganya mahal ^_^ . sebenarnya ini adalah tugas besar Teman kuliah saya, dari pada kode ini menjamur jadi tidak ada salahnya saya berbagi ke blog ^_^. 

berikut adalah codding bahasa program pascalnya. cukup panjang karena ada 6 perintah fungsi dan prosedure didalamnya. saran saya anda copy saja agar lebih cepat jika belum tau cara copy paste coding dari luar ke turbo pascal sihlakan baca ini /klik saja cara praktis copy paste coding pascal, dari pada anda ketik kemungkinan 97% salah dan tidak bisa running codenya.

Uses crt;
var
nama, NPM, jurusan, alamat: string;
procedure menampilkannama;
Begin
Write('nama mahasiswa : ');readln(nama);
Write('NPM : ');readln(NPM);
Write('jurusan : ');readln(jurusan);
Write('alamat : ');readln(alamat);
Writeln('-----------------------------------------------');
Write('saya adalah ',nama);
Write('dengan NPM ',NPM);
Write('merupakan mahasiswa jurusan ',jurusan);
Writeln('saya tinggal di ',alamat);
Readln;
End;

procedure luaslingkaran;
var x, y, z : real;
BEGIN
writeln('Program Luas Lingkaran');
writeln('');
write('Masukan Jari-Jarinya : ' );
read(x);

y := PI * x * x;

writeln('Hasilnya adalah : ',y:1:2);
writeln;
readln;
END;

procedure Cetakkarakter;
Var
Awal, Akhir, Karak : Char;
Begin
Clrscr;
Write('Karakter awal  : ');Readln(Awal);
Write('Karakter akhir : ');Readln(Akhir);
writeln;
Write('N A I K    : ');
For Karak := Awal to Akhir Do
Write(karak);
Writeln;
Write('T U R U N  : ');
For Karak := Akhir downto Awal Do
Write(karak);
end;

procedure operasistring;
var
s,akhir, awal : string;
begin
clrscr;
s:='informatika';
akhir:=s;
awal:=s;
writeln('sebelum dihapus:',s);
writeln;
delete(akhir,5,7);
writeln('setelah dihapus:',akhir);
delete(awal,1,3);
writeln('setelah dihapus awal:',awal);
readln;
end;

procedure hurufvokal;
Const
Vokal =
['A','I','U','E','O','a','i','u','e','o'];
Var
Huruf   : char;
Pesan   : string;
i,CcHuruf,CcVokal : integer;
Begin
clrscr;
Write('Ketikkan Kalimat : ');
Readln(Pesan);
CcHuruf := Ord(Pesan[0]);
CcVokal := 0;
For i := 1 to CcHuruf Do
Begin
Huruf := Pesan[i];
If Huruf in Vokal then
CcVokal := CcVokal + 1;
End;
Writeln('DIBALIK');
For i := CcHuruf downto 1 do
write(Pesan[i]);
Writeln;
Write('VOKAL : ',CcVokal,' BUAH');
Readln;
End;

var
pil : integer;
lg:char;
begin
repeat
clrscr;
writeln('----------------------------');
writeln('>>>>>>>>>>>>MENU<<<<<<<<<<<<');
writeln('----------------------------');
writeln('1. menampilkan nama  ');
writeln('2. menghitung luas lingkaran  ');
writeln('3. looping  ');
writeln('4. operasi string ');
writeln('5. array  ');
writeln('6. EXIT ');
write('pilih(1-6) : ');readln(pil);
case pil of
1: begin
menampilkannama;
end;
2: begin
luaslingkaran;
end;
3: begin
cetakkarakter;
end;
4: begin
operasistring;
end;
5: begin
hurufvokal;
end;
6: begin
writeln('terima kasih');
halt;
end;
else writeln('maaf broo yang anda input salah');
end;
writeln('tekan (y/Y) untuk kembali ke menu awal ');
write  ('tekan (t/T) untuk keluar : ');readln(lg);
until (lg= 'T') or (lg= 't');
end.

Penampakan outputnya akan menjadi seperti ini. jika kita running/CTRL+F9 menu yang muncul dan pilihan dan beserta perintahnya akan muncul sesuai angka yang kita pilih.

Ok. cukup sekian dan terimakasih .semoga bermanfaat ^_^happy codding.