كيف اجمع edit +edit.text وظهورها في edit.text اخري

ادوات الموضوع

كيف اجمع edit +edit.text وظهورها في edit.text اخري

ferrero غير متصل

مبرمج هاوي

المشاركات : 52
المواضيع 3
:
: 2
الإنتساب : Nov 2010

17-01-2012, 09:02 AM

abather abdelgdier d كتب :كيف يتم ضرب وقسمة...

كود :
var
a, b: Integer;
c: extended;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
C := (a + b)* 5 / 12;
Edit3.Text :=  FloatToStr(C);

« السابق | التالي »

الردود في هذا الموضوع

كيف اجمع edit +edit.text وظهورها في edit.text اخري - بواسطة ferrero - 17-01-2012, 09:02 AM

التنقل السريع :

يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة