Tugas Pengganti Ujan Praktikum
program paskal, dan jika inin lebih bagus edit code ini sendiri, jika ada salah dan kritik sms atau kirim email saja di kurniawan_er@yahoo.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 ');
Writeln('echo kurniawan);
Writeln('NIM 111210202');
writeln('Kelompok E');
end;
end;
end.
