Cara Membuat Program Hitung Lingkaran di Pascal
KeyzeX - Pascal merupakan bahasa pemrograman berbasis desktop yang pertama saya pelajari. Pascal ini sangat mudah sekali untuk Kamu gunakan sudah banyak project-project yang dikembangkan menggunakan pascal ini. Pada kesempatan ini Saya akan mempostingkan project yang saya buat pada masa sekolah dulu, yakni Membuat Program Hitung Lingkaran di Pascal ini yang sudah saya beri tahu diatas bahwa merupakan program untuk membuat perhitungan lingkaran matematika tentunya.
Baca Juga : Mengenal LINE dan Cara Mendaftar Akun LINE Dengan Mudah dan Cepat 2018
Di Aplikasi ini terdapat Constanta atau yang disebut juga sebagai Variable tetap yang nilainya selalu tetap dan tidak pernah berubah-ubah, karena ini merupakan aplikasi perhitungan matematika mengenai lingkaran yang dimana lingkaran ini mempunyai phi pada rumusnya yang nilainya tetap yaitu 3.14 atau 22/7. Karena itu saya akan share aplikasi hitung lingkaran di pascal Berikut adalah hasil dari Cara Membuat Program Hitung Lingkaran di Pascal yang sudah saya praktikan.
Baca Juga : Contoh - Contoh Kode Pada Pascal
Baca Juga : Mengenal LINE dan Cara Mendaftar Akun LINE Dengan Mudah dan Cepat 2018
Di Aplikasi ini terdapat Constanta atau yang disebut juga sebagai Variable tetap yang nilainya selalu tetap dan tidak pernah berubah-ubah, karena ini merupakan aplikasi perhitungan matematika mengenai lingkaran yang dimana lingkaran ini mempunyai phi pada rumusnya yang nilainya tetap yaitu 3.14 atau 22/7. Karena itu saya akan share aplikasi hitung lingkaran di pascal Berikut adalah hasil dari Cara Membuat Program Hitung Lingkaran di Pascal yang sudah saya praktikan.
Cara Membuat Program Hitung Lingkaran di Pascal
Contoh dari Programnya adalah menghitung luas lingkaran, jari-jari dan keliling.
Untuk Source Codenya :
Program Lingkaran;
uses wincrt;
var
phi,r,luas:real;
Begin
WriteLn('==========KeyzeX==========');
WriteLn('Program Hitung Lingkaran');
WriteLn('==========================');
WriteLn;
phi:=3.14;
Write('Masukan r / Jari-Jari'); readln(r);
Luas:=phi*r*r; WriteLn;
WriteLn('Luas',Luas:0:2);
End.
Baca Juga : Contoh - Contoh Kode Pada Pascal