Program Hitung Luas Lingkaran di Pascal

Salam Pascal Mania !

Kali ini mimin mau nge-share bagaimana script menghitung luas lingkaran.

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Lingkaran mempunyai tiga variabel dalam bahasa pemrograman pascal yang saya gunakan, pertama deklarasi variabel phi yang bernilai 3.14 atau 22/7. Kedua, deklarasi variabel jari-jari (r) dan terakhir adalah luas.

Sehingga rumus matematis yang kita dapatkan adalah luas = Π x r².

Adapun skrip nya sebagai berikut, monggo di copas mawon yo :

var
    phi  : real;
    r    : real;
    luas : real;
begin
    write('Masukan jari-jari : ');
    readln(r);
    phi:=3.14;
    luas:=phi * r * r;
writeln('Luasnya : ',luas:2:2);
    readln;
end.

Untuk lebih memahami skrip di atas, bolehlah mimin kasih tau perbarisnya :

1. Baris pertama menjelaskan pemanggilan fungsi variabel
2. Deklarasi variabel phi bertipe data real (desimal)
3. Deklarasi variabel r sebagai jari-jari yang bertipe data real
4. Deklarasi variabel luas sebagai tipe data real (wajib real karena pecahan)
5. Mulai 
6. Inputan jari-jari 
7. Disimpan inputan tadi di variabel r
8. Menentukan bahwa nilai phi adalah 3.14
9. Ini menjelaskan tentang proses perhitungan
10. Mencetak nilai luas
11. Dibaca
12. Selesai

Kalau sudah memahami semua, apabila program tersebut di compile hasilnya kek gini :

Demikian hasilnya, semoga bermanfaat. Makasih telah berkunjung

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman