التحكم بالأعداد

وبما أنني أنا الذي أقترحت (حلوة اقترحت هاذي) فسأكون أول المشاركين بإضافة التوابع الرياضية

أولاً: التوابع الرياضية الأساسية الأربع وهي الجمع والطرح والضرب والقسمة وكودها كالتالي:

الجمع

Var
Num1,Num2,Result:integer;
Result:=Num1 + Num2;

الطرح

Var
Num1,Num2,Result:integer;
Result:=Num1 - Num2;

الضرب

Var
Num1,Num2,Result:integer;
Result:=Num1 * Num2;[CODE]

التقسيم
[CODE]Var
Num1,Num2,Result:Real;
Result:=Num1 / Num2;

الجذر التربيعي لعدد ما

Var
X,XResult:Real;
XResult:=Sqrt(X);

الجذر التكعيبي لعدد ما

والله أنا أعيد التابع السابق مرتين

تربيع عدد ما

Var
X,XResult:Real;
XResult:=Sqr(X);

ملاحظة هامة: إن كل من عمليات الجمع والطرح والضرب تقبل كافة التوابع العددية أما القسمة والجذر التربيعي فلا تقبل الأعداد الصحيحة

وأرجوا أن أكون أفدتكم

إيميلي هو:Aboalnoor@maktoob.com

آخر وصايا سيدنا محمدصلى الله عليه وسلم:الصلاة الصلاة وما ملكت أيمانكم

Aboalnoor-Delphi7 كتب:

أولاً: أنا لا أريد كل هذه الأرقام أريد أول رقم بعد الفاصلة هكذا

10.5

←

ShowMessage(FormatFloat('0.#',10.59856246325));

Aboalnoor-Delphi7 كتب:

ثانياً: إذا أردت تحويله إلى عدد صحيح

مثلاً من:

10.5

إلى

10

←

ShowMessage(FormatFloat('0',trunc(10.59856246325)));
أو 
ShowMessage(FloatToStr(int(10.59856246325)));

Aboalnoor-Delphi7 كتب:

ثالثاً

كيف أمنع المستخدم من إضافة أكثر فاصلة واحدة.

←

يمكنك إستخدام الحدث OnkeyPressed بحيث تمنع النقطة في حالة وجودها

مشكور أخوي DeltaAziz

ولكن أريد لماذا توقفت عند هذا الحد

أنا أرجوا من كل الأعضاء كتابة كافة التوابع الرياضية لكي تكون مرجعاً لكل الأعضاء لأن أكثرهم يعانون من ضعف في هذا الموضوع

وأنا واحد منهم طبعاً

وكما تعلمون أن الرياضيات أساس البرمجة

أرجوا من كافة الأخوة في المنتدى إضافة كافة التوابع الرياضية وطرق التعامل معها

مثلاً

ماهو التعديل علي الكود الذي يترك رقم واحد بعد الفاصلة ليترك فاصلتين مثلاً

ShowMessage(FormatFloat('0.#',10.59856246325));

وما إلى ذالك في التعامل مع الأرقام

وكم جزيل احترامي وتقديري لكل أعضاء المنتدى