Jumat, 22 April 2011

Membuat Program Menghitung Luas Lingkaran dengan Turbo Pascal/Free Pascal

20.48

Kali ini saya akan mencontohkan membuat sebuah program sangat sederhana untuk menghitung Luas Lingkaran sederhana dengan Turbo Pascal/Free Pascal, seperti berikut :

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!

Written by

Penulis Lepas, apa yang ditemukan dan dialami bisa jadi bahan tulisan. 100% saya bisa salah!!! atau bisa benar, jadi bila menemukan konten dalam blog ini yang salah atau menyalahi silahkan saya mohon koreksi dari para pembaca.

1 komentar:

Anonim mengatakan...

gagal

 

© 2014 Gapura PangartiDesigned by Templateism

Back To Top