Discussion :

[Malouche]

Bonsoir alors je viens de faire un programme avec les étiquettes; ça veut pas se compiler je ne sais pas pourquoi!! :s et puis je ne sais même pas est-ce que mon programme est juste, le 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
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Program etiquettes_chaines;
uses WinCrt;
const
n=5;
LABEL menu;
var
a:array[1..n] of string[8];
inv,ch:string[8];
choix,i,lg,rest:integer;
rep:boolean;
 
 
begin
 
writeln('.........MENU........');
writeln('1:sasir un vecteur de 5 chaînes de caractères');
writeln('2:inverser ce vecteur');
writeln('3:afficher toutes les chaînes de taille impairs');
writeln('4:afficher les chaînes commençant par ba');
writeln('Faites votre choix');
readln(choix);
rep:=false;
 if rep=true then
 begin
 writeln('entrez les chaînes de caractères');
 for i:=1 to n do
  begin
  readln(ch);
  a[i]:=ch;
  end;
 end;
 
 
case choix of
 
1: begin
     rep:=true;       
 
 
 
  Readkey;
  clrscr;
  goto menu;
 
   end;
 
 
2: begin
 
     rep:=true;
 
    writeln('Inversement du vecteur');
     inv:='';
     i:=n;
     while i>=1 do
       begin
       inv:=inv+a[i];
       i:=i-1;
       end;
 
     for i:=1 to n do
       writeln(inv);
 
 
 
    Readkey;
    clrscr;
    goto menu;
 
    end;
 
3: begin
       rep:=true;
 
    writeln('Afficher toutes les chaînes de taille impairs');
 
    for i:=1 to n do
    begin
    lg:=length (ch[i]);
     if lg mod 2 <>0 then
      writeln(ch[i]);
    end;   
 
 
 
  Readkey;
  clrscr;
  goto menu;
 
 
   end;
 
4: begin
 
     rep:=true;
 
     writeln('afficher les chaînes commençant par ba');
 
     for i:=1 to n do
 
      begin
      ch:=a[i];
      if (ch[1]='b') or (ch[1]='B') or (ch[2]='a') or (ch[2]='A') then                                           
      writeln('la chaîne',i,'commençant par ab est:',ch);
      end;
 
 
  Readkey;
  clrscr;
 
 
  end;
 
 
end.

[droggo]

Joe,

Une présentation propre (indentation, pas besoin de x lignes vides successives, ...), et l'utilisation de la balise [code] nous aiderait à lire ton programme.

Et surtout, l'utilisation de label, donc de GoTo est à proscrire quand on veut programmer proprement, il y a d'autres moyens pour créer des boucles.

[Malouche]

Ok pour l'alignement, je ferai attention la prochaine fois.
Mais pour le programme moi je n'en suis pas encore au stade des codes, on travaille qu'avec pascal pour l'instant, et c'est un travail à faire sur lequel je bloque, si ça ne tenait qu'à moi je n'aurais pas utilisé les etiquettes, goto et blablabla donc voilà. Toute aide serait la bienvenue merci

[M.Dlb]

La balise [CODE] sert à mettre en forme le code sur le forum, sinon c'est illisible. Ca n'a rien à voir avec le Pascal.

De plus, je pense que ton programme est juste car il fait exactement ce qu'il est sensé faire.







Non en fait, on sait même pas ce que ton programme doit faire et le problème que tu as. Si ca ne compile pas, regarde les erreurs de ton compilateur...

[droggo]

Hoe,

Ok pour l'alignement, je ferai attention la prochaine fois.
Mais pour le programme moi je n'en suis pas encore au stade des codes, on travaille qu'avec pascal pour l'instant, et c'est un travail à faire sur lequel je bloque, si ça ne tenait qu'à moi je n'aurais pas utilisé les etiquettes, goto et blablabla donc voilà. Toute aide serait la bienvenue merci

Tu veux dire que leur utilisation est imposée (car "on travaille qu'avec pascal pour l'instant" n'implique absolument pas d'utiliser ces horreurs) ?

Si oui, change de prof ...

Je sais, tu ne peux pas en changer, c'est histoire de dire ce que je pense de lui [ou d'elle].