Discussion :

[phoebee]

Allo

Je dois effectuer un tri par insertion d'un enregistrement selon l'ordre décroissant des moyennes, que voilà :

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
 
type
T_Fiche=record
      nom,prenom:STRING;
      moyenne:REAL;
      end;
 
 
 
var
j : integer;  (*  Indice pour le tri, pour parcourir la partie triée*)
i:integer;                          (*  Indice pour le tri, pour parcourir toute la liste*)
indice:integer;
Fiche:ARRAY[1..5]of T_Fiche;     (*Pour enregistrer les données nom,prenom etmoyenne*)
tampon: ???

Voilà. Le tampon, dans lequel je dois placer une valeur avant de la déplacer ou de la comparer doit être de quel type ? Car j'ai esseyé REAL et INTEGER, mais rien n'y fait, j'ai toujours une erreur de compatibilité entre mon tampon et mon enregistrement...


Merci

[neilbgr]

Je dirais que
tampon: T_Fiche;

et que tu compares tampom.moyenne avec Fiche[i ou indice (je ne connais pas ton algo)].moyenne

J'ai bien compris la question ?

[phoebee]

Salut neilbgr

Je vais esseyé ça. Tu as tout à fait bien compris la question. Je te remercie beaucoup.

[phoebee]

Bon,j'ai esseyé ce que tu m'as dit. Voilà mon code de tri:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(*TRIER LES DONNÉES*)
For indice:=2 to 5 do
    BEGIN
    tampon:=Fiche[indice];
    j:=indice-1;
    while ((j>0) and (Fiche[j].moyenne>tampon.moyenne)) do
        BEGIN
        Fiche[j+1]:=Fiche[j];
 
        j:=j-1;
        end;
    Fiche[j+1].moyenne:=tampon.moyenne;
    end;

J'ai dû faire une erreur puisque j'ai une erreur d'imcompatibilité 'INTEGER et REAL'.

J'ai esseyé de changer mes types de variables indice, j et i en REAL, mais j'ai toujours la même erreur. Pourtant, je n'ai pas d'autres variables INTEGER....

Quelqu'un connaît mon problème??

Merci

[phoebee]

J'ai finalement réussi

Merci à toi de m'avoir aider...