Inversion de cararcteres par paquets de 2
yannbobu
Messages postés
5
Date d'inscription
samedi 8 février 2003
Statut
Membre
Dernière intervention
27 décembre 2008
-
25 janv. 2004 à 18:30
yannbobu Messages postés 5 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 27 décembre 2008 - 25 janv. 2004 à 20:54
yannbobu Messages postés 5 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 27 décembre 2008 - 25 janv. 2004 à 20:54
A voir également:
- Inversion de cararcteres par paquets de 2
- Inversion couleur photoshop - Forum Graphisme/design
- C# tableau 2 dimensions ✓ - Forum C# / .NET
- Droitereg excel degré 2 ✓ - Forum VBA Office (Excel, Word ...)
- Parcourir un Tableau n dimensions en utilisant les indices - Forum C# / .NET
- Tableau de loto turbo 2 - Forum Delphi / Pascal
1 réponse
yannbobu
Messages postés
5
Date d'inscription
samedi 8 février 2003
Statut
Membre
Dernière intervention
27 décembre 2008
25 janv. 2004 à 20:54
25 janv. 2004 à 20:54
Bon bah apparemment je viens de trouver une solution
Function inverser_chaine_pd2(S : String): String;
Var
i : Integer;
j : Integer;
Begin
Result := '';
j := 1;
For i := Length(S) DownTo 1 Do
Begin
j := j-1;
Result := Result + s[i-1+j]+s[i+j];
End;
End;
Function inverser_chaine_pd2(S : String): String;
Var
i : Integer;
j : Integer;
Begin
Result := '';
j := 1;
For i := Length(S) DownTo 1 Do
Begin
j := j-1;
Result := Result + s[i-1+j]+s[i+j];
End;
End;
