14 September 2008

Rumus Persegi

Pascal Source code
cara kerja nya adalah apabila kita ditanya pilih rumus yang mana lalu pilih 1-4 lalu kita di minta memasukan angka untuk melihat jawabannya dibawah ini merupakan source codenya:



copy kan di noprogram rumus;
uses crt;
label
stop,jump;
var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;

begin
repeat
stop:
textbackground(5);
clrscr;
writeln('===========================================================');
writeln('= pilihrumus =');
writeln('= 1. Luas Persegi panjang =');
writeln('= 2. Luas Segitiga =');
writeln('= 3. keliling persegi panjang =');
writeln('= 4. exit =');
writeln('===========================================================');

write('Masukan Nomor Pilihan Anda (1/2/3/4): ');
readln(NomorMenu);
case NomorMenu of
1: begin
writeln('rumus luas persegi ');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
l_persegi:= pjg*lbr;
writeln('luas persegi adalah ',l_persegi);
readln;
end;
2: begin
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end;
3: begin
writeln('rumus kll persegi');
write('masukan panjang persegi: '); readln(pjg);
write('Masukan Lebar Persegi: '); readln(lbr);
kll_persegi:=2*(pjg+lbr);
writeln('jadi keliling persegi adalah ',kll_persegi);
readln;
end;
4: begin
exit;
end;
end;
goto stop;
until NomorMenu=4;

end.
tepad lalu simpan dengan extension .pas lalu compilerlah menggunakan fpc

Related Posts by Categories



5 komentar:

  1. Bagus2. Terusin belajarnya.
    Kalo bisa ke bahasa2 lainnya.
    Oya kalo mau blog rame sering2 posting n blogwalking.
    Mau tukeran link sama blogku?

    BalasHapus
  2. Mas2, selamat, Anda mendapat PR.
    Monggo dibaca disini

    BalasHapus
  3. knalin ni neni salah satu pts d Bdg,vai msih kecil tp dh pntr bhsa pmrogrman,saluut bngt. moga t'capai yach cita2nya,eh minta emailnya vai donk!! ni almt email neni niez.hyti@gmail.com

    BalasHapus
  4. @niez hai juga mba, nih alamat email saya ahmadrivai14@gmail.com

    BalasHapus
  5. wow..kren....salut deh maa rivai..ne alamat email aku ardila.swarna@yahoo.com

    BalasHapus

silahkan kalau mau komentar,kritik,saran masukan dan pertanyaan bebas