Discussion :

[fleurrouge]

salut tout le monde,
Je suis débutante en delphi et j'ai un petit problème.
J'ai un petit programme à faire.
Je veux calculer la moyenne des étudiants comme suis :

resultat = (emd1 + emd2 + tp + td) / 4

mais j'ai un problème.
Voilà mon code :

Code :

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

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
procedure TForm2.Button1Click(Sender: TObject);
var  EMD1      :real; // On déclare ici que N1 et N2 sont des variables de type reel
EMD2      :real; // C'est à dire que N1 et N2 contiendront des données reel
TD  :real;
TP  :real;
Resultat1,Resultat2 :real; // même remarque que pour N1 et N2
 
begin
 EMD1:=StrToFloat(Edit4.Text);
 EMD2:=StrToFloat(Edit5.Text);
 TD:=StrToFloat(Edit6.Text);
 TP:=StrToFloat(Edit7.Text);
 
      Resultat1:= EMD1+ EMD2+TD+TP; // calcul du résultat
      //Resultat1:=StrToInt(Edit7.Text);
 
     Resultat2:= Resultat1 / 4;
 
  Resultat2 :=FloatToStr( Edit8.Text);
  Resultat2 :=FloatToInt( Edit8.Text);
 
 
end;
 
end.

et les erreurs sont les suivantes:

[Erreur] Unit2.pas(61): Types incompatibles : 'Extended' et 'TCaption'
[Erreur] Unit2.pas(62): Identificateur non déclaré : 'FloatToInt'
[Erreur fatale] Project1.dpr(6): Impossible de compiler l'unité utilisée 'Unit2.pas'

J'espère qu'il y a quelqu'un qui peut m'aider
Merci d'avance

[Jipété]

Bonsoir,

Code :

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

1
2
3
  Resultat2 :=FloatToStr( Edit8.Text);
  Resultat2 :=FloatToInt( Edit8.Text);
end.

et les erreurs sont les suivantes:
[Erreur] Unit2.pas(61): Types incompatibles : 'Extended' et 'TCaption'
[Erreur] Unit2.pas(62): Identificateur non déclaré : 'FloatToInt'

Erreur de la ligne 62 : normal, FloatToInt n'existe pas...

Erreur de la ligne 61 : Edit8.Text := FloatToStr(Resultat2); ça devrait être mieux dans ce sens-là...

PS : la prochaine fois, tu évites le sms, en accord avec les règles du forum, merci.
C'est déjà suffisamment compliqué de décortiquer du code tordu, des fois...

[fleurrouge]

salut
bon j'ai essayé mais toujours il y a des problèmes voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm2.Button1Click(Sender: TObject);
var  EMD1      :real; // On déclare ici que N1 et N2 sont des variables de type reel
EMD2      :real; // C'est à dire que N1 et N2 contiendront des données reel
TD  :real;
TP  :real;
Resultat1,Resultat2 :real; // même remarque que pour N1 et N2
 
begin
 EMD1:=StrToFloat(Edit4.Text);
 EMD2:=StrToFloat(Edit5.Text);
 TD:=StrToFloat(Edit6.Text);
 TP:=StrToFloat(Edit7.Text);
 
      Resultat1:= EMD1+ EMD2+TD+TP;  
     Resultat2:= Resultat1 / 4;
 
 
  Resultat2 :=FloatToStr( Edit8.Text);
  Resultat2 :=FloatToInt( Edit8.Text);
  Edit8.Text := FloatToStr(Resultat2);
 
end;
 
end

et voila qu'est ce que j'ai comme erreur

Code :

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

1
2
3
[Erreur] Unit2.pas(63): Types incompatibles : 'Extended' et 'TCaption'
[Erreur] Unit2.pas(64): Identificateur non déclaré : 'FloatToInt'
[Erreur fatale] Project1.dpr(6): Impossible de compiler l'unité utilisée 'Unit2.pas'

[tourlourou]

Jipété t'a donné les solutions !

[Erreur] Unit2.pas(61): Types incompatibles : 'Extended' et 'TCaption'

Code :

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

Resultat2 :=FloatToStr( Edit8.Text);

qu'attends-tu que fasse cette ligne ?
qu'elle affiche Resultat2 dans l'Edit8 ?
ou que Resultat2 prenne la valeur de l'Edit8 ?

pour l'autre erreur, regarde la fonction Trunc, qui doit renvoyer la partie entière d'un réel, car FloatToInt n'existe pas.

au passage, si tu affiches 2 choses différentes dans Edit8 dans 2 instructions consécutives, ça promet d'être suffisamment rapide pour rater la première info !

[fleurrouge]

salut
c'est bon c'est résolu mais et voila c'est que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm2.Button1Click(Sender: TObject);
var  EMD1      :real; // On déclare ici que N1 et N2 sont des variables de type reel
EMD2      :real; // C'est à dire que N1 et N2 contiendront des données reel
TD  :real;
TP  :real;
Resultat1,Resultat2 :real; // même remarque que pour N1 et N2
 
begin
 EMD1:=StrToFloat(Edit4.Text);
 EMD2:=StrToFloat(Edit5.Text);
 TD:=StrToFloat(Edit6.Text);
 TP:=StrToFloat(Edit7.Text);
 
      Resultat1:= EMD1+ EMD2+TD+TP; // calcul du résultat
 
     Resultat2:= Resultat1 / 4;
 
  Edit8.Text := FloatToStr(Resultat2);
 
 
end;

mais le problème qui se pose c'est quand je rentre la valeur 13.33 dans edit4 pour emd1 et d'autre champ exemple emd2 14.25
dans l'exécution il pose le problème suivant :

Code :

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

13.33 n'est pas une valeur en virgule flottante correcte

13.33 n'est pas une valeur en virgule flottante correcte

[ShaiLeTroll]

Comme tu es débutant, je vais t'apprendre la chose la plus importante que tu dois connaitre la touche F1 donnant accès l'aide de Delphi !
D'où tu sors FloatToInt, faut vérifier que les fonctions existent !



Pourquoi real ?
Selon la version de Delphi, il est codé en 48 ou 64bits
utilise des Double ou Extended !

Attention 13.33 et 14.25 c'est ce que l'on écrit dans le code source
Si tu as un OS Français, StrToFloat utilise une virgule (voir DecimalSeparator) donc 13,33 et 14,25 dans le TEdit !