Pb syntaxe pascal
duvduv
Messages postés
119
Date d'inscription
Statut
Membre
Dernière intervention
-
lotfi_taba Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
lotfi_taba Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Pb syntaxe pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Trouver erreur de syntaxe fichier txt ✓ - Forum PHP
- Impossible d'ouvrir un fichier txt avec Python ✓ - Forum Python
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.
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.