Contoh program freepascal program luas lingkaran dan perhitungan diskon
PROGRAM LUAS LINGKARAN DAN PERHITUNGAN DISKON Banyak program yang bisa kita buat didalam free pascal,terutama untuk menghitung beberapa rumus dalam matematika seperti Luas lingkaran,Luas persegi,Menghitung diskon,DLL. Nah kali ini saya akan memberi contoh coding program LUAS LINGKARAN dan PERHITUNGAN DISKON,dan tolong amati dari kedua program tersebut, dari kedua program tersebut masih terdapat beberapa kesalahan untuk dibenarkan sebagai bahan belajar.Berikut contohnya : contoh kode program penghitung luas lingkaran berikut Program Luas_lingkaran; uses crt; varr : integer; L : real; begin clrscr; write(‘Masukan nilai jari-jari = ’); readln (r); L := 3.14*r * r * ; writeln (‘Luas lingkarannya adalah=’,L); readln; end. Berikut contoh kode program perhitungan diskon Program Menghitung_diskon; Uses crt; var harga,diskon,harga_akhir: real; begin write(‘masukan harga barang=’); readln(harga); write(‘masukan prosentase diskon barang, ...