Задача на строки, Задача на строки Опции

[dog]

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

Задача наполовину решена, на вторую половину никаких идей.

PROGRAM PRP4;
var a, temp:string;
i:integer;
BEGIN
     WRITELN('Введите текст');
     READLN(a);
     a:=' '+a;
     for i:= length(a) downto 1 do
     begin
         if a[i]<>' ' then temp:=temp+a[i]
         else begin
             if length(temp) mod 2<>0 then WRITELN(temp); {распечатка temp для примера т. к. temp слово нечетной длины}
             temp:='';
         end;
     end;
END.

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

[Unconnected]

Вот, смотри:

const
   limits = [#0..#32,'.',',',':',';','!','?','"'];
   letters = ['a','e','i','o','u','y','A','E','I','O','U','Y']; //будет работать только с латинской
// строкой. Если надо с кириллической тоже, добавь в это множество русские гласные буквы.

var
   s,buf,res : string;
   i,ii,back,n,sc1,sc2:byte;

begin
  i := 1;n:= 0;
  sc1:=0;sc2:=0;
  writeln('Vvedite stroku');
  readln(s);
  while(i<=length(s)) do begin
     while(i<=length(s)) and (s[i] in limits) do inc(i);
      if i<=length(s) then begin
        back := i;
        while(i<=length(s)) and not(s[i] in limits) do inc(i);
        inc(n);
        if length(copy(s, back, i-back)) mod 2<>0 then begin
          buf:=copy(s, back, i-back);
          sc1:=0;
          for ii:=1 to length(buf) do if (buf[ii] in letters) then inc(sc1);
          if sc1>sc2 then begin
            sc2:=sc1;
            res:=buf;
          end;
        end;
     end;
  end;
  writeln(res);
  readln;
end.

Хорошее разбиение на слова есть в FaQ форума.

Сегодня узнал, что около 10 процентов учащихся бюджетных мест в ВУЗах России не сдали первую сессию и были отчислены... А вместе с коммерческими - около 25%. Мрак.

Сообщение отредактировано: Unconnected - 4.02.2010 22:33