+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عملية حسابية بالنسبة المؤوية (/showthread.php?tid=1232)
عملية حسابية بالنسبة المؤوية - kwahab - 26-09-2009
كيفية حساب مثلا العملية التالية 122*2.5%
القيمة 2.5% كيف اكتبها فو لايقبل رمز%.
كذلك انا اعرف الصيفة التالية inttostr او العكس
اما بالنسبة للارقام التي تحتوي فاصلة اي من نوع real كيف تكون الصيغة
عملية حسابية بالنسبة المؤوية - TF6M - 26-09-2009
1- 2.5% نحسبها ببساطة رياضيا : Value * 2.5 / 100
2- إستخدم FloatToStrF كم يمكن FormatFloat مثال :
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
A:Real;
begin
A:=123.269;
ShowMessage(FloatToStrF(A,FfFixed,5,4));//FloatToStrF
ShowMessage(FormatFloat('0.00',A));//FormatFloat
ShowMessage(Format('%g',[A]));//Format
endللمزيد و للتوضيح : إبحث عن FloatToStrF, Format, FloatToStr , FormatFloat
http://www.delphibasics.co.uk/index.html
عملية حسابية بالنسبة المؤوية - kwahab - 26-09-2009
جزاك الله خيرا .
عملية حسابية بالنسبة المؤوية - kwahab - 27-09-2009
السلام عليكم
هذه العملية edit1*0.025*edit2*edit3*edit4*edit5*12/400
جربت هذا الكود لكن رسالة خطا تظهرلي
كود :
ap:=strtofloat(edit1.Text)*a*strtofloat(edit2.Text)*strtofloat(edit3.Text)
*strtofloat(edit4.Text)*strtofloat(edit5.Text)*m/k;لم افهم الخطااين