program pembagiaan;
uses wincrt;
var a,b,h:real;
begin
writeln('===PEMBAGIAN===');
writeln('=================');
write('Masukan Angka Pertama = ');read(a);
write('Masukan Angka Kedua = ');read(b);
h:=a/b;
writeln('Angka Pertama : Angka Kedua = Hasil Pembagian');
writeln(a, ' : ',b, ' = ' ,h);
writeln('Hasil Operasi Pembagian Anda Adalah ',h:0:2);
end.
Nb: untk program pembagia dari integer yang biasanya digunakan pada operasi aritmatika pada umumnya dan pada operasi pembagian digunakan real karena hasil pembagian bisa berupa bilangan desimal.
Terima kasih atas kunjungan anda.
Tidak ada komentar:
Posting Komentar
W A R N I N G !!!
=Pembaca yang Baik selalu Meninggalkan Komentar=
~ Berkomentarlah secara baik dan sopan maka admin akan merespon
~ JANGAN ANONIM
~ Komentar Sesuai dengan Topik Pembicaraan
~ Tidak Menyertakan Link Aktif
~ Dilarang Promosi dalam Bentuk Apapun !