Excercice pascal
agossif
-
agossif -
agossif -
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 .
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 .
A voir également:
- Excercice pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
- Probleme en pascal - Forum Pascal
2 réponses
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.
