Question

Se citește un text de la tastatura. Sa se determine numărul vocalelor din text precum și frecventa lor. Program Pascal

Answer 1

program nr_vocale;

const vocale=['a','e','i','o','u','A','E','I','O','U'];

var t:string; b:array[1..10] of char;

   i, nvoc, j: integer; c: char;

   fr: array[1..10] of integer;

begin

 for c:='a' to 'z' do

    if c in vocale

        then begin inc(j); b[j]:=c; end;

 for c:='A' to 'Z' do

    if c in vocale

        then begin inc(j); b[j]:=c; end;

 write('dati textul: '); readln(t);

 for i:=1 to length(t) do

    begin

      if (t[i] in vocale) then

        begin

          inc(nvoc);

          case t[i] of

            'a': inc(fr[1]);

            'e': inc(fr[2]);

            'i': inc(fr[3]);

            'o': inc(fr[4]);

            'u': inc(fr[5]);

            'A': inc(fr[6]);

            'E': inc(fr[7]);

            'I': inc(fr[8]);

            'O': inc(fr[9]);

            'U': inc(fr[10]);

          end;

       end;

    end;

writeln('nr de vocale=',nvoc);

if nvoc>0 then

 begin

    writeln(' frecventele lor:');

    for i:=1 to 8 do

       writeln (b[i], ' de ', fr[i], ' ori');

 end;

end.