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

[Geophysist]

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

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

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

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

Текст 2(English)
yearrhtr

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

[Айра]

Дык подходящая для минэ среда - це АЗС.. блин FPC, а он вредничает

[andriano]

Дык подходящая для минэ среда - це АЗС.. блин FPC, а он вредничает

FPC - компилятор. Его можно использовать с различными средами разработки. Если предпорлагается консольная программа - использовать консольную же среду, если программа GUI, то GUI-среду. В первом случае, впрочем, возможно использование GUI-среды с установленным шрифтом TERMINAL и драйвером клавиатуры, поддерживающим 866 страницу.
Иногда полезно и программное решение типа того, что приведено ниже:

unit recode;
interface

const
  DOScode = 0;
  WinCode = 1;
  DestSet : longint = DOScode; {0-DOS,1-Win}

function NumSet(s:string) : longint; {0-DOS,1-Win,4-Unknkwn}
procedure RecodeString(var s:string; Sou,Dest : longint);
procedure RecodeString2current(var s:string);

implementation
const CharSetByte : array[0..1,0..255]of byte = {DOS->Win; Win->DOS}
((  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
   16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
   32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
   48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
   64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
   80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
   96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
  112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
  192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
  208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
  224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
  128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
  160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,
  240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,
  176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191),
 (  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
   16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
   32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
   48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
   64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
   80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
   96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
  112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
  176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
  192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
  208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
  240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,
  128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,
  144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,
  160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,
  224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239));
  OldSet : longint = 4;
var
  CharSet : array[0..1,0..255]of char absolute CharSetByte;

function NumSet(s:string) : longint; {0-DOS,1-Win,4-Unknkwn}
var
  i,n0,n1,n2,n3,n4 : longint;
begin
  n0 := 0;    n1 := 0;    n2 := 0;    n3 := 0;    n4 := 0;
  if length(s) > 0 then
    for i := 1 to Length(s) do begin
      if byte(s[i]) in [128..175] then inc(n0);
      if byte(s[i]) in [176,177,192..223,242..251] then inc(n1);
      if byte(s[i]) in [224..241] then inc(n4);
    end;
  if (n0 = n1) then
    NumSet := OldSet
  else
    if n0 > n1 then begin
      if n0 > (n1*2) then OldSet := DOScode;
      NumSet := DOScode;
    end else begin
      if n1 > (n0*2) then OldSet := WinCode;
      NumSet := WinCode;
    end;
end;

procedure RecodeString(var s:string; Sou,Dest : longint);
var i : longint;
begin
  if (Sou <> Dest) and (length(s) > 0) then begin
    if (Sou = DOScode) and (Dest = WinCode) then
      for i := 1 to length(s) do
        s[i] := CharSet[DOScode,byte(s[i])]
    else
      for i := 1 to length(s) do
        s[i] := CharSet[WinCode,byte(s[i])];
  end;
end;

procedure RecodeString2current(var s:string);
begin
  RecodeString(s, NumSet(s), DestSet);
end;

begin
{$ifdef __GUI__}
  DestSet := WinCode; {0-DOS,1-Win}
{$else}
  DestSet := DOScode; {0-DOS,1-Win}
{$endif}
end.

Сообщение отредактировано: andriano - 5.01.2008 11:29