Помогите с программой на Delphi

[Настюша]

Помогите с программой на Delphi

В тексте содержатся русские и англ слова. разделить все слова на 3 списка: русские слова, англ слова, слова, происхождения которых нельзя определить однозначно. Например 'шутка' - русское слово, 'computer' - англ слово, 'cop' слово которое может быть русским и англ по составу букв..

 

[AlexZir]

За слово примем совокупность символов русского и латинского алфавитов, отделенных друг от друга символом пробел или знаком препинания.

Алгоритм решения задачи (примерный, естественно):
1) получаете текст любым оговоренным способом
2) обрабатываете текст посимвольно, выделяя отдельные слова в общий список (можно через процедуру поиска слова или использовать анализ на совпадение полученного слова с элементом списка)
3) используя внутреннее представление символов русского и английского алфавитов, проанализировать каждое слово на символьный состав (воспользуйтесь кодовой таблицей ) и переместить слова в соответствующий список.
4) выдать результирующие списки в оговоренной форме.
3) полученный список

 

[Настюша]

ну мне бы хотелось увидеть код :tehnari_ru_942: хоть примерно знать как написать

 

[Vladimir_S]

К сожалению, на Delphi не пишу. Паскаль не устроит?

 

[Настюша]

да, если не сложно. Может разберусь что к чему

 

[Vladimir_S]

Ну вот - всё, что смог. Работает вроде как надо, но это, увы, Паскаль. Естественно, имена и адреса файлов можно поменять:

TYPE
 ChSet=Set of Char;
VAR
 Ch_L,Ch_C,Ch_LC,Ch_S:ChSet;
 f_in,f_out:TEXT;
 S,S1:String;
 Ch:Char;
 i:Byte;
 b:Boolean;

BEGIN
 Ch_L:=['A'..'Z']+['a'..'z'];
 Ch_C:=['А'..'Я']+['а'..'я'];
 Ch_LC:=['A','B','C','E','H','K','M','O','P','T','X',
         'a','c','e','o','p','x','y',
         'А','В','Е','К','М','Н','О','Р','С','Т','Х',
         'а','е','о','р','с','у','х'];
 Ch_S:=[' ',',','.','?','!',':',';','"','-',Chr(13)];
 Assign(f_in,'D:\txt.txt');
 ReSet(f_in);
 Assign(f_out,'D:\res.txt');
 ReWrite(f_out);
 S1:='******************************';
 Repeat
  Read(f_in,Ch);
  If not(Ch in Ch_S) then
   begin
    i:=1;
    S1[1]:=Ch;
    repeat
     Read(f_in,Ch);
     Inc(i);
     If not(Ch in Ch_S) then S1[i]:=Ch;
    until (Ch in Ch_S) or (EoF(f_in));
    If not(Eof(f_in)) then
     S:=Copy(S1,1,i-1)
    else
     S:=Copy(S1,1,i);
    b:=true;
    i:=0;
    repeat
     Inc(i);
     if not(S[i] in Ch_LC) then b:=false;
    until (b=false) or (i=Length(S));
    If b then Writeln(f_out,S+' - Latin & Cyrillic')
    else
    If S[1] in Ch_L then Writeln(f_out,S+' - Latin')
    else
    If S[1] in Ch_C then Writeln(f_out,S+' - Cyrillic');
    S1:='******************************';
   end;
 Until EoF(f_in);
 Close(f_in);
 Close(f_out);
END.