uses wincrt;
var l,p,luas, kllp, r, luasl, kll : real;
var l,p,luas, kllp, r, luasl, kll : real;
const phi = 3.14;
begin
writeln('Menghitung Luas & Keliling Persegi Panjang');
write('Panjang = ');
readln(p);
write('Lebar = ');
readln(l);
luas := p*l;
kllp := 2*(p+l);
writeln('Luas Persegi Panjang = ',luas:0:2);
writeln('Keliling = ',kllp:0:2);
writeln(' ');
writeln('========================');
writeln(' ');
writeln('Menghitung Luas & Keliling Lingkaran');
write('Jari-Jari = ');
readln(r);
luasl:= phi*r*r;
kll := 2*phi*r;
writeln('Luas Lingkaran = ',luasl:0:2);
write('Keliling Lingkaran = ',kll:0:2);
end.
begin
writeln('Menghitung Luas & Keliling Persegi Panjang');
write('Panjang = ');
readln(p);
write('Lebar = ');
readln(l);
luas := p*l;
kllp := 2*(p+l);
writeln('Luas Persegi Panjang = ',luas:0:2);
writeln('Keliling = ',kllp:0:2);
writeln(' ');
writeln('========================');
writeln(' ');
writeln('Menghitung Luas & Keliling Lingkaran');
write('Jari-Jari = ');
readln(r);
luasl:= phi*r*r;
kll := 2*phi*r;
writeln('Luas Lingkaran = ',luasl:0:2);
write('Keliling Lingkaran = ',kll:0:2);
end.
0 komentar:
Posting Komentar
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.