Tableau de caractères

Version imprimable

Bonjour,
On me demande d'écrire un programme pascal qui fait le chargement d'un tableau de caractères et compte le nombre de succession de 'a' et 'b'.
Voici le code que j'ai utilisé:

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
 
Program Exo3 ;
Var T : array [1..30] of char;
       I, N, Occ : Integer ;
       Possible : Boolean ;
Begin
   Write ('Entrez le nombre d''element du tableau (<=30)  ') ;
   readln(N) ;
   Possible :=False ;
   For i :=1 To N Do
    Begin
      Write ('Donnez la valeur de l''element  ',i,' du tableau  ') ;
      Readln (T[i]) ;
      If T[i]='a' then Possible :=True;
      If (T[i]='b') and (Possible=True) then begin
                                                Occ :=Occ+1;
                                                Possible:=False;
                                             end
      else If ((T[i]<>'b') and (T[i]<>'a')) and (Possible=True) then 
           Possible:=false;
    end;
   write('Le d''apparition de la succession des deux caracteres ''a'' et 
         ''b''est égal à ',Occ) ;
   readln;
end.

Le problème qui se pose est que ce meme code s'execute parfaitement sur ma machine mais sur d'autres il s'arrete au chargement du premier caractère.
Pouvez vous m'aider SVP.

Bonjour et bienvenue !

Attention : la variable Occ n'est pas initialisée.
Il faut être prudent(e) et considérer qu'une variable non initialisée a une valeur indéterminée. ;)

Sinon, ton programme tourne chez moi.

Il est possible de simplifier les tests :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Possible := False;
  for i :=1 to N do
    begin
      Write ('Donnez la valeur de l''element  ',i,' du tableau  ') ;
      Readln (T[i]) ;
      if T[i] = 'a'
         then
           Possible := True
         else
           if T[i] = 'b'
              then
                begin
                  if Possible
                     then
                       begin
                         Occ := Occ + 1;
                         Possible := false;
                       end;
                end
              else
                Possible := false;
    end;

En effet, il est inutile de tester

Code:

if T[i] = 'b'

si la condition

Code:

if T[i] = 'a'

a été remplie auparavant.
Tu remarqueras au passage que le test d'une variable booléenne peut s'écrire de cette manière :

Code:

1
2
3
 
if Possible then...
if not Possible then...

;)

06/03/2009, 23h35
Juli3

Merci Alcatîz

Merci Alcatîz. ça simplifie vraiment les tests.
Mais mon vrai problème c'est le chargement des éléments du tableau de caractères. J'ai meme essayé un programme simple qui ne fait que lire les éléments d'un tel tableau mais lors de l'execution il ne charge que le premier élément puis saute les autres tandis que chez moi ça marche trés bien.
Merci.
07/03/2009, 00h56
DUGUERPF

Dans mes programmes, quand j'ai eu ce genre de cas, c'est en général parce que la cellule du tableau dépassait la valeur qu'il pouvait admettre, entrainant de fait des erreurs dans la variable (exemple, introduire dans un tableau de type word un nombre négatif, et la variable qui sert à le lire risque en effet de s'incrémenter brusquement de 1 à un chiffre variable - et hors incrémentation prévue), etc...

Pour autant, je me suis usé à lire et relire ton code, à le jouer et je n'ai pas de pbs. J'avoue que j'ai du mal à isoler la raison de ton bug sur une machine et pas une autre.
Pourrais-tu nous en dire plus ? Dis-nous par exemple quelles sont les machines (processeur), le logiciel d'exploitation, etc...

Je te propose d'ajouter un petit quelque chose à ton programme, pour simplifier la vision sur l'écran. La fonction clrscr (clearscreen) permet en effet d'effacer tout ce qui existe en mode non graphique, présentant ainsi une 'page' propre. Elle implique de faire appel à l'unité CRT.

J'ai aussi initialisé Occ comme le conseille très justement Alcatîz. L'erreur peut venir de là, même s'il faudrait pour cela que Occ s'initialise par hasard au maximum d'integer (qui est à 32767) et que lorsque tu lui demandes de s'incrémenter de 1, et bien elle plante et fait que i se met aussi à prendre une valeur fausse, sortant de ta boucle.

Je n'ai pas touché à tes tests en revanche.
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 Program Exo3 ; USES crt; Var T : array [1..30] of char; I, N , Occ: Integer ; Possible : Boolean ; Begin clrscr; Write ('Entrez le nombre d''éléments du tableau (<=30) ') ; readln(N) ; Possible :=False ; Occ :=0; For i :=1 To N Do Begin Write ('Donnez la valeur de l''élément ',i,' du tableau ') ; Readln (T[i]) ; If T[i]='a' then Possible :=True; If (T[i]='b') and (Possible=True) then begin Occ :=Occ+1; Possible:=False; end else If ((T[i]<>'b') and (T[i]<>'a')) and (Possible=True) then Possible:=false; end; write('Le taux d''apparition de la succession des 2 caractères ''a'' et ''b'' est égal à ',Occ) ; readln; end.