(CKT) Cara membuat program mencari luas lingkaran di aplikasi pascal

Cara membuat program mencari luas lingkaran di aplikasi pascal

selamat bertemu kembali di blog saya,,,

nah,, kali ini saya akan mambagikan cara bagaimana membuat sebuah program mencari Luas Lingkaran pada aplikasi pascal.

langkah - langkah nya sebagai berikut

Luas Liagkaran

Rumus =

jadi itu diatas merupakan rumus dari mencari luas lingkaran dengan soal

phi = 22/7

r    = 21

berikut kode programnya di pascal

program Luas_Lingkaran;

uses crt;

const phi=22/7

var L,r;

begin

clrscr;

writeln('Program Mencari Luas Lingkaran Hendrik Blogspot');

writeln('Input Nilai Jari Jari (r)=');read(r);

L :=phi*r*r;

writeln('L=',L);read(L);

readln;

end.

itulah kode program yang diketikkan di program aplikasi pascal supaya dapat mencari hasil dari luas lingkaran. dan jika sudah terbuat maka bisa menggunakan soal lain

dan hasil dari program diatas adalah

perlu saya jelaskan bahwa jika kode program yang kita gunakan seperti diatas maka hasilnya akan menampilkan semua hasil dengan panjang namun untuk mendapat nilai pastinya yang sesuai dengan jawabannya lihat tulisan +03

Jika disanan tertulis 03 maka cukup ambil angka 3 bilangan dibelakang tanda titik

jadi 1.368000000E+03 menjadi 1368 

jadi jawabannya yaitu 1368, tetepi jika disanan menusi +02 maka yang diambil cuma 2 bilangan dan begitu seterusnya pada soal-soal lainnya.

baik, demikian saja tutorial kali ini semoga bermanfaat bagi teman-teman.

untuk melihat Video Tutorialnya silahkan klik link berikut https://www.youtube.com/watch?v=3k6444naCQY&feature=youtu.be