Cara Bulatkan Desimal di Delphi

Assalamu'alaikum Wr Wb

Salam Dellap ...!

Sekarang ini kami akan mengajarkan kepada Anda bagaimana membulatkan bilangan desimal. Pembulatan beberapa bilangan di belakang koma sangat penting mengingat terkadang program akan mengkompile hasil operasi 15 angka di belakang koma. Tentunya, pembulatan seperti ini tidak Anda inginkan. Mungkin terhadap hasil operasi bilangan real Anda hanya ingin membulatkan 3-5 angka saja di belakang koma. OK, langsung saja.

Perhatikan Form berikut ini:

Pada Program sederhana di atas, kami menggunakan operasi pembagian pada tombol Hitung. Adapun sintaksisnya sebagai berikut:

Sintak “floattostr” hanya mengubah bilangan real ke string tanpa pembulatan. Sedangkan “formatfloat” akan memformat hasil operasi ke pembulatan yang anda inginkan, misanya ‘0.###’ artinya pembulatan 3 angka belakang koma. Jadi, jumlah pagar menunjukkan jumlah pembulatan.

Di samping itu, ada juga sintak untuk pembulatan bilangan desimal tapi agak panjang, yakni:

Edit4.Text:=floattostr(round(1000*c)/1000);

Sintak di atas melakukan pembulatan 3 angka di belakang koma. DKL:

100 : pembulatan 2 angka belakang koma

1000 : pembulatan 3 angka belakang koma

10000: pembulatan 4 angka belakang koma, dan seterusnya.

Jadi, lebih baik gunakan sintak pertama di atas yang lebih praktis. OK, sampai jumpa di tulisan kami berikutnya. Salam Dellap ...!

Wassalamu’alaikum Wr Wb.

 Penulis: Syaharuddin