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
