Discussion :

[lina24]

bonsoir
je vous expose mon problème j'ai un tp a faire en structure de donnée en delphi donc j'ai fais la procédure .et je ne sais pas comment la traduire en delphi ( array etc....) pour compiler ,j'ai quelques notions mais j'arrive pas a le traduire.
pouvez vous m'aidez ? c'est un tp que je devrais rendre ds 2jours ( c'est un bonus que le prof nous a fait)
j'ai trouvé des cours très intéressant sur ce site , mais comme c urgent j'ai pas le temps de prendre mon temps de lire tout
voila la procédure récursive :

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
procedure TriFusion (var t:tab;g, d: integer);
var i, j, k, m: integer;
s:tab
begin
if g < d then
begin
m := (g + d) div 2;
TriFusion (t,g, m);
TriFusion (t,m + 1, d);
for i := m downto g do s[i] := t[i];
for j := m+1 to d do s[d+m+1-j] := t[j];
i := g; j := d;
for k := g to d do
if s[i] < s[j] then
begin t[k] := s[i]; i := i + 1 end
else
begin t[k] := s[j]; j := j - 1 end;
end;
end;

je vous remercie

[anapurna]

salut

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
...
const
  n=15;
type
  Ttab = array[1..n] of integer;
var
  tab:Ttab;
  i:integer;
 
procedure Fusionner(var T1,T2:Ttab;_gauche,midle,_droite:integer);
var
  iGauchePos,IcurPos,imidlepos,i:integer;
begin
  iGauchePos  :=_gauche;//on prend la plus petite position
  IcurPos       :=_gauche;//on prend la plus petite position
  imidlepos     := midle+1;// on definit le milieu
  for i := _gauche to _droite do
    T2[i]:=T1[i]; // on recopie le tableau de référence dans le tableau 2
 
  while (iGauchePos<=midle) and (imidlepos<=_droite) do
  begin
    if T2[iGauchePos]<T2[imidlepos] then
    begin
      T1[IcurPos]:=T2[iGauchePos];
      inc(iGauchePos);
    end
    else
    begin
      T1[IcurPos]:=T2[imidlepos];
      inc(imidlepos);
    end;
    inc(IcurPos);
  end;
 
  if imidlepos>_droite then
    for i := iGauchePos to midle do
    begin
      T1[IcurPos]:=T2[i];
      inc(IcurPos);
    end
  else
    for I := imidlepos to _droite do
    begin
      T1[IcurPos]:=T2[i];
      inc(IcurPos);
    end;
end;
//-----------------------------------------------
procedure TriFusion(var T1:Ttab;_gauche,_droite:integer);
var
  midle:integer;
  T2:Ttab;
begin
  if _gauche<_droite then
  begin
    midle:=(_gauche+_droite)div 2;
    TriFusion(T1,_gauche,midle);// on regarde a droite
    TriFusion(T1,midle+1,_droite); // on regarde a gauche
    Fusionner(T1,T2,_gauche,midle,_droite); // on fusionne
  end;
end;
//-----------------------------------------------
... Utilisation
//-----------------------------------------------
var
 s : String;
begin
  //-----------------------------------------------
  // remplissage aleatoire du tableau
  //-----------------------------------------------
  randomize;
  for i := 1 to n do
  begin
    tab[i]:=random(50)-20;
    s := s+inttostr(tab[i])+';';
  end;
  affiche(s);
  TriFusion(tab,1,n);
  s := '';
  for i := 1 to n do
    s := s+inttostr(tab[i])+';';
  affiche(s);
end;

@+ Phil

[lina24]

je vous remercie de m'avoir répondu
juste une question
au fait j'allais la traduir ainsi

Code :

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

1
2
3
4
5
6
7
8
9
type= array[1..100] of integer 
var m,i,j,k: integer;
t,s:tab;
procéduretri_fusion(var g,d :integer);
begin 
if g<d then 
begin 
m:=(g+d)/2
...........

je suppose que c'est faux
et est ce que je dois utiliser les deux algorithme que vous m'avez ecris , procédure fusionner et tri fusion
merci

[anapurna]

salut

Procedure est mot cle de delphi donc sans accent

quand a creer deux methode ou une seul ce n'est qu'une question de lisibilite
je differencie la parti tri des elements avec celle ou l'on "reconstruit" notre tableau

mais tu peut tres bien utiliser des variable global ainsi qu'une seul procedure
a toi de bien faire attention a ce qu t'on algo fait

type
tab = array[1..100] of integer
var m,i,j,k: integer;
t,s:tab;
procedure tri_fusion(var g,d :integer);
begin
if g<d then
begin
m:=(g+d) div 2
// sinon tu n'obtien pas la parti entiere de la division
...........

@+ Phil

[lina24]

merci encore , je vais l'exécuter ce soir
j'éspére que j'aurai pas de problèmes

[droggo]

Xoa,

mais tu peut tres bien utiliser des variable global

C'est typiquement le genre de conseil qu'il faut éviter de donner.

[lina24]

Xoa,

C'est typiquement le genre de conseil qu'il faut éviter de donner.

pourquoi ??

[dragonno]

Delphi te fera le message généralement en bas de page^^
Les variables locales sont détruites après leur utilisation dans le bloc où elles se situent, tandis que les variables globales restent en mémoire inutilement.
Enfin je le vois comme ça je suis débutant^^

Et puis si tu prend l'habitude de faire et initialiser des variables globales, un jour t''en aura tellement dans un programme qu'il te faudra te souvenir de toutes, c'est pas cool pour la maintenance de ton programme, et puis comme dit ça prend de la place^^

[Just-Soft]

Salut;

de loin je préfère fonction récursive à procédure récursif, pour la simple raison qu'il y a un résultat à retourner.

[lina24]

je vous remercie pour vos conseils , j'utiliserais pas donc les variables globale.
je ne l'ai pas encore exécuter , hier j'avais un petit probelem avec mon ordinateur , je le ferais aujourd'hui j'éspére que ça marchera .
merci encore

[droggo]

Hai,

Delphi te fera le message généralement en bas de page^^
Les variables locales sont détruites après leur utilisation dans le bloc où elles se situent, tandis que les variables globales restent en mémoire inutilement.
Enfin je le vois comme ça je suis débutant^^

Et puis si tu prend l'habitude de faire et initialiser des variables globales, un jour t''en aura tellement dans un programme qu'il te faudra te souvenir de toutes, c'est pas cool pour la maintenance de ton programme, et puis comme dit ça prend de la place^^

La 2ème partie de ta réponse est plus proche de la raison.

À quoi s'ajoute que ça pousse à créer du code non réutilisable, puisque les procédures (au sens large : procédures et fonctions) dépendent de l'existence de ces variables globales.

Pour avoir un code "propre", les variables globales sont à proscrire systématiquement.
C'est presque toujours possible (il y a des exceptions, généralement dues au langage utilisé).

Une règle simple existe :

Une procédure doit recevoir en paramètres toutes les données dont elle a besoin et/ou qu'elle va modifier.

[lina24]

j'apprécie toutes vos réponses , mais la je suis vraiment débutante en ce langage donc que me conseillez-vous? introduire variables globales , dans mes procédures ou non??
merci

[dragonno]

À quoi s'ajoute que ça pousse à créer du code non réutilisable, puisque les procédures (au sens large : procédures et fonctions) dépendent de l'existence de ces variables globales.

Pour avoir un code "propre", les variables globales sont à proscrire systématiquement.

[lina24]

encore une petite question
dans l'inspecteur d'objets de delphi 6 je retrouve pas ( option pour changer le gotab et go editing du false à true ) et a trouver colcount et rowcount pour les initialiser a zero
merci

[dragonno]

c'est sur quel composant ça ?
Car le colCount et RowCount que je connais c'est sur un DrawGrid par exemple et dans ce cas ils sont sur l'inspecteur.

Sinon si tu est sur que ton composant possède ces valeurs, tu peux les initialiser au démarrage de ton application dans le formCreate (evennement de la fiche) ou au début du bloc où ils sont utilisés^^
Juste en donnant le nom de ton composant :
LeComposant.ColCount:=0

[lina24]

je vais vous expliquer
pour pouvoir afficher le résultat dans mon tableau je dois modifier dans options qui se trouve dans mon inspecteur d'objet (propriétés )mais la je ne trouve pas le options ni go tab ni go editing et pour les autres applications je trouve pas aussi le col count et row count , ni dans propriétés ni évents .
vous m'avez demandé de regarder au debut du bloc quel bloc?

[dragonno]

Si je comprend bien, le ColCount et le RowCount sont pour le nombre de lignes et colonnes de ton tableau ?
Si c'est le cas, il te faut peut-être écrire :
LeNomDeTonTableau.colCount:=0;

En fait si tu me précisait si le tableau est un composant (style drawgrid) je saurais peut-etre avoir une idée.
Mais si c'est juste un tableau mémoire du style Array bein c'est autre chose.

Un bloc ça commence au début d'une procédure et ça finit à la fin de la procédure, en gros c'est un paquet d'instruction.

NB :
ça je comprend pas :/

go tab

Sinon moi j'ai delphi 5.

[dragonno]

Je viens de regarder ton premier post et apparamment c'est de tableaux dont tu parle, ce qui me trompait c'est que tu parlait d'inspecteur d'objet, car un tableau n'a pas de propriètés dans l'inspecteur d(objets, c'est juste une zone en mémoire, c'est pas un objet composant de delphi (seuls les composants de delphi peuvent voir certaines de leurs propriètés dans l'inspecteur d'objets).

Pour définir un tableau en delphi :
http://delphipage.free.fr/tableaux.html

[lina24]

moi c'est le delphi6 et j'ai l'habitude de travailler avec le delphi5 a la fac et 7 chez moi mais la j'ai le delphi 6 donc le je suis un peu perdu , oui le col count et row count c'est le nombre de lignes et colonnes du tableau .
je crois que je vais écrire , comme vous me l'avez conseillé
LeNomDeTonTableau.colCount:=0;

go tab et go editing se trouvent dans options donc il faut ecrire a la place de false true ,et sincèrement le prof nous avez brièvement expliqué , elle nous a juste demandé de faire ça , j'ai cherché sur le net mais j'ai pas trouvé mais j'ai l'intention de lui demander

[dragonno]

Regarde le tuto sur les tableaux dont je t'ai donné le lien ça va servir^^
(j'ai beau chercher sur Google les mots Delphi go Tab ou editing ça donne rien c'est la premiere fois que j'entend parler de ça à propos de tableaux^^)