excercice pascal

Question

Bonjour,
je suis un etudiant en 1er année developpement informatique j'ai un excercice que j'ai pas compris du tout :s

ecrire la procedure qui recoit une chaine de caracteres 
composée de plusieurs mots séparés par des espaces, 
qu'elle transforme de facon que chaque mots commence par 
une lettre majuscule et se tarmine par des lettres minuscules.

es-ce-qu'il y a quelqu'un qui pouré m'aider SVP .

KX · Answer

program agossif;

procedure ModifCaractere(var c:char);
begin
if (c>='a') and (c<='z') then c:=chr(ord(c)-ord('a')+ord('A'));
end;

procedure ModifPhrase(var s:string);
var i:integer;
begin
ModifCaractere(s[1]);
for i:=2 to length(s) do
    if (s[i-1]=' ') then ModifCaractere(s[i]);
end;

var s:string;
begin
s:='je suis une petite phrase de test';
ModifPhrase(s);
writeln(s); // Je Suis Une Petite Phrase De Test
readln;
end.

agossif · Answer

Merci KX pour ton aide

Excercice pascal

2 réponses

Discussions similaires

Newsletters