|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
(شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder
|
أدوات الموضوع | انواع عرض الموضوع |
|
2013-07-16, 23:13 | رقم المشاركة : 1 | ||||
|
(شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder
بسم الله الرحمن الرحيم
آخر تعديل abou marwan 2013-07-17 في 09:15.
|
||||
2013-07-25, 06:41 | رقم المشاركة : 2 | |||
|
ممكن روابط تحميل النسخة مع التفعيل |
|||
2013-08-09, 09:57 | رقم المشاركة : 3 | |||
|
مشكووووووور على مجهودك |
|||
2014-12-23, 11:03 | رقم المشاركة : 4 | |||
|
|
|||
2014-12-23, 20:20 | رقم المشاركة : 5 | |||
|
جزاك الله خيرا |
|||
2015-02-14, 18:39 | رقم المشاركة : 6 | |||
|
مشكور على الرد و بـــــــــــــــــــــــــــــــارك الله فــــــــــيــك |
|||
2015-03-03, 18:51 | رقم المشاركة : 7 | |||
|
سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري |
|||
2015-03-30, 23:02 | رقم المشاركة : 8 | ||||
|
اقتباس:
ضع على الفورم 6 TLabel ضع على الفورم 3 TButton ضع على الفورم 6 TEdit كود:
procedure TForm1.Button1Click(Sender: TObject); // djelfa var a,b,c : real; // djelfa Delta,x1,x2 : real; // djelfa begin a := StrToCurr(Edit1.Text); // djelfa b := StrToCurr(Edit2.Text); // djelfa c := StrToCurr(Edit3.Text); // djelfa Delta := b*b - 4*a*c; // djelfa if Delta < 0 then Edit4.Text := 'ليس لها حل' else begin x1 := (-b-sqrt(Delta))/(2*a); // djelfa x2 := (-b+sqrt(Delta))/(2*a); // djelfa Edit4.Text := CurrToStr(Delta); // djelfa Edit5.Text := CurrToStr(x1); // djelfa Edit6.Text := CurrToStr(x2); // djelfa end; // djelfa end; // djelfa |
||||
2015-06-03, 19:34 | رقم المشاركة : 9 | ||||
|
اقتباس:
Program n ; Var a,b,c,x,d,x1,x2:real; Begin Write('donne la valeur a='); Read(a); Write('donne la valeur b='); Readln(b); Write('donne la valeur c='); Readln(c); If (a=0) and (b<>0)and (c<>0) then Begin x:=(-c/b); Write ('x=',x); End Else Begin If (a=0) and (b=0)and (c<>0) then write ('pas de solition'); If (a=0) and (b=0)and (c=0) then Writeln('solution infini '); If (a<>0) and (b<>0)and (c<>0) then begin d:=(b*b)-4*(a*c); If (d=0)then Begin x:=-b+sqrt(d)/(2*a); Writeln('solution double x=',x); End Else Begin x1:=-b+sqrt(d)/(2*a); x2:=-b-sqrt(d)/(2*a); writeln('deux solition defferentes'); write('x=',x1); writeln('x=',x2); End; End; End; End. |
||||
2015-03-30, 23:25 | رقم المشاركة : 10 | |||
|
حسام معادلة من الدرجة الثانية ضع على الفورم 6 TLabel ضع على الفورم 3 TButton ضع على الفورم 6 TEdit كود:
procedure TForm1.Button1Click(Sender: TObject); // djelfa var a,b,c : real; // djelfa Delta,x1,x2 : real; // djelfa begin a := StrToFloat(Edit1.Text); // djelfa b := StrToFloat(Edit2.Text); // djelfa c := StrToFloat(Edit3.Text); // djelfa Delta := b*b - 4*a*c; // djelfa if Delta < 0 then Edit4.Text := 'ليس لها حل' else begin x1 := (-b-sqrt(Delta))/(2*a); // djelfa x2 := (-b+sqrt(Delta))/(2*a); // djelfa Edit4.Text := FloatToStr(Delta); // djelfa Edit5.Text := FloatToStr(x1); // djelfa Edit6.Text := FloatToStr(x2); // djelfa end; // djelfa end; // djelfa ] |
|||
2015-04-02, 06:52 | رقم المشاركة : 11 | |||
|
بارك الله فيـــــــــــــــــــــكم |
|||
2015-04-07, 13:53 | رقم المشاركة : 12 | |||
|
جزاك الله خيرا |
|||
2015-04-16, 20:48 | رقم المشاركة : 13 | |||
|
جزاك الله خيرا |
|||
2015-04-20, 16:22 | رقم المشاركة : 14 | |||
|
شكرا لك اخي |
|||
2015-04-24, 10:57 | رقم المشاركة : 15 | |||
|
شكرا جزيلا أخي بالتوفيق
|
|||
الكلمات الدلالية (Tags) |
(شرح), c++builder, الغير, delphi, تثبت, برامجك |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc