Persamaan linear: Perbedaan antara revisi
Konten dihapus Konten ditambahkan
Perbaikan kesalahan pengetikan Tag: Suntingan perangkat seluler Suntingan peramban seluler |
|||
Baris 1:
program Luas_kel_lingkaran;
uses crt;
const
pi= 3.14;
var
r:Integer;
luas1,kel1:real;
Begin
writeln(' Hitung Keliling Lingkaran');
writeln('=================');
write(' jari jari :'); readln (r);
Luas1:=pi *r*r;
kel1:= 2*pi*r;
writeln(' Luas :', Luas1 :2:2);
writeln(' keliling :',kel1:2*2);
readkey;
end.
== Contoh ==
|