A voir également:
- Excercice pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Turbo pascal linux ✓ - Forum Linux / Unix
- Puissance en pascal ✓ - Forum Pascal
2 réponses
KX
Messages postés
16734
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
24 avril 2024
3 015
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.
