Tugas Pengganti Ujan Praktikum

Tinggal kopi pastekan ke program paskal, dan jika inin lebih bagus edit code ini sendiri, jika ada salah dan kritik sms atau kirim email saja di restartlamongan@gmail.com


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.