contoh source code penggabungan if else than dan case of

program TUGAS_caseof;

uses wincrt;

var pilihan:Integer;

pilihan2:integer;

pilihan1: integer;

 as,ts,tp,r,tinggi,sisi1,sisi2,a,t,hasil:Real;

begin

writeln('program if_case of');

writeln;

writeln('MENU');

writeln;

writeln('1.matematika bangun ruang');

writeln('2.matematika bangun datar');

write('input pilihan =');rea

dln(pilihan);

if pilihan=1 then

begin

writeln('1.volume prisma segitiga siku siku');

writeln('2.luas selimut tabung');

write('pilihan anda ='); readln(pilihan1);

end;

case pilihan1 of

1:begin

writeln('volume prisma segitiga siku siku');

write('alas segitiga =');readln(as);

write('tinggi segitiga =');readln(ts);

write('tinggi prisma =');readln(tp);

hasil:=as*ts*tp/2;

writeln;

writeln('hasil=',hasil:0:2);

end;