Поиск в файле Опции

[BiZON]

Подскажите кто-нибудь: Как найти в файле слова, в в которых нечетное число гласных и чётное число согласных букв?

[DarkWishmaster]

Подскажите кто-нибудь: Как найти в файле слова, в в которых нечетное число гласных и чётное число согласных букв?

Укажи полажуйста как расположены слова в файле, чем разделены и.т
Вот например:
file TXT:
Forum
Pascal
net.ru
тут всё просто, читаем слово из файла, проверяем если подходит то выводим, нет - не выводим.
а если:
file TXT:
Forum Pascal net.ru
то тут уже надо читать всю строку, потом разбить на слова и проверять каждое слова.
Проверка осуществляется функцией:

   function Yes(x:string):boolean;
   var i:byte; gl,sn:byte;   
      begin
       for i:=1 to lengh(x) do begin
             if x[i] in glas then inc(gl);     
             if x[i] in soglasn then inc(sn);
      end;
   Yes:=(odd(gl) and not(odd(sn)));
  end;

Где glas=['A','a','o' и.т ] множество гласных, а soglasn множество согласных.

Сообщение отредактировано: DarkWishmaster - 5.06.2011 23:14