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

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.

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

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

• Рассылка. Выпуск 168
• Перетаскивание формы вручную
• Нахождение точки на медиане треугольника в координатной плоскости.
• Delphi 7 или RAD 2010?
• Сохранение файла из интернета
• Как можно определить сколько записей в таблице mysql?
• Библия программиста Delphi
• Как сложить столбец в Dbgrid и вывести сумму столбца в Label?
• Изменение цвета кнопки или установка изображения на кнопку
• Рассылка. Выпуск 178