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 09.21 mengatakan...

buat belajar anak2 SMA kayaknya seru nih

{ Nisa Fadillah } at: 27 Februari 2015 17.52 mengatakan...

Tapi Kenapa ya setelah di pencet enter output nya hilang ?

{ Nisa Fadillah } at: 27 Februari 2015 17.52 mengatakan...

Tapi Kenapa ya setelah di pencet enter output nya hilang ?

{ eko saputra } at: 14 Oktober 2016 09.11 mengatakan...

cari Tiket Pesawat Murah? Dapatkan segera hanya di SELL TIKET.com Klik disini:
selltiket.com
Booking langsung tanpa antri... HARGA Di Jamin Murah!!!
CEPAT,….TEPAT,….HARGA HEMAT!

Ingin usaha menjadi agen tiket pesawat??
Yang memiliki potensi penghasilan tanpa batas.
Bergabung segera di agen.selltiket.com

INFO LEBIH LANJUT HUBUNGI :
No handphone : 085363402103
PIN : D364EDCB

Poskan Komentar