Pune o întrebare
  Tehnologie
NOTICE
| NOTICE a întrebat:

ma ajutati si pe mine cu un Program PASCAL in care o funcite sa calculeze a)numarul de vocale dintr-un sir si b) numarul de consoane dintr-un sir...ms anticipat

1 Raportează Evaluează
RSS răspunsuri Ordonare: După relevanţă
1 răspuns:
Hadden
| Hadden a răspuns:

Daca prin siruri de referi la stringuri, poti face asa ceva:

var consoane, vocale, lungime, i:integer;
sir:string;
begin
readln(sir);
consoane:=0; vocale:=0;
lungime:=length(sir);
for i:=1 to lungime do
if pos(sir[i], 'aeiouAEIOU') > 0 then
inc(vocale)
else if (sir[i] in ['A'.'Z', 'a'.'z']) then
inc(consoane);
writeln('vocale: ', vocale);
writeln('consoane: ', consoane);
readln;

end.

RăspundeRăspunde Raportează Evaluează
Întrebări similare
Întrebări recente