Discussion :

[sp2308]

Bonjour

J ai un pb dans ma boucle de tri due au low, enfin je pense.
Je ne comprends pas.J imagine que je dois attribuer .value mais si je fais

Code :

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

 For ii:=Low(Tab.value) To High(Tab.value)-1 Do

j ai le meme message....
J ai le message d erreur operateur ou point virgule manquant
merci de votre aide.

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
26
27
28
29
30
31
procedure TForm2.Test_Spearman(T: Integer);
var
  tab : array[1..100]  of record
        id : integer;
        value : double;
        end;
 
   I,J,ii,jj: integer;
  temp  : double;
begin
 
  for I := T+1 to compteur do
  begin
    //---remplir tableau
    for j := (I-T)+1 to I do
      begin
      Tab[j].id:=j;
      Tab[j].value:=open[i];
      end;
 
    //---trier le tableau
    For ii:=Low(Tab) To High(Tab)-1 Do
	    For jj:=ii+1 To High(Tab) Do
		    If Tab[ii].value>Tab[jj].value Then
  			  Begin
    				temp:=Tab[ii].value;
    				Tab[ii].value:=Tab[jj].value;
    				Tab[jj].value:=temp;
  			  End;
   end;
end;

[Linkin]

La syntaxe du code est correcte. Quels sont les problèmes? Le tri est mal fait?

[anapurna]

Salut

Bonjour

J ai un pb dans ma boucle de tri due au low, enfin je pense.
Je ne comprends pas.J imagine que je dois attribuer .value mais si je fais

Code :

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

 For ii:=Low(Tab.value) To High(Tab.value)-1 Do

j ai le meme message....
J ai le message d erreur operateur ou point virgule manquant
merci de votre aide.

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
26
27
28
29
30
31
32
procedure TForm2.Test_Spearman(T: Integer);
var
  tab : array[1..100]  of record
        id : integer;
        value : double;
        end;

   I,J,ii,jj: integer;
  temp  : double;
begin

  for I := SUCC(T) to compteur do // C'est quoi compteur ?
// Toujours plus grand que t ?
  begin
    //---remplir tableau
    for j := SUCC(I-T) to I do 
    begin
      Tab[j].id:=j;
      Tab[j].value:=open[i];// C'est quoi open[i]
    end;

    //---trier le tableau
    For ii:=Low(Tab) To Pred(High(Tab)) Do
	    For jj:=succ(ii) To High(Tab) Do
		    If Tab[ii].value>Tab[jj].value Then
  			  Begin
    				temp:=Tab[ii].value;
    				Tab[ii].value:=Tab[jj].value;
    				Tab[jj].value:=temp;
  			  End;
   end;
end;

en fait j'ai peur que tes bornes ne soient pas correctement défini
mise a part cela la syntaxe parait correct

@+ Phil

[sp2308]

mon pb vient du low(tab).
Je ne sais pas comment lui attribuer specifiquement tab.value et non tab.id car si on precise rien, que prend il en compte ?

J ai rempli le tableau je l affiche, il n y a aucun pb mais le tri ne passe pas avec toujours le meme message d erreur :
operateur ou point virgule manquant

[Andnotor]

Low renverra toujours la limite inférieure du tableau et High la limite supérieure. Peu importe la structure des records qui constituent le tableau.

Dans ton cas:
Low(Tab) = 1
High(Tab) = 100

Et puisque ton tableau n'est pas dynamique, tu pourrais simplement les remplacer par 1 et 100.

Maintenant, ton erreur est pour le moins surprenante puisque ce message est renvoyé à la compilation lorsqu'un ligne de code n'a pas été terminée par un ";" et non à l'exécution .

[sp2308]

bon je me suis sans doute expliqué comme un âne.

C est effectivement à la compilation que j ai ce message....

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

[dragonno]

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

peut-etre que la réponse d'Annapurna^^

en fait j'ai peur que tes borne ne sont pas correctement définies
mise a part cela la syntaxe parait correcte

EDIT :
Si le code est bon c'est que la virgule manquante est dans la fonction low ou hight non ?

Y a ça aussi à voir :

Code :

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

for I := SUCC(T) to compteur do // C'est quoi compteur ?

Et les autres remarques sur le code de Annapurna.

EDIT :
A quelle ligne il te fait le problème ?
Faut le noter.

Et pour ça :

Code :

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

1
2
If Tab[ii].value>Tab[jj].value Then
  			  Begin

Si tu mettait :

Code :

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

1
2
If Tab[jj].value<Tab[ii].value Then
  			  Begin

Parce que c'est jj qui varie dans la boucle et ii qui sert de controle, c'est un essai à faire.

[Andnotor]

par contre je ne comprends pas, si je remplace low et high par des valeurs ou des variables declarees je n ai plus aucun probleme, ça compil...

Ok! Alors le seul problème possible est que tu as déclaré des variables Low et High qui masquent les fonctions Low,High définies dans l'unité System .

Ce code renvoi cette erreur :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
  Tab :array[1..100] of integer;
  i :Integer;
  Low :integer;  //<-- Cette variable masque le Low de System.pas
begin
  for i := Low(Tab) to High(Tab) do;
end;

Soit tu changes le nom des variables, soit tu prefix les Low, High avec System.

Code :

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

  for i := System.Low(Tab) to System.High(Tab) do;

[sp2308]

Code :

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

for I := SUCC(T) to compteur do // C'est quoi compteur ?

Et les autres remarques sur le code de Annapurna.

Ben je sais pas c est pas dans mon script....

[sp2308]

Ok! Alors le seul problème possible est que tu as déclaré des variables Low et High qui masquent les fonctions Low,High définies dans l'unité System .

Effcetivement ,j ai fais ça

Merci pour vos reponses et ce que j y ai appris