tugas praktikum case of

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.

Posted in: