Discussion :

[nadirmabed]

Bonjour !

J'ai un problème avec cette procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program inverser;
begin
 
type
Tab=string;
 
Procedure Inverser (Var t : Tab; p, n : Integer);
Var aux : char;
Begin
If p < n Then
Begin
aux := t[p];
t[p] := t[n];
t[n] := aux;
Inverser (t, p + 1, n - 1);
 End;
 End;
End;
end.

Pourriez-vous m'aider ?

[AdmChiMay]

Oui, bonjour moi aussi.

Je pense que les gens qui liront ton post auront au moins deux problèmes en commun avec moi :

• Quel est ton problème, en clair in the text ?
• Il faudrait proposer un code lisible : d'abord la balise code (le # en haut à droite lors de l'édition), et ensuite indenter correctement ton code.

D'ailleurs, si tu avais indenté ton code, je subodore qu'il y aurait au moins un problème de visible. Mais peut-être que ce n'est pas celui qui t'as motivé à poster, allons savoir.

[Roland Chastain]

J'ai un problème avec cette procédure

Commençons par le début. Pourrais-tu nous expliquer ce que tu veux faire ?

[nadirmabed]

Je veux exécuter cette procédure, pour inverser un vecteur ou une chaîne de caractère. Free Pascal me marque beaucoup d'erreurs.

[nadirmabed]

[Roland Chastain]

Pour rendre ton programme compilable, il n'y a pas grand chose à changer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program inverser;
 
//begin
 
type
  Tab = string;
 
procedure Inverser (var t: Tab; p, n: Integer);
var
  aux: char;
begin
  If p < n Then
  begin
    aux := t[p];
    t[p] := t[n];
    t[n] := aux;
    Inverser (t, p + 1, n - 1);
  end;
end;
 
//end;
 
begin
end.

[Roland Chastain]

La déclaration du type Tab me semble inutile : autant utiliser directement le type string.

D'autre part, si ce que tu veux faire, c'est de renverser toute la chaîne, tu peux le faire plus simplement, par exemple de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  aux: string;
  i: integer;
begin
  aux := '';
 
  for i := Length(t) downto 1 do
    aux := aux + t[i];
 
  t := aux;
end;