تبديل يك عدد real به integer

من در برنامه ام نياز دارم كه عدد real را به integer تبديل كنم...

يعني برنامه عدد صحيح آنرا به صورت integer بفهمد..
البته من دستورات mod را امتحان كردم ولي جواب نميدهد...
اطفا راهنمايي كنيد..

يعني عدد 12.75 را تبديل به عدد 12 كرده و آنرا نيز به صورت integer در برنامه استفاده كنم....

سلام دوست من ...
دلفی یه تابعی داره که این کار رو انجام میده :
به این صورت :
اول یه متغیر معرفی می کنی و بعد اون مقدار Real رو بهش می دی :

کد:

---

var
 R: Real;
begin
 R:= 12.75;

---

بعد باید از تابع زیر استفاده کنی :

کد:

---

R:= Int(12.75);

---

نکته مهم: برای نشون دادن عدد بدست اومده روی یه Label یا Edit یا کلا به عنوان یه رشته ، نباید از تابع IntToStr استفاده کنی بلکه باید از FloatToStr استفاده کنی :

کد:

---

var
 R: Real;
begin
 R:= 12.75;
 R:= Int(R);
 Label1.Caption:= FloatToStr(R);
end;

---

یه چیز دیگه : اگه می خوای که به صورت Integer ازش استفاده کنی باید همون String به دست اومده رو به Integer تبدیل کنی ...
کلش میشه این :

کد:

---

var
 R: Real;
 N: integer;
begin
 R:= 12.75;
 R:= Int(R);
 Label1.Caption:= FloatToStr(R);
 N:= StrToInt(Label1.Caption);
end;

---

بازم اگه مشکلی بود بگو ...
موفق باشی ...

سلام
من از روش ديگه استفاده ميكنم.
ببين شايد بدردت خورد عددي كه مي خواهي integer بشه
دستور Round بهش ميدي.مثلآ :
Caption:=IntToStr(Round(12.7));

نقل قول:

---

سلام
من از روش ديگه استفاده ميكنم.
ببين شايد بدردت خورد عددي كه مي خواهي integer بشه
دستور Round بهش ميدي.مثلآ :
Caption:=IntToStr(Round(12.7));

---

سلام سولجر جان ...
درسته ... ، اين جوري هم مي شه ...
ولي اين عدد اعشاري رو به نزديكترينشون رند مي كنه ...
ولي آقا محسن مي خواستن كه عدد اعشاريشون به عددي كه توي اعشار هست رند بشه ...
موفق باشيد ...

سلام آقا محمود
خود ايشون فرمودند : يعني عدد 12.75 را تبديل به عدد 12 كرده و آنرا نيز به صورت integer در برنامه استفاده كنم....
توي پست 2.پس يعني رند بشه كه بهترين روش همون دستور Round هست.
اگر هم من اشتباه برداشت کردم ببخشید.

نقل قول:

---

خود ايشون فرمودند : يعني عدد 12.75 را تبديل به عدد 12 كرده و آنرا نيز به صورت integer در برنامه استفاده كنم....
توي پست 2.پس يعني رند بشه كه بهترين روش همون دستور Round هست.
اگر هم من اشتباه برداشت کردم ببخشید

---

سلام سولجر جان ...
شما درست مي گيد ولي :
اگه با Round این کار رو انجام بدیم عدد 13 بدست میاد ولی آقا محسن 12 رو می خواستن ...
کلا هر دو درسته دیگه ... ( ولش کن حالا خودش هرکدوم رو خواست برمی داره )
موفق باشی ...

سلام
پس حالا که اینطوره (می خواهد اعشار رو بندازه)
از دستور Trunc استفاده کن.:)
حتمآ بدرد مي خوره :). ممنون.

نقل قول:

---

سلام
پس حالا که اینطوره (می خواهد اعشار رو بندازه)
از دستور Trunc استفاده کن.
حتمآ بدرد مي خوره . ممنون.

---

سلام ...
عالي بود ...
منم ياد گرفتم ...
دستت درد نكنه ...

سلام

يه توضيح كوچيك گفتم شايد بدرد دوستان بخوره

[HTML]
function Round(X: Extended): Int64;
Returns the value of X rounded to the nearest whole number.


function Trunc(X: Extended): Int64;
Truncates a real number to an integer.



function Int(X: Extended): Extended;
Returns the integer part of a real number.


[/HTML]

اينها رو توي راهنماي دلفي هفت نوشته

موفق باشيد