Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.09.2019, 16:03   #1
Джей Харриссон
 
Регистрация: 22.09.2019
Сообщений: 9
По умолчанию Посчитать количество гласных в тексте. Делфи

Помогите пожалуйста. Есть текст вводимый пользователем в компонент Мемо. В нем надо посчитать количество гласных и вывести в другой компонент Мемо.
Джей Харриссон вне форума Ответить с цитированием
Старый 22.09.2019, 16:25   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s:string;
begin
   Memo2.Clear;
   k:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:='';
      For j:=1 to Length(Memo1.Lines[i]) do
         If Memo1.Lines[i][j] in ['а','е','ё','и','о','у','ы','э','ю','я',
            'А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
         begin
            Inc(k);
            s:=s+Memo1.Lines[i][j];
         end;
      Memo2.Lines.Add(s);
   end;
   Label1.Caption:=IntToStr(k);
end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 22.09.2019, 16:37   #3
Джей Харриссон
 
Регистрация: 22.09.2019
Сообщений: 9
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s:string;
begin
   Memo2.Clear;
   k:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:='';
      For j:=1 to Length(Memo1.Lines[i]) do
         If Memo1.Lines[i][j] in ['а','е','ё','и','о','у','ы','э','ю','я',
            'А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
         begin
            Inc(k);
            s:=s+Memo1.Lines[i][j];
         end;
      Memo2.Lines.Add(s);
   end;
   Label1.Caption:=IntToStr(k);
end;
Вау, спасибо большое
Джей Харриссон вне форума Ответить с цитированием
Старый 22.09.2019, 16:46   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 22.09.2019, 19:31   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

А если текст английский? Или племени балуба ?
digitalis вне форума Ответить с цитированием
Старый 22.09.2019, 19:37   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
А если текст английский? Или племени балуба ?
иметь массив гласных всех языков мира. Множество не поможет )) Ну и делфи покруче седьмого
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввести две строки с клавиатуры. Посчитать в каждой из них количество гласных букв. В строке, содержащей большее число гласных, удалить все согласные буквы. Badprogramme Помощь студентам 0 02.12.2018 13:32
Посчитать количество гласных в слове (на СИ) Кристина1998 Помощь студентам 0 19.11.2016 23:09
Посчитать количество слов в тексте Kontinent Помощь студентам 0 27.06.2014 20:20
количество слов в предложении, гласных и согласных букв Делфи 7 программирование Помощь студентам 3 10.10.2013 21:32
посчет в тексте кол-во слов, гласных и согласных букв DiabloRVK Помощь студентам 4 01.12.2008 14:23