Case of pada pascal

program BIT;

uses wincrt;

var pilihan, sisi1,sisi2,sisi3,panjang,lebar,tinggi,gaya, waktu, lengan,hasil:Integer;

begin 

writeln(' program by Ipah_debug');

writeln;

writeln('pilihan anda ?? ');

writeln;

writeln('1.Matematika ');

writeln('2.Fisika');

write('Pilihan Anda?');readln(pilihan);

writeln;

if pilihan=1 then

begin

writeln('1.Volume Kubus');

writeln('2. Volume Balok');

write('Pilihan Anda?'); readln(pilihan);

writeln;

end;

case pilihan of

1:

begin

writeln('1. Volume Kubus' );

writeln;

write('sisi1:');readln(sisi1);

write('sisi2:');readln(sisi2);

hasil:= sisi1*sisi2*sisi3;

writeln;

writeln('hasil:',hasil);

end;

2:

begin

writeln('2. Volume Balok');

writeln;

write('panjang:');readln(panjang);

write ('lebar:');readln (lebar);

write('tinggi:');readln(tinggi);

hasil:=panjang*lebar*tinggi;

writeln;

writeln('hasil:',hasil);

end;

else

if pilihan=2 then

writeln('1.keliling segitiga');

writeln('2.luas kulit bola');

write('Pilihan Anda?');readln(pilihan);

writeln;

case pilihan of

1:

begin

clrscr;

writeln('1. Mencari Impuls');

writeln;

write('gaya:');readln(gaya);

write('lengan:');readln(lengan);

hasil:=gaya*lengan;

writeln;

writeln('hasil:',hasil);

end;

2:

begin

writeln('2. Mencari Momen');

writeln;

write('gaya:');readln(gaya);

write ('waktu:'); readln (waktu);

hasil:=gaya*waktu;

writeln;

writeln('hasil:',hasil);

end;

end;

end;
end.

SILAHKAN MENCOBA BRO. . . . . . .

 http://ipahdebug22.blogspot.com/2013/02/contoh-dari-case-of-pada-pascal.html