inversement de mot

Aller en bas

inversement de mot

Message  Admin le Ven 29 Avr - 20:31

ÉNONCÉ
Ecrire un programme Pascal qui saisit une phrase et l’affiche renversée. La phrase commence, obligatoirement, par une lettre et ses mots sont séparés par un seul espace.
Exemple :
Votre phrase :
Résolution de problèmes
Résultat :
Problèmes de Résolution

SOLUTION

program bac2002;
uses wincrt;
type h=array [1..100] of integer;
l=array [1..100] of string;
var phrase:string;t:h;y:l;
procedure saisie ( var phrase:string);
begin
repeat
writeln('donner une phrase avec des espaces entre les mots');
readln(phrase);
until phrase[1]<>'';
end;
procedure permutation (var y:l;var phrase:string);
var i,n,m,b,j,c:integer;
begin
i:=0;
n:=0;
b:=length(phrase);
repeat
i:=i+1;

if phrase[i]=' ' then
begin
n:=n+1;
j:=i;
y[n]:=copy (phrase,1,j);
delete(phrase,1,j);
i:=0;
end;

until phrase='';
for b:=n downto 1 do
write(y[b],' ');
end;
begin
saisie(phrase);
permutation(y,phrase);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum