A voir également:
- Excercice pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Uses crt pascal - Forum Pascal
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
- Dev-pascal - Télécharger - Édition & Programmation
2 réponses
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 005
18 juil. 2009 à 19:40
18 juil. 2009 à 19:40
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.