Arsip: Pembulatan angka 500 atau ceiling 500

more 15 years ago
cheetoozz
dear all
mohon bantuannya gimana cara pembulatan angka 500 atau ceiling 500
contoh :
166677 menjadi 166700
166325 menjadi 166500
mohon bantuan rekan2 semua terima kasih
salam

more 15 years ago
mas_kofa
dimisalkan suatu bilangan x yang akan dibulatkan, maka ikuti coding sbb :
{
x, d, m : integer;
}
d := x div 500;
m := x mod 500;
if m > 0 then inc(d);
x := d * 500; //hasil pembulatan.
silahkan dicoba.............

more 15 years ago
cheetoozz
terima kasih atas pencerahan mas_kof...kemudian saya coba buatkan function sbb:
Function UpGopek(xValue : Double) : Double ;
var
d, m : integer;
x : Double ;
begin
x := xValue;
d := x div 500; ---baris 195
m := x mod 500;
if m > 0 then inc(d);
x := d * 500;
end;
sewaktu dicompile eror
[Error] DMUnit.pas(195): Operator not applicable to this operand type
apa maksud dr eror diatas..mohon pencerahannya ...trima kasih
salam

more 15 years ago
_lmz
Div adalah integer divide (cuma untuk integer dibagi integer hasilnya integer juga), sedangkan tipe var x di program anda adalah double.

more 15 years ago
widi
aku jalanin koding yang dari @mas kofa, tanpa function n variable x pakainya integer, bukan double.
bisa jalan tuch. aku jadi lupa nich bedanya double ama integer apa yach, kayaknya belum pernah pakai double :P

more 15 years ago
portege
Cheetoozz,
operator Div dan Mod hanya mengenal tipe operand untuk integer.
kalo di liat algoritma-nya:
166001 menjadi 166500
emang harusnya kayak gitu?

more 15 years ago
mas_kofa
kalo double itu bilangan pecahan 64 bit (di atas real);
kalo integer itu bilangan bulat.........
double setara dengan longint (64 bit) .....
kalo gak salah lho.....
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- tanya query pada MS Access
by shindo in Hal umum tentang Pascal Indonesia more 15 years ago - ino setup
by strike_set in Tutorial & Community Project more 15 years ago - Form Multi
by khairulfahmi in Tip n Trik Pemrograman more 14 years ago - can't install because not in design time package
by ndenkltop in Hal umum tentang Pascal Indonesia more 15 years ago - [ASK] Cari komponen query dan table yang aktif
by always_newbie in Tip n Trik Pemrograman more 15 years ago - Need Attention Please! About HACKER TATA KRAMA
by DelphiExpert in Hal umum tentang Pascal Indonesia more 16 years ago - Simpan Record Baru secara bersamaan
by hendra74 in Hal umum tentang Pascal Indonesia more 14 years ago - ambil tanggal & jam milik komputer server
by imunk in Enginering more 17 years ago - Suara ke text
by DeulleDo-X in Tip n Trik Pemrograman more 15 years ago - Retrieve table structure
by bboyz in Tip n Trik Pemrograman more 14 years ago