Program   Pilihan_Menu;
Uses      Wincrt;
Var       A,X,Lanjut :String[25];
Pilih    :Char;
Z        :Integer;

Procedure DrawLine;
Const     Dash = ‘=’;
LineLength = 79;
Begin
For Z := 1 To LineLength Do
Write(Dash);
Writeln
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;

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. Tentang Program’);
Writeln;
Write(‘Masukan Pilihan Anda: ‘);
Readln(pilih);
Writeln;
Case pilih Of
‘1’ : pernyataan_universal;
‘2’ : pernyataan_eksistensial;
‘3’ : biodata_pembuat_program;
‘4’ : tentang;

Else
Clrscr;
Writeln (‘Nomor yang anda masukkan salah!’);
Writeln (‘Pilihannya hanya 1/2/3/4/5’);
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.

 

untuk melihat silahkan download disini