Дан текст на русском языке. Найти количество гласных букв в первом слове

@Владислав15 · Регистрация: 29.11.2014

Студворк — интернет-сервис помощи студентам

Дан текст на русском языке. Найти количество гласных букв в первом слове.Паскаль

@Tip.the.besT · 04.12.2014, 16:48

Создаём массив с гласными буквами, после чего, в цикле сравниваем каждую букву в слове, до первого пробела.

Так как сравниваем первое слово, нужно учесть, что что заглавная и строчная буква, это разные символы. В массив нужно добавлять и те, и те.

@Vabos · 04.12.2014, 17:24

Сообщение от Tip.the.besT

Создаём массив

Может лучше использовать множество?

Сообщение от Tip.the.besT

Так как сравниваем первое слово, нужно учесть, что что заглавная и строчная буква, это разные символы В массив нужно добавлять и те, и те.

Не надо - есть функция LowerCase или AnsiLowerCase ( LowerCase )

Добавлено через 25 минут

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const Glasn:set of char = ['à','ÿ','î','¸','ó','þ','û','è','ý','å'];
      _Text = '  ÂàÀñßÿ ÏóÏóÏêèí  ';
var S:String;
    Fl:Boolean;
    i,Result:Integer;
begin
   S:=AnsiLowerCase(Trim(_Text));
   i:=0;  Result:=0; Fl:=True;
 
   while Fl do
   begin
      Inc(i);
      if (S[i] in Glasn) then Inc(Result);
      if ((i>Length(S)) or (S[i] = ' ')) then Fl:=False;
   end;
   ShowMessage(IntToStr(Result));
end;

@Tip.the.besT · 29.12.2014, 14:06

Про LowerCase не подумал.

А что множество, что массив, не важно. Мне кажется, что это всё равно обёртка над массивом.

@Vabos · 30.12.2014, 15:10

Сообщение от Tip.the.besT

А что множество, что массив, не важно.

Согласен, просто со множеством - кода меньше, не надо в массиве ковыряться

@Владислав15 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 11
		1
	Дан текст на русском языке. Найти количество гласных букв в первом слове 03.12.2014, 20:09. Показов 1304. Ответов 4 Метки нет (Все метки) Дан текст на русском языке. Найти количество гласных букв в первом слове.Паскаль 0

@Tip.the.besT 7 / 7 / 3 Регистрация: 01.04.2012 Сообщений: 120
	04.12.2014, 16:48	2
	Создаём массив с гласными буквами, после чего, в цикле сравниваем каждую букву в слове, до первого пробела. Так как сравниваем первое слово, нужно учесть, что что заглавная и строчная буква, это разные символы. В массив нужно добавлять и те, и те. 0

@Tip.the.besT 7 / 7 / 3 Регистрация: 01.04.2012 Сообщений: 120
	29.12.2014, 14:06	4
	Про LowerCase не подумал. А что множество, что массив, не важно. Мне кажется, что это всё равно обёртка над массивом. 0

@Vabos 132 / 129 / 31 Регистрация: 12.12.2011 Сообщений: 462
	30.12.2014, 15:10	5
	Сообщение от Tip.the.besT А что множество, что массив, не важно. Согласен, просто со множеством - кода меньше, не надо в массиве ковыряться 0

Опции темы

Дан текст на русском языке. Найти количество гласных букв в первом слове

Решение