Строки, как найти слово с наименьшим количеством букв(Delphi)

[Dima-91]

Суть вопроса в том, что немагу понять как определить слово с наименьшим количеством гласных букв, т.е. какой оператор определяет длину слова и считает количество гластных.

[D@rkD@iver]

нет такого операторра надо ручками писать

[ImmortalAlexSan]

Dima-91, таких операторов не существует. Делается это так:

procedure FindPublicInWord(s:string; var MaxPublic:integer);
Var
i,j,k:integer;
ArrayOfWodrs:array of string;
ArrayOfPublicInWord:array of integer;
Begin
j:=0;
For i:=0 to (length(s)-1) do
begin
If s[i]=' ' then
begin
inc(j);
Setlength(ArrayOfWords,j);
Setlength(ArrayOfPublicInWord,j)
ArrayOfPublicInWord[j-1]:=0;
else
if s[i]='любая гласная буква (подумайте сами как это сделать)' then
ArrayOfPublicInWord[j-1]:=ArrayOfPublicInWord[j-1]+1
end;
end;
End;

Как-то так. Смысл в чем... Вы ищите слово: просматриваете весь текст, если нашли пробел, то началось новое слово, если ещё один пробел, то закончилось. Эти слова можно записать в динамический массив, а потом перебрать их все с помощью цикла FOR, и в этом цикле уже подсчитывать количество гласных букв, предварительно задав константу с ними, или используя Case, и в массив писать количество букв, потом перебрать и сравнить, или в том же цикле сравнивать. Запутал вас наверное... Ну ничего... Разберетесь

[XeruH]

Сообщение от ImmortalAlexSan

Dima-91, таких операторов не существует. Делается это так:

procedure FindPublicInWord(s:string; var MaxPublic:integer);
Var
i,j,k:integer;
ArrayOfWodrs:array of string;
ArrayOfPublicInWord:array of integer;
Begin
j:=0;
For i:=0 to (length(s)-1) do
begin
If s[i]=' ' then
begin
inc(j);
Setlength(ArrayOfWords,j);
Setlength(ArrayOfPublicInWord,j)
ArrayOfPublicInWord[j-1]:=0;
else
if s[i]='любая гласная буква (подумайте сами как это сделать)' then
ArrayOfPublicInWord[j-1]:=ArrayOfPublicInWord[j-1]+1
end;
end;
End;

Так как-то наверно по проще

const
  // множество гласных букв
  GlasnieSymb = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я',
                 'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];

var
  s, cur_slovo, pred_slovo: string;
  i, cur_glasnie, pred_glasnie: Integer;
begin
  s := Edit4.Text;
  cur_glasnie := 0;
  pred_glasnie := 100000;
  cur_slovo := '';
  pred_slovo := ''; 
  for i:=1 to Length(s) do
  begin
    if s[i] <> ' ' then
      cur_slovo := cur_slovo + s[i];
    if s[i] in GlasnieSymb then
    begin
      inc(cur_glasnie);
    end;
    if (s[i]=' ') or (i=Length(s)) then
    begin
      if cur_glasnie < pred_glasnie then
      begin
        pred_slovo := cur_slovo;
        cur_slovo := '';
        pred_glasnie := cur_glasnie;
        cur_glasnie := 0;
      end;
    end
  end;

  s:='Cлов, содержащие наименьшее кол-во гласных: ' + pred_slovo + '; Кол-во гласных: ' + IntToStr(pred_glasnie);

  ShowMessage(s);
end;

[Dima-91]

XeruH можешь если несложно объяснить как работает твой код.
Мне непонятно что даёт оператор - inc; а также строка :

 If s[i] in GlasnieSymb then

Хотя если неошибаюсь, то строка обозначает что s[i]=слово что получилось переноситься в GlasnieSymb. После чего слова что получились сравниваються.
Если где-то я ошибаюсь скажите пожалуйсто где.
Зарание спасибо.

[Sasha_Smirnov]

inc — чернила, видимо... на самом деле это инкремент (приращение счётчика), вы бы хоть руководство по языку посмотрели, прежде чем программки делать!

Сообщение от ImmortalAlexSan

Вы ищЕте слово: просматриваете весь текст, если нашли пробел, то началось новое слово, если ещё один пробел, то закончилось.

Не факт, не факт, о мой Бессмертный тёзка! О тексте речь вообще не шла (в вопросе), да и так ясно, что слова могут быть и не разделены пробелами (а скажем, только преводом строк); часто даже после запятой пробела не ставят некоторые.

[savva]

я думаю в таких программках рассматривается сферический текст в вакууме который идеально написан

[XeruH]

Сообщение от Dima-91

XeruH можешь если несложно объяснить как работает твой код.
Мне непонятно что даёт оператор - inc; а также строка :

 If s[i] in GlasnieSymb then

Хотя если неошибаюсь, то строка обозначает что s[i]=слово что получилось переноситься в GlasnieSymb. После чего слова что получились сравниваються.
Если где-то я ошибаюсь скажите пожалуйсто где.
Зарание спасибо.

inc - как и сказали выше инкремент(т.е. увеличивает значение переменной на 1).

 If s[i] in GlasnieSymb then

берем символ из строки s по позиции i (например если s='абв', то s[2]='б') и проверяем входит ли данный символ в множество GlasnieSymb.

Да кстати когда писал этот код, почему то казалось что в задании написано что разделитель между словами пробел. После сообщения Sasha_Smirnov понял что это не так. Значит проверять надо не только на пробел но и на другие возможные разделители слов.

[Dima-91]

Прошу прощение, за то что некоректо написал условие.
Раздилитель в тексте пробел, который разделяет слова в строке , которые и нужно будет сравнить между собой и вывести слово с наименьшим количеством гласных.

[XeruH]

Тогда все должно работать.