Program Menghitung Luas dan Keliling Lingkaran

Menghitung Luas sebuah lingkaran bila dilakukan secara manual dengan rumus :

Luas = Phi* SQR(Jejari)
mungkin agak sedikit sulit bagi yang kurang memahami rumusnya, sama halnya dengan menghitung Keliling sebuah lingkaran dengan rumus :
Keliling =2* Phi * SQR(Jejari)
sulit karna mungkin tidak memahami maksud dari rumus itu sendiri, tapi semua itu akan mudah jika dikerjakan dengan sebuah program, maka disini saya akan memberikan sebuah list program bahasa Pascal untuk menghitung Luas dan keliling Lingkaran, langsung aja cekidot :



uses crt;

const

phi=3.14159;

var

Luas,Jejari,Keliling : real;

begin

clrscr;

write('Masukkan jari jarilingkaran : ');

readln(Jejari);

Luas := Phi * SQR(Jejari) ;

Keliling:=2 * Phi * SQR(Jejari);

writeln('Luas lingkaran adalah : ', Round(Luas));

writeln('Keliling lingkaran :', Round(Keliling));

readln;

end.

Langsung aja di CoPas ke program pascal agan.
Semoga Berhasil : )

0 komentar:

Posting Komentar