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 download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- La syntaxe du nom de fichier de répertoire ou de volume est incorrecte ✓ - Forum Windows 10
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
- Uses crt pascal - Forum Pascal
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;