Русские и английские слова, помогите решить задачу Опции

[Geophysist]

В общем смысл задачи такой. Имеется текст из русских, английских букв, чисел, знаков препинания и пробелов. Русские слова это любые последовательности только из русских букв,английские аналогично. Все русские слова необходимо переместить в один текстовый файл, английские в другой. Числа, знаки препинания и пробелы переносить не надо.

Вот пример как должна работать прога:

Текст 1.
Стекло в 1345 year ьвап' мебель rhtr 53463'' ' hjnроим4пhff4hg65

Текст 2(русский)
Стекловьвапмебель

Текст 2(English)
yearrhtr

Если кому не влом, помогите плиз!

[Айра]

Можно сделать так:

var s,s1: string;
    f1,f2: text;
    i,j: integer;
    R,E: set of char;
    ru,en,dr: boolean;
begin
  R:=['А'..'я'];
  E:=['A'..'z'];
  writeln('введите строку');
  readln(s);
  assign(f1, 'rus.txt');
  rewrite(f1);
  assign(f2, 'eng.txt');
  rewrite(f2);
  while length(s)<>0 do
    begin
      s1:='';
      dr:=false;     // наличие других символов
      ru:=false;     // наличие русских символов
      en:=false;     // наличие латинских символов
      i:=Pos(' ',s);
      if i>0 then s1:=Copy(s,1,i-1)
      else s1:=s;
      for j:=1 to length(s1) do
      	begin
          if s1[j] in R then ru:=true
          else if s1[j] in E then en:=true
                 else dr:=true;
        end;
      if dr=false then
        begin
          if ru and (not en) then write(f1, s1);
          if (not ru) and en then write(f2, s1);
        end;
      if i>0 then delete(s,1,i)
      else delete(s,1,length(s));
    end;
  close(f1);
  close(f2);
end.

Сообщение отредактировано: Айра - 4.01.2008 17:44

[Lapp]

Можно сделать так:

Можно и так, только я бы конструкцию:

      while (s[i]<>' ') and (i<=length(s)) do
        begin
          s1:=s1+s[i];
          inc(i);
        end;

- заменил бы на такую:

      i:=Pos(' ',s);
      if i>0 then s1:=Copy(s,1,i-1) else s1:=s;

А выражение типа:

          if s1[j] in R then ru:=true

- на вот такое:

  ru:= ru or (s1 in R);

- хотя последнее спорно..
Но я бы делал проверку иначе, думаю..

И еще замечание: русские буквы не во всех кодировках представляют связное множество..

Сообщение отредактировано: Lapp - 4.01.2008 5:42