Pembagian Dan Jumlah Desimal Dalam Pemrograman Pascal

Nabung Emas dan Reksadana Online Rp 10.000

pembagian A/B. Apabila hasil pembagian tidak bulat atau menyisakan beberapa angka di belakang koma, seperti 2/4 = 0,5. Maka baris ke 11 (tulisan writeln('A:B=', hasil:2:  1  );), angka satunya yang dilingkari bisa diubah-ubah. Jika angka satu yang dilingkari diganti jadi 0, maka 2/4 = 1, karena digenapkan. Jika angka satu yang dilingkari diganti jadi 2, maka 2/4 = 0,50.

Langkah selengkapnya sebagai berikut:

1. Masuk ke Dev-Pascal

2. Simpan dengan nama

Project: pBagi

Unit: Bagi

3. Ketik script berikut:

program Pembagian;

var

   a,b:integer;

   hasil: real;

begin

   write('Masukkan nilai A:'); read(a);

   writeln;

   write('Masukkan nilai B:'); read(b);

   hasil:=a/b;

   writeln;

   writeln('A:B=', hasil:2:1);

   writeln;

readln;

readln;

end.

4. Simpan lagi (Ctrl+S)

5. Jalankan dengan menekan tombol F9 di keyboard

Berikut ini tampilan script di Dev-Pascal:

"Investasi Emas dan Reksadana, Untung Mana?."

Youtube: Katabah Com: Menuju 1 jt Konten :)