Program Sederhana Pascal

Dalam program ini saya membuat sebuah pilihan dengan menggunakan statment kondisi case..of. berikut listing programnya:

uses crt;
label 100;

var
pilihan : byte;
nama : string;
npm,i,j : integer;
kelas : string;
Begin

100:
clrscr;
writeln;
writeln('    >>>Pilihan<<<');
writeln;
writeln('  1.Biodata');
writeln('  2.Deret');
writeln('  3.Exit');
writeln;
writeln('  Masukan Pilihan:');
readln(    pilihan);
begin

case pilihan of
1:begin
clrscr;
writeln;
writeln('  Biodata');
writeln(' -----------');
writeln;
write(' Nama  : '); readln(nama);
write(' NPM   : '); readln(npm);
write(' Kelas : '); readln(kelas);readln;
goto 100;
end;

2:begin
clrscr;
writeln(' Deret');
write(' Masukan deret:');
readln(j);
for j:= 1 to j do
begin
for i:= 1 to j do
write (i); writeln; end;
readln;
goto 100;
end;

3:begin
end;
end;
end;

end.

Output::

MENU

 

 Pilihan 1 : Biodata

Pilihan 2 : Deret

Universitas Gunadarma