Discussion :

[helena12]

Bonjour,
je débute avec Pascal. Je tente d´écrire un programme avec diverses fonctions de tris, mais lors de la compilation, je recois le message suivant:

Error 85: ";" Expected

.
Voici mon code (excusez-moi si mes erreurs sont grossieres, mais j´ai pascal débuté aujourd´hui!

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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
 
program switch_sort;
 
{Definir les donnees}
const br=100
var a:array[1..br]of integer;
n,i:integer;
 
 
 
 
var
  sort: integer;
begin
  writeln('1. vavedi broi');
  writeln('2. recherche Sequentielle dans un ensemble de données non ordonnées');
  writeln('3. recherche sequentielle dans ensemble de données ordnonnées');
  writeln('4. recherche binaire dans ensemble de données ordnonnée');
  writeln('5. trier au travers une selection directe');
  writeln('6. trier au travers un collage direct');
  writeln('7. bubble sort'); 
  readln(sort);
 
 
case sort of
 
    1: 
begin
repeat
writeln('vavedi broi');  ---insert number
readln(n);---n is the number you have defined
until (n>0)and(n<=br);
for i:=1 to n do
	begin
	writeln('a[',i,']=');
	readln(a[i]);
	end;
end;
 
    2: 
begin
writeln('recherche Sequentielle dans un ensemble de données non ordonnées');
writeln(x);
readln(x);
i:=0
repeat
i:=i+1
until (x=a[i]) or (i=n);
if x=a[i] then
    writeln('yes');
else
writeln('no');
end;
 
    3:
begin
writeln('recherche sequentielle dans ensemble de données ordnonnées');
writeln(x);
readln(x);
i:=0
repeat
i:=i+1
until (x<=a[i]) or (i=n);
if x=a[i] then
    writeln('yes');
else
writeln('no');
end;
 
    4: 
begin
	writeln('recherche binaire dans ensemble de données ordnonnée');
	found:=false
	l:=1;r:=n
	repeat
	k:=(l+r)div2;
	if a[k]=x then found:=true
	else if a[k]<x then l:=k+1
	else r:=k-1
	until found or (l>r);
	if found then writeln('yes');
	else writeln('no');
end;
 
   5:
begin
	writeln('trier au travers une selection directe');
	for i:=1 to n-1 do
		begin
		min:=a[i]; ind:=1
		for k:=i+1 to n do
		if a[k]<min then
			begin
			min:=a[k];
			ind:=k;
			dnd;
			a[ind]:=a[i];
			a[i]:=min;
			end;
		end;
end;
 
    6: 
begin
	writeln('trier au travers un collage direct');
	for i:=2 to n do
		begin
		pom:=a[i[;k:=i-1;
		while(pom<a[k])and(k>0) do
			begin
			a[k+1]:=1[k];
			k:=k-1;
			end;
		a[k+1]:=pom;
		end;
end;
 
    7: 
begin
writeln('bubble sort');
    BEGIN
        FOR i := 1 TO n DO
            FOR j := 1 TO i DO 
                IF a[j] > [j + 1] THEN BEGIN
                    tmp := a[j];
                    a[j] := a[j + 1];
                    a[j + 1] := tmp;
                END;
 
        (* Print. *)
        FOR i := 1 TO n DO
            writeln(a[i])
    END;
end;
 
 
  else
    writeln('incorect choice');
  end;
 
  readln;
end.

merci d´avance pour votre aide.
Héléna

[Loceka]

Cette erreur signifie qu'il te manque (au moins) un point-virgule (";") quelque part dans ton code.

Là effectivement il t'en manque environ une vingtaine.
La règle de base du Pascal c'est :
Toute instruction se termine par un point-virgule.
Bon, il y'a quand même quelques exceptions :
- le end final se termine par un point
- l'instruction précédant un else ne doit pas se terminer par un point-virgule (si j'ai bonne mémoire).

Sinon concernant le forum, il y'a la possibilité d'utiliser des balises CODE, c'est beaucoup mieux que les QUOTE. Elles sont représenté par un dièse ("#") dans l'éditeur ou par [ CODE ][ /CODE ] sans espace et pas forcément en majuscules.

[droggo]

Waouh

Ne te fâche pas, mais je ne vois rien d'autre à dire que

Quel horrible code

Mes principales remarques rapides, que tu peux considérer comme des conseils fortement conseillés

- Il faut, au minimum faire une indentation régulière, et pas hasardeuse comme tu le fais.

- Un code si long devrait être éclaté en fonctions/procédures, chacune faisant une petite partie du travail, mais devant le faire bien.
Par exemple, une procédure pour chaque type de tri que tu veux faire, de même pour chaque type de recherche, une autre pour remplir le tableau, une pour afficher le menu, et une pour gérer la réponse, ceci est à mon avis un minimum.

- Comme c'est pour apprendre, inutile d'utiliser un tableau si grand, je me vois mal entrer manuellement jusqu'à 100 valeurs.

Le tout, sans utiliser de variables globales, oeuf corse.

- Ah si, il y a quand même quelque chose à dire. Quand tu écris

Code :

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

writeln('vavedi broi');  ---insert number

ton compilateur ne te crie pas après pour te dire qu'il ne comprend pas (c'est à dire, pour lui : il y a des erreurs) ?

Je n'ai aucun souvenir d'un langage utilisant --- pour mettre un commentaire (je ne les connais pas tous, heureusement pour moi, sinon quel boulot !).
D'où vient cette notation ? Pas d'un programme Pascal en tout cas, ou alors d' un compilateur ésotérique et absolument hors standard.

Un conseil que nous qualifierons d'avisé :
Si tu débutes en Pascal, commence par faire quelques petits programmes plus simples, ne serait-ce que pour en apprendre la syntaxe (par exemple, le point-virgule suivant chaque instruction, saus à quelques endroits qu'il vaut mieux connaître, sous peine de passer du temps à trouver ce qui se passe).

[Loceka]

Je n'ai aucun souvenir d'un langage utilisant --- pour mettre un commentaire

Juste pour faire mon chieur : SQL et PL/SQL utilisent ça (--) pour faire un commentaire sur une ligne.

[droggo]

hi,

Juste pour faire mon chieur : SQL et PL/SQL utilisent ça (--) pour faire un commentaire sur une ligne.

Tiens, c'est vrai, j'avais oublié SQL.

Il est vrai que ce n'est pas un langage de programmation (pas au sens où je le comprends !).

[bahiatoon]

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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
 
program switch_sort;
 
{Definir les donnees}
const br=100;
var a:array[1..br]of integer;
n,i:integer;
 
 
 
 
var
  sort: integer;
begin
  writeln('1. vavedi broi');
  writeln('2. recherche Sequentielle dans un ensemble de données non ordonnées');
  writeln('3. recherche sequentielle dans ensemble de données ordnonnées');
  writeln('4. recherche binaire dans ensemble de données ordnonnée');
  writeln('5. trier au travers une selection directe');
  writeln('6. trier au travers un collage direct');
  writeln('7. bubble sort'); 
  readln(sort);
 
 
case sort of
 
    1: 
begin
repeat
writeln('vavedi broi');  ---insert number
readln(n);---n is the number you have defined
until (n>0)and(n<=br);
for i:=1 to n do
	begin
	writeln('a[',i,']=');
	readln(a[i]);
	end;
end;
 
    2: 
begin
writeln('recherche Sequentielle dans un ensemble de données non ordonnées');
writeln(x);
readln(x);
i:=0;
repeat
i:=i+1;
until (x=a[i]) or (i=n);
if x=a[i] then
    writeln('yes')
else
writeln('no');
end;
 
    3:
begin
writeln('recherche sequentielle dans ensemble de données ordnonnées');
writeln(x);
readln(x);
i:=0;
repeat
i:=i+1;
until (x<=a[i]) or (i=n);
if x=a[i] then
    writeln('yes')
else
writeln('no');
end;
 
    4: 
begin
	writeln('recherche binaire dans ensemble de données ordnonnée');
	found:=false;
	l:=1;r:=n;
	repeat
	k:=(l+r)div2;
	if a[k]=x then found:=true
	else if a[k]<x then l:=k+1
	      else r:=k-1;
	until found or (l>r);
	if found then writeln('yes')
	else writeln('no');
end;
 
   5:
begin
	writeln('trier au travers une selection directe');
	for i:=1 to n-1 do
		begin
		min:=a[i]; ind:=1;
		for k:=i+1 to n do
		if a[k]<min then
			begin
			min:=a[k];
			ind:=k;
			dnd;
			a[ind]:=a[i];
			a[i]:=min;
			end;
		end;
end;
 
    6: 
begin
	writeln('trier au travers un collage direct');
	for i:=2 to n do
		begin
		pom:=a[i];k:=i-1;
		while(pom<a[k])and(k>0) do
			begin
			a[k+1]:=1[k];
			k:=k-1;
			end;
		a[k+1]:=pom;
		end;
end;
 
    7: 
begin
writeln('bubble sort');
    BEGIN
        FOR i := 1 TO n DO
            FOR j := 1 TO i DO 
                IF a[j] > [j + 1] THEN BEGIN
                    tmp := a[j];
                    a[j] := a[j + 1];
                    a[j + 1] := tmp;
                END;
 
        (* Print. *)
        FOR i := 1 TO n DO
            writeln(a[i]);
    END;
end
 
 
  else
    writeln('incorect choice');
  end;
 
  readln;
end.
merci d´avance pour votre aide.
Héléna