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