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