Cara Membuat Program Penghitung Luas Lingkaran

setelah saya mempostingkan "cara membuat program penghitung luas persegi panjang"  sekarang saya akan memposting cara membuat program penghitung luas lingkaran, langsung saja untuk mempersingkat waktu silahkan di simak sebagai berikut



hal pertama yang dilakukan adalah membuka program free pascal / turbo pascal
lalu buat lembarkerja baru, jika sudah silahkan anda ketik code / script berikut ke lembar kerja anda

program luaslingkaran; uses crt; var r,luas : real; begin clrscr; writeln('Menghitung Luas Lingkaran by Wahyudi'); writeln('------------------------------------'); writeln; write('Masukkan Nilai Jari-Jari lingkaran : '); readln(r); luas := 3.14*r*r ; writeln('luasnya: ',luas:2:2); readln; end.

setelah anda mengetikkan  code di atas lalu anda pilih compile untuk mengecek apakah program yang anda buat bisa berjalan dengan lancar atau tidak. jika compile sukses silahkan anda run untuk mencoba programnya. jika sudah silahkan anda save. Selamat mencoba ^_^