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

[BiZON]

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

[BiZON]

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

[DarkWishmaster]

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

В турбо паскале нету русских (или у кого-то есть, у мя точно нету =) ). Free Pascal отоброжает русские, это 100%.

Ну допустим Текст:

Я помню чудное мгновенье:
Передо мной явилась ты,
Как мимолетное виденье,
Как гений чистой красоты.

читаем из файла:

   assign(F, 'C:\Mgnovenie.TXT');
   reset(F);
   while not eof(F) do begin  
   readln(F, S);
   Check(S);
   end;
clsoe(F);

где Check(S) это процедура которая находит слова в строке.

   procedure ChecK(S:string);
    var P:String; r:byte; 
     begin
       while S<>0 nil do begin
       r:=pos(' ' , s);
   //находим ближайший пробел ( это в случае что нормальной писатель и ставит только один     пробел для разделения слов) 
       P:=copy(S, 1, r);  //берем слово
       delete(S, 1, r);  
        if Yes(P) then writeln(P); //если подходит то выводим)
     end;
end;

P.S
может я что напутал, так как паскаля с собой нету ) и сразу на форум написал.

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