Pb syntaxe pascal
Fermé
duvduv
Messages postés
119
Date d'inscription
mercredi 25 juillet 2007
Statut
Membre
Dernière intervention
24 octobre 2011
-
20 nov. 2007 à 16:02
lotfi_taba Messages postés 2 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 20 novembre 2007 - 20 nov. 2007 à 18:00
lotfi_taba Messages postés 2 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 20 novembre 2007 - 20 nov. 2007 à 18:00
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
lotfi_taba
Messages postés
2
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
20 novembre 2007
20 nov. 2007 à 17:46
20 nov. 2007 à 17:46
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.
lotfi_taba
Messages postés
2
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
20 novembre 2007
20 nov. 2007 à 18:00
20 nov. 2007 à 18:00
if machine in['r','h','t']then
begin
truc in ['r',' t',' h']
end;
begin
truc in ['r',' t',' h']
end;