Tableau dynamique de structure

Version imprimable

Bonjour tout le monde,

j'ai un souci avec mon programme en Delphi. C'est pas compliqué mais impossible d'y arriver.

Je dois compter le nombre de d'entiers que je saisie. La liste des entiers est stockée dans un tableau dynamique de structures. dans la structure il y a le nombre et le nombre de fois kil apparait dans la liste. Ma liste s'arrete lorsque je saisie 0.

Voilà ce que j'ai fait mais rien qu'a l'affichage de mes entiers saisis il m'affiche un truc bizarre :
Code:

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 program CompCar4; {$APPTYPE CONSOLE} uses SysUtils; type TtabNbe = RECORD nbe : integer ; occ : integer ; end ; const INVITE : ShortString = 'Saisir un entier et terminer par 0 : ' ; var i : integer ; saisie : integer ; tabNbe: array of TtabNbe = nil ; begin readln( saisie ) ; while( saisie <> 0 ) do begin setlength( tabNbe, length( tabNbe ) + 1 ) ; readln( saisie ) ; end; write( length(tabNbe) ) ; readln ; end.

13/10/2008, 08h37
rsc

Citation:

Code:

tabNbe: array of TtabNbe = nil ;

Pourquoi initialiser ton tableau à nil ??? C'est en tous cas inutile, et sans doute source d'erreurs !
13/10/2008, 12h04
CapJack

1) Tu saisis les entiers dans la variable "saisie" mais c'est tout ! Il faut peut-être penser à mettre à jour le tableau ?

2) Le code nécessaire pour recopier la valeur dans le tableau, doit être plus compliqué que de simplement augmenter sa taille, non ?

3) Tu n'affiches que la longueur du tableau...
13/10/2008, 12h59
Reisubar

Citation:

Pourquoi initialiser ton tableau à nil ??? C'est en tous cas inutile, et sans doute source d'erreurs !

Inutile, peut-être, mais pas source d'erreur. Une variable non initialisée ou initialisée à nil générera la même erreur à l'accès tant que SetLength n'aura pas été appelé.

code final

je pense avoir trouvé la solution et le programme s'exécute correctement.
Pour répondre à la question, j'ai initialisé mon tableau par nil parce que la madame professeur nous l'impose dans tous nos programmes.
Merci du coup de main.

Code:

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
program CompCar4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TtabNbe = RECORD
      nbe : integer ;
      occ : integer ;
  end ;
 
const
  INVITE : ShortString = 'Saisir un entier et terminer par 0 : ' ;
 
var
  i : integer ;
  saisie : integer ;
  tabNbe: array of TtabNbe = nil ;
 
begin
  write( INVITE ) ;
  readln( saisie ) ;
 
  while( saisie <> 0 ) do
  begin
      setlength( tabNbe, (length( tabNbe ) + 1) ) ;
      tabNbe[length( tabNbe ) - 1].nbe := saisie ;
      tabNbe[length( tabNbe ) - 1].occ := tabNbe[length( tabNbe ) - 1].occ + 1 ;
      write( INVITE ) ;
      readln( saisie ) ;
  end;
 
   { Affichage des occurences }
  for i := 0 to length( tabNbe )- 1 do
  begin
      writeln( tabNbe[i].nbe ) ;
      writeln( tabNbe[i].occ ) ;
  end ;
 
  readln ;
end.

13/10/2008, 18h02
CapJack

Sauf que dans ta solution, il me semble que tu vas stocker chaque entier saisi dans une structure différente, toutes les occurrences étant alors initialisée à 1.

Je me trompe peut-être, mais je pense que le champ .occ n'est pas là pour rien, et qu'il faut un code un peu plus fourni, à savoir vérifier dans le tableau si l'entier saisi n'a pas déjà été entré, si oui, incrémenter l'occurrence, si non, augmenter la taille du tableau pour un nouvel entier. Non ?
14/10/2008, 17h29
LadyWasky

Citation:

Envoyé par CapJack

Non ?

Mon petit doigt me dit que si. Donc j'ai la même question que CapJack.

Celà dit, je pense qu'on peut considérer le sujet résolu : Selon la charte, le forum n'est pas un espace pour faire vos devoir.
Tu as été bien aidé je pense et tu devrais y arriver sans trops de problêmes.