Pb syntaxe pascal
duvduv
Messages postés
119
Statut
Membre
-
lotfi_taba Messages postés 2 Statut Membre -
lotfi_taba Messages postés 2 Statut Membre -
Bonjour,
j'aimerais traduire ces phrases en pascal:
si "machin" vaut 1,2,3 et si "truc" vaut 1,2,3 alors...
j'ecris: if machin in [1,2,3] and truc in [1,2,3] then
mais j'ai l'erreur: Error: Operation not implemented for sets
meme pb mais pour des caracteres:
if machin in ['r','t','h'] and truc in ['r','t','h'] then
j'aimerais traduire ces phrases en pascal:
si "machin" vaut 1,2,3 et si "truc" vaut 1,2,3 alors...
j'ecris: if machin in [1,2,3] and truc in [1,2,3] then
mais j'ai l'erreur: Error: Operation not implemented for sets
meme pb mais pour des caracteres:
if machin in ['r','t','h'] and truc in ['r','t','h'] then
Configuration: Linux Konqueror 3.5
3 réponses
-
-
program tri_inser;
uses wincrt;
type
tab=array [1..20] : integer;
var
i:integer;
n:integer;
t:tab;
procedure permiter(a,b:integer)
var
r:integer;
begin
r:=a;
a:=b;
b:=r;
end;
procedure tri (var t:tab;n:integer)
var
i:integer;
begin
repeat
k:=false;
for i:=1to 20 do
begin
if t[i]>T[i+1] then
begin
permiter t[i],t[i+1];
until (k:=true) and (i>n);
end;
begin
permiter (a,b);
tri (t,n);
end. -
if machine in['r','h','t']then
begin
truc in ['r',' t',' h']
end;
