
تطبيق عملي للمعادلة من الدرجة الأولى 2014
: تعريف التطبيق
تطبيق مجاني لحل المعادلات من الدرجة الأولى مع عرض طريقة الحل بشكل مبسط مع عرض المعادلة الأساسية إنطلاقا إلى إدخال المتغيرات و صولا إلى صياغة المعادلة بشكلها النهائي و أخيرا عرض النتيجة
: الغرض من التطبيق
هو مشروع تطبيقات تعليمية مجانية يحتاج إلى مساهمة أساتذة في الرياضيات و الفيزياء لإيصال الدروس بشكل عملي و تطبيقي من أجل إيصال الدروس بأبسط الطرق الممكنة
: الكود سورس
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
// لقد قمت بوضع الإجراءات المهمة فقط private { Déclarations privées } public { Déclarations publiques } var x:Real; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); VAR a,b:string; begin a:=Edit1.Text; b:=Edit2.Text; if (Edit1.Text<>'') AND (Edit2.Text<>'') then BEGIN if Edit1.Text<>'0' then begin if Edit2.Text='0' then BEGIN Edit3.Text:='0'; END ELSE BEGIN Edit3.Text:=FloatToStr((-1)*StrToFloat(Edit2.Text)/(strToFloat(Edit1.Text))); Edit2.Clear; Edit1.Clear; PANEL4.Caption:=a+'x' +'+'+'('+ b+')'+' = 0 <=> x = -'+'('+b+'/'+a+')'; END; end else ShowMessage('لا يقبل القيمة 0 A المتغير'); Edit1.SetFocus; END ELSE ShowMessage('أدخل القيم من فضلك'); end; procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text<>'' then Edit3.Clear; if Edit1.Text='' then BEGIN Button4.Enabled:=True; END; PANEL4.Caption:='Ax + B = 0 <=> x = - B/A'; end; procedure TForm1.Edit2Change(Sender: TObject); begin if Edit2.Text<>'' then Edit3.Clear; if Edit2.Text='' then BEGIN Button5.Enabled:=True; END; PANEL4.Caption:='Ax + B = 0 <=> x = - B/A';end; |