1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
{$R *.res}
type tst50 = string[50];
var phr:Tst50;
nblettre:integer;
procedure Compte_maj(phr:tst50);
var nblettre,i:integer;
begin
while (pos(' ',phr)<>0) do
delete(phr,pos(' ',phr),1);
for i:=1 to length(phr) do
if phr[i]=' ' then
nblettre:=nblettre+1;
end;
begin
writeln('..................................................');
writeln(' Programme nombre de lettre majuscule : ');
writeln('..................................................');
writeln;
write('Veuillez introduire une phrase ou un mot : ');
readln(phr);
writeln;
nblettre:=1;
phr:=trim(phr);
Compte_maj(phr);
writeln('Il y a ',nblettre,' lettres en majuscule dans la phrase/mot');
if phr=phr then
begin
writeln('C''est une Anagrammes');
writeln(phr)
end
else
writeln('Ce n''est pas une Anagrammes');
readln
end. |
Partager