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

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.

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

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

• Как организован процесс работы в вашей фирме?
• Установить граничное число элементов в массиве
• Удалить повторяющиеся элементы из массива (VBA в Excel)
• Одиночный клик в списке вместо двойного
• Перемещение формы не за заголовок
• Найти максимальный повторяющийся элемент
• Как скопировать файл из каталога с программой?
• Интересные программы для delphi, теперь программировать не так скучно ;)
• Как в MediaPlayer сделать так чтобы файлы воспроизводились друг за другом, а не одновременно
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще