Membuat Program Menghitung Luas Lingkaran dengan Turbo Pascal

 


listing kodenya seperti berikut :
uses crt;
var 
r,L: real;
begin
  Clrscr;
     gotoxy(4,2);write('Luas Lingkaran : ');readln;
     gotoxy(4,3);write(Jari-jari : ');readln(r);
    L:=3.14*r*r;
     gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;
end.
Maka bila telah selesai silahkan di run tampilanya seperti berikut : 


 *Catatan

  • gotoxy adalah perintah untuk menempatkan awal posisi penulisan dan penampilan (kolom dan baris).

  • L:=3.14*r*r adalah rumus untuk mencari luas lingkaran.


Selamat Mencoba!

 

4 komentar:

{ Rizal } at: 30 Juli 2013 pukul 09.21 mengatakan...

buat belajar anak2 SMA kayaknya seru nih

{ Unknown } at: 27 Februari 2015 pukul 17.52 mengatakan...

Tapi Kenapa ya setelah di pencet enter output nya hilang ?

{ Unknown } at: 27 Februari 2015 pukul 17.52 mengatakan...

Tapi Kenapa ya setelah di pencet enter output nya hilang ?

{ fahmi ilmawan } at: 28 Maret 2018 pukul 21.15 mengatakan...

assalamu'alaikum,kak saya ingin bertanya kalo ini gunanya untuk apa ya? L:2:2
di bagian ini gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;

terimakasih

Posting Komentar