A voir également:
- Algorithme et pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
4 réponses
tu peut utiliser cette procédure:
procedure inverse(var t:tab;n:integer);
begin
for i:=1 to n div 2 do
begin
aux:=t[i];
t[i]:=t[n-i+1];
t[n-i+1]:=aux;
end;
end;
avec n le nombre des entiers t le tableau et tab un nouveau type:array[1..100]of integer
procedure inverse(var t:tab;n:integer);
begin
for i:=1 to n div 2 do
begin
aux:=t[i];
t[i]:=t[n-i+1];
t[n-i+1]:=aux;
end;
end;
avec n le nombre des entiers t le tableau et tab un nouveau type:array[1..100]of integer