seiring ada tugas di kampus, jadi sekalian aja sharing hehehe...
langsung aja nih,
program luasdankeliling_lingkaran;
uses wincrt;
var luas, keliling : real ;
r : integer ;
const phi = 3.14;
begin
writeln('perhitungan nilai keliling dan luas lingkaran');
writeln;
writeln('--------------------');
write('masukkan nilai jari-jari lingkaran :');readln(r);
keliling:=phi*r*r;
luas:=2*phi*r;
writeln('nilai keliling lingkaran adalah :',keliling:4:2);
writeln('nilai luas lingkaran adalah :',luas:4:2);
writeln('terima kasih ');
end.
sekian dan terima kasih..
RIDWANSIAK
SAYA INGIN MENJADI ORANG SUKSES DI DUNIA DAN AKHIRAT. Jika engkau sedang bimbang , pejamkan lah matamu dan dengarkan lah isi hatimu. Insya Allah ..
Daftar Blog Saya
Daftar Blog Saya
Daftar Blog Saya
Sabtu, 02 November 2013
Senin, 10 Juni 2013
Senin, 25 Februari 2013
Sabtu, 05 Mei 2012
Langganan:
Postingan (Atom)