Discussion :

[sakura006]

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 :

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
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.

[rsc]

Code :

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

tabNbe: array of TtabNbe = nil ;

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

[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...

[Reisubar]

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é.

[sakura006]

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 :

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
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.

[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 ?