FORUM MP | Pascal : question

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

question
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ


Nombre de participants :

PAGE : [1]

FORUM PASCAL
	Page précedente	Page suivante

the_tunisian
Nouveau membre

Inscrit : 30/11/2007
Messages : 3

#145883 Posté le 30/11/07 à 06:23

je cherche une fonction recursive en pascal qui permet d'inverser une chaine de caractere.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

vortex666
Modérateur :
- C & C++
- OpenGL
- Delphi
Chef de projet(s) :
- Vortez3DEngine

Inscrit : 20/09/2004
Messages : 490

#146001 Posté le 04/12/07 à 04:59

Salut, en fait je n'ai pas le code, mais ca n'est pas si difficille que ca, suffit dy aller en douceur, et puis si tu le fait toi meme, tu apprendera beaucoup plus. Si vraiment tu n'y arrive pas, je te donnerai un coup de main.

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#146805 Posté le 27/12/07 à 09:48

Salut,
je pense que ce code fonctionne (à tester):

function Renverser( aTexte :string ) : string; begin if Length( aTexte ) < 2 then Result := aTexte else Result := aTexte[ Length( aTexte ) ] + LeftStr( aTexte, Length( aTexte ) - 1 ); end;

__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

vortex666
Modérateur :
- C & C++
- OpenGL
- Delphi
Chef de projet(s) :
- Vortez3DEngine

Inscrit : 20/09/2004
Messages : 490

#146880 Posté le 28/12/07 à 00:58

Bon, je vais donner ce code, je l'ai tester et il marche bien.

function RevStr(s: string): string; var Cpt: Integer; RevStr: string; begin RevStr := ''; Cpt := Length(s); while Cpt > 0 do begin RevStr := RevStr + s[Cpt]; Dec(Cpt); end; result := RevStr; end;

Elle n'est pas récursive, mais bon...

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#146888 Posté le 28/12/07 à 08:43

Salut vortex666, ton code n'est pas récursif et plus long que le mien, 2 déclarations de variables et 7 lignes de code au lieu de 4.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

vortex666
Modérateur :
- C & C++
- OpenGL
- Delphi
Chef de projet(s) :
- Vortez3DEngine

Inscrit : 20/09/2004
Messages : 490

#147013 Posté le 31/12/07 à 08:24

Salut Pac, je suis content de te voir.

Pac dit :

Salut vortex666, ton code n'est pas récursif et plus long que le mien, 2 déclarations de variables et 7 lignes de code au lieu de 4.

Oui, en fait, j'ai remarquer apres avoir poster que la fonction devais etre recursive...

C'est vrai que ce code pourrais etre plus petit, cette fontion n'est pas récursive et j'ai préféré un code plus lisible qua un code petit et plus dur a lire dans ce cas. Je posterais bien une version recursive mais je doute que le starter du topic redonne signe de vie alors...

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.