contoh program pascal case of

semoga bermanfaat.....

program prak2an;
uses crt;
const phi=3.14;
var
    kode,ulang::char;
    luas1, luas2,radius::real;
    alas,tinggi,diameter:integer;
        
begin
     ulang:='Y';
     while ulang <> 'T' do
     begin
     clrscr;
     writeln(' ');
     writeln('Program Menghitung Luas');
     write('Masukan kode: ');readln(jenis);
               case jenis of
          'A': begin
               writeln('Menghitung Luas Segitiga');
               writeln('Masukkan Nilai: ');
               write('alas : ');readln(alas);
               write('tinggi : ');readln(tinggi);
               luas1:=0.5*alas*tinggi;
               writeln;
               writeln('Jadi luas segitiga adalah ',luas1:2:0);
               end;
          'B':begin
                   writeln('MENGHITUNG LUAS LINGKARAN');
                   write('Masukkan Nilai diameter: ');readln(diameter);
                   radius:=diameter/2;
                   luas2:=phi*radius*radius;
                   writeln('Luas Lingkaran adalah ',luas2:2:0);
                   writeln;
               end;

          else
          kode:='jenis lain';
          writeln('Tidak ada');
          end;
          write('apakah anda ingin mengulang lagi?');readln(ulang);
          readln;
          end;
end.