PDA

View Full Version : حل یکسری معادلات ریاضی ساده در دلفی



francosoft
یک شنبه 23 اسفند 1383, 11:32 صبح
سلام ما در بک برنامه دلفی می خواهیم 5 تا EDITBOX داشته باشیم.
وقتی BUTTON را زدیم.

برنامه EDITBOX1* EDITBOX2/EDITBOX3/EDITBOX4*EDITBOX5 = EDITBOX6

را حساب کرده و بعد جواب را در EDITBOX 6 بنویسد

لطفا نمونه مثلا را برایم بگذارید.

منتظرم

مرسی :oops:

mehdi_moosavi
یک شنبه 23 اسفند 1383, 11:56 صبح
Edit3.Text := IntToStr( StrToInt(Edit1.Text) * StrToInt(Edit2.Text) )

francosoft
یک شنبه 23 اسفند 1383, 12:04 عصر
سلام

مرسی
دوست عزیز اگر بخواهیم جمع و یا تقسیم بکنیم چی

یک شنبه 23 اسفند 1383, 12:45 عصر
سلام

مرسی
دوست عزیز اگر بخواهیم جمع و یا تقسیم بکنیم چی

:گیج:
خوب جمع یا تفریق میکنیش دیگه .



:موفق:

francosoft
یک شنبه 23 اسفند 1383, 12:55 عصر
می دونم

ولی یک مشکلی است

یکی اینکه اعدا اعشاری را قبول نمی کنه
:D
یکی اینکه برای تقسیم چه کنیم

Delphi Skyline
یک شنبه 23 اسفند 1383, 14:45 عصر
خوب از متغیر های نوع real یا float استفاده کن مثلا :


var a,b,c:real;
a:=strtofloat(a);
b:=strtofloat(edit2.text);
c:=a*b;
edit3.text:=floattostr(c);


بای...

در ضمن برای تقسیم کردن integer از div استفاده کن