Перенос слова, перенести слова, используя 3 правила Опции

[Gold_Fish]

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

Как найти ближайший к концу строки пробел, если при заданном значении слово "как бы разбивается"? Как осуществить на Паскале приведенный выше перенос???

Сообщение отредактировано: Gold_Fish - 6.12.2006 14:51

[Lapp]

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

Как найти ближайший к концу строки пробел, если при заданном значении слово "как бы разбивается"? Как осуществить на Паскале приведенный выше перенос???

Первый и главный вопрос к тебе: знаки препинания не нужно учитывать? Это ведь тоже непростой вопрос. Например, обычно их нельзя переносить (отрывать от слова). А тире, скажем, отделяется от слова пробелом, но переносить его при этом тоже не стОит. Есть многосимвольные знаки препинания (... , ?.. , !.. , ..). И нужно ли сохранять пробелы в конце строки (впрочем, это, наверное, нет). Еще, есть такой особый знак препинания, как "красная строка", например.. Короче, ответь.

Второй вопрос.. Не совсем понятен пункт 1. Правильно я понимаю, что в соответствии с ним слова "параноик", "наитие", "кондуит" нельзя перенести так: парано-ик, на-итие, конду-ит?

Если пока забыть про знаки препинания и остальные проблемы, то начать можно примерно так..
От начала текста отмеряем максимальную длину строки (Lx) и смотрим, попадает ли разрыв в тело слова. Признаком этого можно считать наличие букв (а не пробелов, знаков препинания..) по обе стороны от разрыва. Вот я тут набросал примерный текст программки, которая берет в отдельную строку s слово, попавшее на разрыв. Дальше можно с ним развлекаться и смотреть, как его можно делить. Моя программа делает это пока только по урезанному первому правилу для, так сказать, демонстрации . Если прояснятся вышеупомянутые вопросы, могу поучаствовать и в дальнейшем развитии проги. Задачка интересная . Интересно, где такие задают?

{ Hyphenation }
{ for Gold_Fish by Lapp }

const
  Txt:array[1..153]of char= 'Chelovecheskaq dusha stolj zhe interesna, '+
    'mnogoobrazna i maloizuchena, kak i Vselennaq, poskoljku '+
    'vmeshaet i otrazhaet poslednww, qvlqetsq ee gologrammoi';

const
  Lx=50;
  Vowels:set of char=['a','A','e','E','i','I','o','O','q','Q','u','U','y','Y'];
  Letters:set of char=['A'..'Z','a'..'z'];

var
  l,p,t,t1:integer;
  s:string;
  c:char;

begin
  t:=0; {текущая позиция}
  t1:=t+Lx;  {следующий разрыв}
  if (Txt[t1-1] in Letters)and(Txt[t1] in Letters) then begin
    p:=t1;
    while Txt[p-1] in Letters do Dec(p);
    l:=t1-p;
    s:='';
    while Txt[p] in Letters do begin
      s:=s+Txt[p];
      Inc(p)
    end
  end;
  if Length(s)>0 then begin
    WriteLn('Slovo "',s,'" obrybaetsq. Vlezaet ne bolee ',l,' bukv');
    if l<2 then WriteLn('Perenesti neljsq')
    else begin
      c:=s[l+1];
      repeat
        if (c in Vowels)and(s[l] in Vowels) then begin
          Insert('-',s,l+1);
          WriteLn('Perenos: "',s,'"');
          break
        end;
        c:=s[l];
        Dec(l)
      until l=0;
      if l=0 then WriteLn('Perenesti neljsq')
    end
  end
  else WriteLn('Razryv ne na slove');
  ReadLn
end.

Забыл сказать: я использую пока английские буквы, иначе говоря латиницу, во избежание сложностей. Потом можно будет перейти на настоящий русский. Соответствие букв в основном понятно, надеюсь. Кроме обычных еще есть Q как Я и W как Ю.
Текст пока в массиве, потом, видимо, нужно будет читать из файла..