Sa se determine cite vocale si consoane contine propozitia

Se citeste o propozitie (sir de caractere) terminata cu punct. Sa se determine cite vocale si consoane  contine propozitia.

Analiza programului - elaborarea algoritmului:

- citim propozitia caracter cu caracter pana la intalnirea caracterului '.'

- folosim instructiunea case (selectie multipla) care daca la intalnirea unei vocale din sir incrementeaza nr de vocale ,iar la intalnirea unei consoane incrementeaza nr de consoane.

program nr_consoane_si_vocale;

var c:char;

i,nv,nc:word;

sir:string[25];

BEGIN

write('Introduceti propozitia:');readln(sir);

i:=1; nv:=0; nc:=0;

repeat

case sir[i] of

'a','e','i','o','u': nv:=nv+1;

'b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','x','y','w' :

nc:=nc+1;

end;

i:=i+1;

until sir[i]='.';

writeln('Nr de vocale=',nv);

writeln('Nr de consoane=',nc);

readln;

END.

// varianta C

#include <stdio.h>

#include <ctype.h>

int i,vocale=0,consoane=0;

char c,sir[80];

void main(void)

printf('Vocale:%i, Consoane:%i, Alte car.:%i', vocale, consoane, i-vocale-consoane);