transposer en delphi(consol) de l'algo

je n'ai jamais fait de delphi et notre prof d'alogo nous demande de faire cette petit exercice pour demain. J'essaye mais j'ai 3600 erreurs a chaque fois et je vudrai bien que quelqu'un m'aide a le realiser.
merci
le sujet: inversion d'un mot
si je tape magali il me dit ilagam


TYPES pile=^bloc
bloc=enregistrement
elt entier
eltsuivant pile
fin enregistement

procedure initpile(variable p pile)
debut
p<-NULL
fin

foncion pilevide(p pile)
debut
retourne(p=NULL)
fin

procedure empiler(variable p pile;valeur entier)
variables tampon pile
debut
tampon<-p
allouer(tampon)
p^.elt<-valeur
p^.eltsuivant<tampon
fin

procedure depiler(variable p pile,valeur entier)
variables tampon pile
debut
si non pilevide(p) alors
valeur<-p^.elt
tampon<-p
p<-tampon^.eltsuivant
liberer tampon
sinon
ecrire("la pile est vide")
fin si
fin

variables cpt entier
mot,tmp,resultat chaine
debut
initpile(p)
ecrire("saisir un mot")
lire(mot)
pour cpt<-1 jusqu'a longueur(mot) faire
empiler(extraire(mot;cpt;1)
fin pour

tant que non pilevide(p) faire
depiler(tmp)
resultat<-resultat+tmp
fin tant que

ecrire(resultat)

fin

Tu as un prof d'algo qui bosse le dimanche, y en a vraiment qui sont sans pitie.

ciao...
BruNews, MVP VC++

Dis pour inverser une string, il suffit d'appeler ReverseString(Str : string) : string de l'unité StrUtils.

y a pas a aller chercher bien loin ...

Par contre, bien que ce soit un forum, je ne pense pas qu'il s'agisse d'un club d'entraide des élèves ayant un probleme de codage d'algorithme et je pense que peu de personnes ont envie de reflechir a coder un algo qui ne leur servira pas.

Même sans utiliser cette fonction, il est tellement simple de faire autrement comme

function InverserStr(S : string) : string; var i : integer; begin result:=''; for i:=Length(S) downto 1 do result:=result + S[i]; end;

Ton prof ne sera pas content .. mdr

Si tu ne te plantes pas ......
tu ne poussera jamais

Ah au fait, t'as jamais fait de delphi et on te demande un truc comme ca !!!!

Un conseil : change de prof !!

Y en a (des profs), J'te jure .....

Je sais que ce n'est pas le sujet et je n'ai pas envie de lancer un debat, mais j'avais envie de repondre quand meme:

Par contre, bien que ce soit un forum, je ne pense pas qu'il s'agisse d'un club d'entraide des élèves ayant un probleme de codage d'algorithme

Je pense qu'aider un eleve est aussi louable que d'aider quelqu'un d'autre, ce n'est pas parceque c'est du code simple que la personne doit se debrouller.

et je pense que peu de personnes ont envie de reflechir a coder un algo qui ne leur servira pas.

C'est pourtant ce qui se passe tous les jours sur ce forum.

bouh

Je pense qu'aider un eleve est aussi louable que d'aider quelqu'un d'autre, ce n'est pas parceque c'est du code simple que la personne doit se debrouller.

Je suis d'accord avec toi seulement s'il n'avait demandé que de lui trouver une fonction qui transforme MAGALI en ILAGAM.
Mais là, il a demandé une traduction totale en delphi de son incompréhensible (pour moi) "code" et ca, je trouve que c'est abusé.
Il aurait pu donner ce qu'il a fait en delphi pour qu'on lui dise ce qui ne va pas.

=======================

C'est pourtant ce qui se passe tous les jours sur ce forum.

Je sais, puisque je fais partie de ces personnes qui essayent d'aider les autres sans contrepartie. Cette phrase etait peut-être abusée. Ce que je voulais dire, c'est que coder un algo, (pas celui qu'il nous demande car il est simple) c'est tres compliqué surtout lorsqu'on doit se baser sur des explications peu conpréhensibles.
C'est ce côté "Voila débrouillez-vous" qui m'a décu.

Mais je me trompe peut-être ....

Voila c'est a peu près tout. Par contre, en ce qui concerne le prof d'algo qui demande aux élèves de coder en delphi (ils en ont jamais fait) un algorithme alors qu'aucun des élèves ne connait le Delphi, ca c'est soit inadmissible soit c'est de la c*nerie ...

A Voir.

Bref je me suis (un peu) emballé sur mon post qu'il n'en fallait mais bon ... on va dire que j'etais dans un maivais jour !!


themagaly : En ce qui concerne mon code, c'est la reponse à la premiere question que tu as demandé dans ton post et pardon si ca t'as blessé (mon 2eme post).

@ +++ sur Delphifr

Florent.

Si tu ne te plantes pas ......
tu ne poussera jamais