Tugas Terakhir Praktikum Pascal 1

Dalam memenuhi Ujian terakhir Praktikum Pascal, dibuatlah menu pilihan yang akan menampilkan dan menjalankan program penjumlahan, program deret angka, program Deret Huruf dan menu exit.

Program ini merupakan penggabungan antara beberapa program yang telah jadi sebelumnya dengan menggunakan case of, sehingga implimentasinya rapi meskipun sedikit banyak.
berikut kode programnya:

Program MenuPilihan;
uses wincrt;


Var
a,e,d:integer;

begin
clrscr;
gotoxy(25,1);writeln('Menu Pilihan Program');
writeln('1. Program Penjumlah Dua Bilangan');
writeln('2. Program Menampilkan Deret Kuadrat 1,4,9....');
writeln('3. Program Deret HUruf Dari Z sampai A');
writeln('4. Exit');
write('Masukan Pilihan Sesuai Dengan Angka Diatas      :');readln(a);

case (a) of
1:
begin
clrscr;
write('Masukan Bilangan Pertama :');readln(a);
write('Masukan Bilangan Kedua   :');readln(d);
e:=a+d;
writeln('Hasil Penjumlahannya     :',e);
writeln(e,' = ',a,' + ',d);

end;
2:
begin
clrscr;

writeln('Deret Kuadrat dan Panjang Deret Sesuai Inputan');
Writeln;
write('Masukan Anka Percabangan                :');Readln(a);
write('Jadi Hasil Percabangannya Adlah         :');
e:=0;
repeat
inc(e);
write(sqr(e),',');
until e = a;
end;
3:
begin
clrscr;
Writeln('Deret Huruf Z sampai A');
writeln;
a:=90;
repeat
write(chr(a),' ');
dec(a)
until a=64;

end;
4:
Begin
Writeln('Terimah Kasih Telah Menggunaka Program Kami');
Writeln('Tertanda MOCH. AFIF');
Writeln('NIM 111210277');
writeln('Kelompok G');

end;
end;
end.