Program   Pilihan_Menu;
Uses      Wincrt;
Var       A,X,Lanjut :String[25];
Pilih,nama :Char;
Z,b,angka,bil1,bil2,hasil  :Integer;
var i: string;
var mau:byte;
data: array [1..5] of string;

Procedure DrawLine;
Const     Dash = ‘=’;
LineLength = 79;
Begin
For Z := 1 To LineLength Do
Write(Dash);
Writeln
End;

function pertambahan (sebut1,sebut2:integer):integer;
begin
pertambahan:=bil1+bil2;
end;

Procedure Biodata_Pembuat_Program;
Begin
Clrscr;
GotoXY(3,2); Writeln(‘Biodata ===>’);
GotoXY(3,3); Writeln(‘Nama       : Ihwatul Islahiyah’);
GotoXY(3,4); Writeln(‘TTL        : Serang, 5 Februari 1992’);
GotoXY(3,5); Writeln(‘Status     : Mahasiswa Lajang’);
GotoXY(3,6); Writeln(‘NIM        : 2225092297’);
GotoXY(3,7); Writeln(‘PT         : Universitas Sultan Ageng Tirtayasa’);
GotoXY(3,8); Writeln(‘Fakultas   : Keguruan Dan Ilmu Pendidikan’);
GotoXY(3,9); Writeln(‘Prodi      : Pendidikan Matematika’);
GotoXY(3,10);Writeln(‘Kelas      : 3D’);
GotoXY(3,11);Writeln(‘Angkatan   : 2009’);
GotoXY(3,12);Writeln(‘Cita-cita  : anak sholehah’);
GotoXY(3,13);Writeln(‘Hobi       : silat, Ngutak-atik Komputer’);
GotoXY(3,14);Writeln(‘No Telp/HP : 087889497380’);
GotoXY(3,15);Writeln(‘Alamat     : kp. ampel RT 07 RW 02 Desa Pulo Ampel Kec. pulo Ampel’);
GotoXY(3,16);Writeln(‘             Serang’);
GotoXY(3,17);Writeln(‘             Banten’);
Writeln;
End;

Procedure pernyataan_universal;
Begin
Clrscr;
Writeln(‘Anda Masuk Pada Program Pernyataan Berkuantor Universal’);
writeln(”);
Writeln(‘<====== Contoh ======>’);
writeln(”);
Writeln(‘Kuantor Eksistensial       : Beberapa siswa membawa buku fisika’);
Writeln(‘kuantor Universalnya Adalah: Semua siswa membawa buku fisika’);
writeln(‘==============================================================’);
Write(‘Masukan pernyataan berkuantor eksistensial : Beberapa ‘);
Readln(a);
Writeln(‘Pernyataan berkuantor universalnya adalah : Semua ‘,a);
writeln;
End;

Procedure pernyataan_eksistensial;
Begin
Clrscr;
Writeln(‘Anda Masuk Pada Program Pernyataan Berkuantor Eksistensial’);
writeln(”);
Writeln(‘<====== Contoh ======>’);
writeln(”);
Writeln(‘Kuantor Eksistensial       : Beberapa siswa membawa buku fisika’);
Writeln(‘kuantor Universalnya Adalah: Semua siswa membawa buku fisika’);
writeln(‘==============================================================’);
Write(‘Masukan pernyataan berkuantor Universal : Semua ‘);
Readln(a);
Writeln(‘Pernyataan berkuantor eksistensialnya adalah : Beberapa ‘,a);
writeln;
End;

Procedure tentang;
Begin
Clrscr;
writeln(‘Program ini adalah buatan Ihwatul Islahiyah’);
writeln(‘Program ini sebagai pemenuhan tugas algoritma dan pemrograman’);
end;

procedure pemakaian_array;
begin
clrscr;
drawline;
writeln(‘Hai ‘,Nama,’ anda masuk pada daftar harga flash disk’);
drawline;

for b := 1 to 5 do
begin
write (‘harga flash disk di kota ke-‘,b);
write (‘ adalah : ‘);
readln (data[b]);
end;
readln;
writeln (‘harga flash disk di kota yang anda inginkan : ‘);
readln (angka);
writeln (‘harga flash disk di kota ke-‘, angka, ‘ adalah ‘ , data[angka]);
end;

procedure pemakaian_function;
begin
clrscr;
drawline;
write(‘Hai ‘,Nama,’ anda masuk pada program penjumlahan’);
drawline;
write(‘masukkan bilangan pertama=’);
readln(bil1);
write(‘masukkan bilangan kedua=’);
readln(bil2);
hasil:=pertambahan(bil1,bil2);
write(‘hasil penjumlahannya adalah=’,hasil);
end;

Begin
Writeln(‘Masukan Nama Lengkap Anda’);
drawline;
Write(‘Nama: ‘);
Readln(x);
drawline;
Writeln(‘OK ‘,x,’ Selamat Bergabung’);
Writeln(‘Kita Akan Belajar pernyataan berkuantor dan ingkarannya’);
Writeln(‘Tekan Enter Dan Ikuti Petunjuknya’);
Readln(x);
drawline;

Repeat
Clrscr;
Writeln;
Writeln(‘                 Program Pernyataan Berkuantor Dan Ingkarannya’);
Writeln(‘                ===============================================’);
Writeln;
Writeln(‘1. Pernyataan Berkuantor Universal’);
writeln(‘2. Pernyataan Berkuantor Eksistensial’);
Writeln(‘3. Biodata Pembuat Program’);
Writeln(‘4. pemakaian fungsi array’);
writeln(‘5. pemakaian function’);
writeln(‘6. Tentang Program’);
Write(‘Masukan Pilihan Anda: ‘);
Readln(pilih);
Writeln;
Case pilih Of
‘1’ : pernyataan_universal;
‘2’ : pernyataan_eksistensial;
‘3’ : biodata_pembuat_program;
‘4’ : pemakaian_array;
‘5’ : pemakaian_function;
‘6’ : tentang;

Else
Clrscr;
Writeln (‘Nomor yang anda masukkan salah!’);
Writeln (‘Pilihannya hanya 1/2/3/4/5/6’);
Writeln (‘Jangan asal pilih!!!!!!!!!!!’);
End;

writeln;
write(‘Kembali Ke Pilihan Tekan [Y/T]: ‘);
readln(lanjut);
Until (lanjut=’t’) Or (lanjut=’T’);

Clrscr;
GotoXY(17,8);Writeln(‘Terima Kasih Telah Menggunakan Program Ini’);
GotoXY(28,10);Writeln(‘Semoga Bermanfaat’);
GotoXY(27,12);Writeln(‘ummy_abee@yahoo.co.id’);
GotoXY(24,14);Writeln(‘ihwatulislahiyah.wordpress.com’);

end.