Подсчитать количество гласных букв в строке

Posted by obzor under Delphi, Pascal

При помощи процедур написать программу. При вводе слова с клавиатуры считать количество гласных букв (английских) в нём.

CMY_3

procedure count(a : string);
var
c, d:integer;
begin
  C:=0;
  for d:=1 to length(a) do
  if (a[d]='a') or (a[d]='e') or (a[d]='i')or (a[d]='y') or(a[d]='o') or (a[d]='u')
  then
  c:=c+1;
  writeln('kol-vo glasnih bukov sostovlyaet ',c);
end;

Arigato

Такие задачи лучше решать с использованием множеств:

procedure glas_count(s: string; var cnt: integer);
var
  i: integer;
begin
  cnt:=0;
  for i:=1 to length(s) do
    if s in ['e','u','i','o','a','E','U','I','O','A']
      then inc(cnt);
end;

var
  s: string;
  c: integer;

begin
  readln(s);
  glas_count(s,c);
  writeln('Glasnyh: ',c);
  readln;
end.

тема на форуме

Случайные статьи

• Полупрозрачность в Delphi
• Узнать имя класса компонента и его имя
• Как просканировать память программы в поисках определеного значения?
• Как убрать CUI в делфи?
• Определение активности пользователя
• Переместить файлы из ListBox
• Наличие определенного свойства у контрола
• Подсчитать количество секций в инифайле
• Удаление дубликатов в строке (Microsoft Office Excel)
• Что делать если ошибка For loop control variable must be simple local variable?