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