شرح (شرح) كيف تثبت برامجك عند الغير Delphi أو C++Builder

[mohamedpich]

la solution de exercice svp rograme C
dans un magazin
si le montant dachat et inferieur a 500 DA.alors pas de reduction .
si le montant dachat et compris entre 500 et 2000 DA il ya une reduction de 3%
si le montant dachat et superieur a 2000 DA la reduction 5 %
ecrire un progamme qui :
demande de montant dachat
calcul le prix net a payer
aficher le prix net a payer

[طيباوي ابو علي1]

شكرا لكم جميعا

[طيباوي ابو علي1]

من يريد نقل مواضيعي هذه فعليه بذكر اسمي

والمنتدى وشكرا

[hamza548]

جزاك الله خيرا

[لحـن الوفاء]

بارك الله فيك

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وآله وصحبه

إذا كان ثمن الشراء أقل 500 ليس هناك تخفيض
وإذا كان ثمن الشراء محصورة بين 500 و 2000 هناك تخفيض يقدر ب 3٪
وإذا كان مبلغ الشراء يزيد عن 2000 هناك تخفيض يقدر ب 5٪

وهذا حسب فهمي لسؤال

أما بنسب سي فمعلوماتي قليلة جدا وليس مثبتا في جهازي الان فرجو المعذرة
وأسفي شديد لعدم تمكني من الاجابة

واليك هذا المثال حول دلفي

//ecrire un progamme qui
procedure TForm1.BitBtn1Click(Sender: TObject);//djelfa
var
    montant: currency; //djelfa
begin
// demande de montant dachat
  montant := StrToCurr(Edit1.Text); //djelfa
{si le montant dachat et inferieur a 500 DA.alors
pas de reduction .}
  if montant <= 500 then
    Edit1.Text := CurrToStr(montant)//djelfa
{si le montant dachat et compris entre 500 et 2000 DA
il ya une reduction de 3%}
   else if (montant > 500)and(montant < 2000) then
     Edit1.Text := CurrToStr(montant-(montant*3/100))//djelfa
{si le montant dachat et superieur a 2000 DA
la reduction 5 %}
   else if montant >= 2000 then
    Edit1.Text := CurrToStr(montant-(montant*5/100));//calcul le prix net a payer

 // afficher le prix net a payer
  Edit1.Text := FormatFloat('#,##0.00;(#,##0.00)',StrToCurr(Edit1.Text));//djelfa
  montant := 0; //djelfa
end; //djelfa

[meridjihamada]

رائع، شكرا على الموضوع

[Guertar]

شكرا لك - بارك الله فيك ... أخي الكريم

[طيباوي ابو علي1]

شكرا لكم جميعا
وبارك الله فيكم

[طيباوي ابو علي1]

شكرا لكم جميعا
وبارك الله فيكم

[mouhamad2009]

المشاركة الأصلية كتبت بواسطة zahrafleur

سلام عليكم مشكورة ممكن مساعدتي في برنامج حل معادلة من الدرجة الثانية بلغة دلفي ضروري

عفوا اختي على التأخير لم اكن هنا وإن أحتجتي لاي شيء انا هنا
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.

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

أتقدم بالشكر الجزيل الى الاخ mouhamad2009
و الذي نبهني الى الخطأ الذي أرتكبته في ردي على الاخت zahrafleur
فهو مشكور على التوضيح الذي قام به

وبارك الله فيه على هذه المبادرة الطييبة التي قام بها
أتمنى أن يكون هكذا التعاون الجماعي
" كين مثل يقول يد وحدا ما تصفق "

===========================
=
= a*x^2 + b*x + c = 0
=
===========================
1

a = 0
b = 1
c = 1

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*0*1
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*0)
x1 = (-1-sqrt(1))/0
x1 = (-1-1)/0
x1 = -2/0

Div. par zéro impossible
القسمة على صفر مستحيل

-----------------------------
a*x^2 + b*x + c = 0

0*x^2 + 1*x + 1 = 0
0 + 1*x + 1 = 0
1*x + 1 = 0
1*x = -1
x = -1/-1
x = 1

=============================
2

a = 1
b = 0
c = 1

Delta = b*b - 4*a*c;

Delta = 0*0 - 4*1*1
Delta = 0*0 - 4
Delta = 0 - 4
Delta = -4

Delta < 0

ليس لها حل في مجموعة الاعداد الحقيقية R

=============================
3

a = 1
b = 1
c = 0

Delta = b*b - 4*a*c;

Delta = 1*1 - 4*1*0
Delta = 1*1 - 0
Delta = 1 - 0
Delta = 1

Delta > 0

x1 := (-b-sqrt(Delta))/(2*a);

x1 = (-1-sqrt(1))/(2*1)
x1 = (-1-sqrt(1))/2
x1 = (-1-1)/2
x1 = -2/2
x1 = -1

=============================

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c : real; // djelfa
Delta,x1,x2,x : real; // djelfa
begin
  a := StrToFloat(Edit1.Text); // djelfa
  b := StrToFloat(Edit2.Text); // djelfa
  c := StrToFloat(Edit3.Text); // djelfa
  if a = 0 then
  begin
   if b=0 then ShowMessage('ليس لها حل')
   else
   begin
    x := -c/b;
    ShowMessage('الحل هـــــو  '
    +FloatToStr(x));
    Label8.Caption := '';
   end;
  end
  else
  begin
   Delta := b*b - 4*a*c; // djelfa
   if Delta < 0 then
   begin
    Edit4.Text := FloatToStr(Delta); // djelfa
    Label8.Caption := 'ليس لها حل في مجموعة الاعداد الحقيقية R';
   end
   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;
end; // djelfa

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit6.Text := '';
  Label8.Caption := '';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then
  Button1.Enabled := true
   else Button1.Enabled := false; 
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
 Edit1Change(Sender);
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
 Edit1Change(Sender);
end;

قبل التعديل



بعد التعديل

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

والصلاة والسلام على محمد بن عبد الله وعلى آله وصحبه أجمعين

[omariro05]

بارك الله فيك اخي

[طيباوي ابو علي1]

بــــــــــارك الله فـــــــــــــيك