Pernah puyeng dengan rumus matematika?? Daripada bingung ngapalin, mending bikin contekan rumusnya. Langsung saja buka Turbo Pascal anda dan masukkan kode berikut.

program pilihan;
uses wincrt;
var
nomor : char;
r,p,l,luasp,luaspp,a,t,s : Integer;
luasl,luass : real;

begin
writeln(’*******************************’;
writeln(’     1. LUAS LINGKARAN           ‘;
writeln(’     2. LUAS PERSEGI PANJANG     ‘;
writeln(’     3. LUAS PERSEGI             ‘;
writeln(’     4. LUAS SEGITIGA            ‘;
writeln(’*******************************’;
writeln;
write(’PILIH 1-4 : ‘; readln(nomor);
writeln;
case nomor of
‘1′ :  begin
writeln(’__________________________________’;
writeln;
write(’      masukkan jari-jari : ‘; readln(r);
luasl:= pi*r*r;
writeln(’    LUAS LINGKARAN ADALAH ‘,luasl:3:2);
writeln;
writeln(’__________________________________’;
end;

‘2′ : begin
writeln(’#####################################’;
writeln;
write(’         MASUKKAN PANJANG : ‘;readln(p);
write(’         MASUKKAN LEBAR : ‘;readln(l);
luasp:= p*l;
writeln(’       LUAS PERSEGI PANJANG ADALAH ‘,luasp);
writeln;
writeln(’#####################################’;
end;

‘3′ : begin
writeln(’=====================================’;
writeln;
write(’       MASUKKAN SISI PERSEGI : ‘;readln(s);
luaspp:= s*s;
writeln(’     LUAS PERSEGI ADALAH :  ‘,luaspp);
writeln;
writeln(’=====================================’;
end;

‘4′ : begin
writeln(’~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~’;
writeln;
write(’       MASUKKAN ALAS SEGITIGA : ‘;readln(a);
write(’       MASUKKAN TINGGI SEGITIGA : ‘;readln(t);
luass:= (a*t)/2;
writeln(’       LUAS SEGITIGA ADALAH : ‘,luass:3:2);
writeln;
writeln(’~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~’;
end;
else

writeln(’WOIII.. salah’;
end;

end.

Posting Terkait

• September 6, 2009 -- Membuat Program Billing Warnet Sederhana dengan Pascal (10)