CONTOH UJIAN PRAKTEK UAS ALGORITMA

program menu;

uses crt;

label satu,dua,mulai,selesai,selesai2;

var
   pil,a,b,hasil  : integer;
   pil2           : string;

begin
   mulai:
   clrscr;
   writeln('PROGRAM PENGHITUNG LUAS BANGUN');
   writeln;
   writeln('1. LUAS PERSEGI PANJANG');
   writeln('2. LUAS LINGKARAN');
   writeln;
   write('MASUKKAN YANG INGIN ANDA HITUNG? ');readln(pil);

   if pil=1 then goto satu
   else if pil=2 then goto dua
   else goto selesai;

   satu:
   clrscr;
   writeln('PROGRAM PERSEGI PANJANG');
   writeln('=============================================================');
   writeln;
   write('MASUKKAN PANJANG : ');readln(a);
   write('MASUKKAN LEBAR   : ');readln(b);
   hasil:=a*b;
   writeln;
   write('LUAS PESEGI PANJANG ADALAH = ',hasil);

   readln;
   goto selesai;

   dua:
   writeln('PROGRAM LINGKARAN');
   readln;
   goto selesai;

   selesai:
   writeln;
   write('APAKAH ANDA INGIN MENGULANGI PROGRAM (Y/T)? ');readln(pil2);
   if pil2='Y' then goto mulai
   else goto selesai2;

   selesai2:
   end.