[PascalABC]Создать программу для определения количества гласных среди 5-и введенных пользователем символов. Определение количества

[destra1j]

Создать программу для определения количества гласных среди 5-и введенных пользователем символов. Определение количества должно выполняться в подпрограмме (или подпрограммах).

Как программа может определить сколько гласных букв?:eek

[Smitt&Wesson]

Сообщение от destra1j

Как программа может определить сколько гласных букв?:eek

Никак! Алгоритм, задаёт программист.
Как молоток может забить гвоздь?.......

[destra1j]

Значит нада прописать все буквы алфавита и дать им какоето значение 1-гласная
0-согласная и отсортировать по значению.Примерно так оно должно работать?

[Serge_Bliznykov]

Сообщение от destra1j

Как программа может определить сколько гласных букв?:eek

возьмём, например, слово γλώσσα
сколько в нём гласных букв?

[destra1j]

Ну в греческом я не силен поэтому на нем ответить не могу но на русском в слове язык две гласные.

[Serge_Bliznykov]

но на русском в слове язык две гласные.

т.е. у Вас в файле русские буквы?!

тогда вот код для проверки:

function KolicestvoGlasnyh(OneWord : string) : integer;
Const
 {русские гласные}
 glas=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','ы',
          'Э','э','Ю','ю','Я','я'];
var i, Cnt : integer;
begin
  Cnt := 0;
  for i:=1 to Length(OneWord) do
    if OneWord[i] in glas then Inc(Cnt);
  KolicestvoGlasnyh := Cnt;
end;

begin
  WriteLn('Привет ', KolicestvoGlasnyh('Привет '))
end.