Discussion :

[Nadirov]

salut

j'ai fait 3 edit et un boutton

le truc c'est de ecrire dans le premier la 1ere note que l'eleve a eu et en 2 la 2eme note que l'eleve a eu et puis ca addition et divise par 2

exemple 5+5/2

j'ai mis ce code mais j'ai un probleme dans : " res:=a+b/2;"

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
res:integer;
begin
a:=StrToInt (edit4.Text);
b:=StrToInt(edit5.Text);
res:=a+b/2;
Edit6.Text:=IntToStr(res);
end;

[slimjoe]

salut

j'ai fait 3 edit et un boutton

le truc c'est de ecrire dans le premier la 1ere note que l'eleve a eu et en 2 la 2eme note que l'eleve a eu et puis ca addition et divise par 2

exemple 5+5/2

j'ai mis ce code mais j'ai un probleme dans : " res:=a+b/2;"

a+b/2 ça donne un réel, pas un entier. Pour que ça fonctionne, il faudrait que res soit de type double et que tu places res dans Edit6 de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit6.Text := FloatToStr(res);

Donc si on résume ça devrait ressembler à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
  b: integer;
  res: double;
begin
  a := StrToInt(edit4.Text);  
  b := StrToInt(edit5.Text);
  res := a+b/2;
  Edit6.Text := FloatToStr(res);
end;

Bon dev!

[alx1603]

Le problème est ????
Si c'est un problème de math, n'oublis pas que la division est prioritaire sur l'addition.

Edit :
Il y a aussi le problème de l'entier effectivement.

[slimjoe]

Le problème est ????
Si c'est un problème de math, n'oublis pas que la division est prioritaire sur l'addition.

+1 : N'oublie pas les parenthèses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
  b: integer;
  res: double;
begin
  a := StrToInt(edit4.Text);  
  b := StrToInt(edit5.Text);
  res := (a+b)/2;
  Edit6.Text := FloatToStr(res);
end;

[Nadirov]

non dsl ca marche pas

pour ce code :

procedure TForm1.Button1Click(Sender: TObject);
var
a: integer;
b: integer;
res: double;
begin
a := StrToInt(edit4.Text);
b := StrToInt(edit5.Text);
res := a+b/2;
Edit6.Text := FloatToStr(res);
end;

quand je met : 16+17/2=24.6

c'est pas du math ca !!

merci de m'aider

[Thierry Laborde]

salut,

Slimjoe et alx1603 t'on répondu, il ne faut pas oublier les parenthèses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

res := (a+b)/2;

Bon dev.

[Nadirov]

Voila c'est fait merci !!