گرد کردن به بزرگترین عدد [بایگانی]

jirjirakk

چهارشنبه 17 تیر 1383, 19:50 عصر

سلام، من میخوام مثلا عدد :

1.33 or 1.9 or 1.01

به بزرگترین عدد گرد بشه

Sepidar

چهارشنبه 17 تیر 1383, 20:45 عصر

functin UpInteger(r:real):integer;
begin
result:=int(r);
if r-result<>0 then inc(result);
end;

jirjirakk

چهارشنبه 17 تیر 1383, 21:51 عصر

تشکر، اما ...

Sepidar

چهارشنبه 17 تیر 1383, 23:54 عصر

جیرجیرک جون سلام
اولا که خیلی حال کردم که از محیط کلاسیک استفاده می کنی
ثانیا هم که به جای int از trunc استفاده کن

jirjirakk

پنج شنبه 18 تیر 1383, 00:08 صبح

خیلی ممنون :) از لطفتون

Mohsen_4194

پنج شنبه 18 تیر 1383, 13:58 عصر

از تابع Ceil هم میتونی استفاده کنی
البته Math رو باید Use کنی