Postingan

Menampilkan postingan dari Februari, 2018

Contoh program freepascal program luas lingkaran dan perhitungan diskon

Gambar
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, ...