محاسبات ریاضی

سلام دوستان:10:

من میخواستم بدونم چه جوری میتونم دو تا Edit را با هم جمع ، کم ، ضرب و تقسیم کنم

کدی ، کامپوننتی ، جادو یی ، :20::46:

ممنون میشم
بای

فکر نکنم نیاز به جادو باشه ؛در صورت کمبود امکانات باید یه روال برای تبدیل رشته به عدد و بلعکس بنویسی که کار سختی نیست!
اما اگه نمی خوای بنویسی،شرکت Borland برات نوشته: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
strtoint
inttostr
strtofloat
floattostr
و.....

سلام

خوب ادمیرال جون مثل همیشه به موقع رسید... با اجازه Admiral




بهتر بود در تاپیک : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] که در انجمن دلفی هست میگفتی...

خوب اون تاپیک برای سوالات مبتدی هست تا تالار خیلی مبتدی نشه....



برای انجام محاسبات ریاضی هر دو باید عدد باشند. و خروجی Edit عدد نیست... باید تبدیل بشن...

کد:

---

StrToInt(Edit1.Text);

---

حالا برای مثال Edit های 1 و 2 رو با هم جمع میکنیم و در S قرار میدیم.

کد:

---

S := StrToInt(Edit1.Text)+StrToInt(Edit2.Text);

---

همونطور که میدونید S از نوع Integer هست...


بهتره برای بیشتر آشنا شدن با متغیر ها و ... آموزش های تاپیکی رو که معرفی کردم رو بخونید...


موفق باشی

براي جلوگيري از بروز خطا حتما از try-except استفده كنيد. توصيه ميشه بجاي edit هم از maskedit استفده كنيد تا بشه ورودي رو كنترل كنيد

با سلام خدمت دوستان

با عرض پوزش من زیاد از این مثال چیزی حالیم نشد
میشه بیشتر توضیح بدین اصلا
من سه تا Edit دارم حالا من میخوام Edit1 و Edit2 را با هم جمع ، تفریق ، ضروب و تقسیم کنم و جواب رو توی Edit3 قرار بدم

لطفا از اولش برام توضیح بدین از همون جایی که باید کلمات رو تعریف کنیم

یعنی یکی نیست کمکم کنه خیلی لازمش دارم !!!

ممنون
منتظرم
بای

با سلام

روی فرم سه تا Edit و چهار تا Button بذار و واسه Button ها به ترتیب هر کد رو واسه یکی بنویس :

جمع :

کد:

---

Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));

---

تفریق :

کد:

---

Edit3.Text := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));

---

ضرب :

کد:

---

Edit3.Text := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));

---

تقسیم :

کد:

---

Edit3.Text := FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text));

---

در ضمن این یه روش ساده است و بعضی از حالت هایی که ممکن است اتفاق بیافته رو نداره. موفق باشین.

سوالت خیلی ابتداییه نباید تاپیک جدا میزدی ولی ... :

کد:

---

Var
a : integer;
b : integer;

--------------------

a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
edit3.text:=inttostr(a+b);

---

با سلام

خیلی خیلی ممنون

از روش هردوی شما خوشم اومد
:20::20::20:

بازم یه دنیا ممنون
متشکرم
بای

سلام دوستان

حالا یه سوال دیگه
من مثلا 100 رو بر 3 تقسیم میکنم مینویسه 33.3333333 حالا من میخوام اعشاری هاش از بین بره

برای اینکار دوتا متغیر رو بلدم

1. Round(عدد اعشاری)
برای تبدیل اعشار به عدد(به صورت راند کردن)

2.Trunc(عدد اعشاری)
برای تبدیل عدد اعشار به عدد (به صورت حذف اعشار)

حالا من چون دارم روی کارنامه این برنامه کار میکنم یعنی حساب کتاب جواب ها میباشد
و میخوام براش درصد بزنم فکر کنم گزینه شماره 2 بهتره

حالا من موندم چه جوری از این متغیر استفاده کنم اینقدر باهاش ور رفتم جونم بالا اومد

لطف کنید راهنمایی کنید ممنون میشم

منتظرم
ممنون
بای

با سلام

متغیر خودت رو میتونی از نوع Real یا Single یا Double یا . . . تعریف کنی.

در ضمن بجای / از div استفاده کن ببین به دردت میخوره (فقط قسمت خارج قسمت رو میاره)

سلام

بازم مثل همیشه راه جدیدی رو برام پیشنهاد کردی


مشکلی داشتم بازم مزاحم میشم
ممنون
بای