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

[Lapp]

Вот, есть первый ощутимый результат .
Я реализовал первое правило. Получается не так просто, чтобы объяснить в двух словах. Давай, лучше ты посмотришь и станешь задавать вопросы - по сделанному, а не "как дальше".. Я немного подозреваю, что ты смотришь на сделанное, как на пройденный этап, к которому нет смысла возвроащаться.. А это неправильно, так как именно в этом и состоит твой прогресс. Если можешь, развей мои подозрения .

В принципе, реализация остальных правил может быть проведена по образу и подобию первого. Так что если ты действительно разберешься, ты сможешь это сделать. Извини за отстутствие комментариев, могу добавить позже..

> Более или менее все понятно, а вот куда впихнуть буквы "й, ь, ъ"
> для них просто массив создать в начале, да?
Я вообще несколько переделал организацию ввода алфавита. Ну, увидишь, как. Это для простоты, компактности и лучшей читаемости (да и писаемости тоже ) кода, особенно когда несколько кодировок.

> P. S. Дальше не могу продвинуться, никак не составлю условие для переноса
Вот, я его составил . Enjoy!

Последние замечания:
- вывод пока идет только на экран;
- длина строки задается Lx, поварьируй ее..
Ну пока и все.

{ Hyphenation
  Version 0.4
  - rule #1
  - getting the last w in a line
  - reading the file
  for Gold_Fish by Lapp }

const
  Lx=37;
  VowDOS='АаЕеЁёИиОоУуЫыЭэЮюЯя';
  ConDOS='БбВвГгДдЖжЗзКкЛлМмНнПпРрСсТтФфХхЦцЧч';
  IShDOS='Йй';
  SHzDOS='ЪъЬь';

var
  fIn:file of char;
  fOu:text;
  fName,s,t,w,Map:string;
  c,d:char;
  i:integer;
  Vow,Con,ISh,SHz,Let:set of char;
  Gap,Start:boolean;

begin
  Write('Введите имя файла для форматирования: ');
  ReadLn(fName);
  {fName:='d.txt';}
  Assign(fIn,fName);
  ReSet(fIn);
  Assign(fOu,'tst-ou-w.txt');
  ReWrite(fOu);
  Vow:=[];
  Con:=[];
  Ish:=[];
  for i:=1 to Length(VowDOS) do Include(Vow,VowDOS[i]);
  for i:=1 to Length(ConDOS) do Include(Con,ConDOS[i]);
  for i:=1 to Length(IShDOS) do Include(ISh,IShDOS[i]);
  for i:=1 to Length(SHzDOS) do Include(SHz,SHzDOS[i]);
  Let:=Vow+Con+ISh+SHz;
  s:='';
  repeat
    d:=#0;
    while (Length(s)<Lx)and((d<>#$D)or(c<>#$A))and not EoF(fIn) do begin
      if s=' ' then s:='';
      d:=c;
      Read(fIn,c);
      if not (c in [#$D,#$A]) then s:=s+c;
    end;
    t:='';
    if Length(s)=Lx then repeat
      d:=c;
      Read(fIn,c);
      if not (c in [' ',#$D,#$A]) then t:=t+c;
    until (c=' ')or((d=#$D)and(c=#$A))or(EoF(fIn));
    if t<>'' then while not (s[Length(s)]=' ')or(Length(s)=0) do begin
      Insert(s[Length(s)],t,1);
      Delete(s,Length(s),1)
    end;

    {Rule #1}
    if Length(t)>=4 then begin
      for i:=1 to Length(t) do Map[i]:=Chr(i);
      w:=t;
      for i:=Length(t) downto 2 do   {убираем Й после гласных в слове}
        if (w[i] in ISh)and(w[i+1] in Vow) then begin
          Delete(w,i,1);
          Delete(Map,i,1)
        end;
      for i:=Length(w)-2 downto 2 do
        if (w[i+1] in Vow)and(w[i] in Vow)and(w[i+2] in Let)and(w[i-1] in Con) then
          if Length(s)+Ord(Map[i])<Lx then begin
            s:=s+Copy(t,1,Ord(Map[i]))+'-';
            Delete(t,1,Ord(Map[i]))
          end;
    end;
    WriteLn(s);
    s:=t;
    if c=' ' then s:=s+' ';

    {WriteLn(fOu,s)}
  until EoF(fIn);
  Close(fIn);
{  Close(fOu);   }
  ;ReadLn
end.

[Gold_Fish]

Я немного подозреваю, что ты смотришь на сделанное, как на пройденный этап, к которому нет смысла возвроащаться.. А это неправильно, так как именно в этом и состоит твой прогресс. Если можешь, развей мои подозрения

Сейчас разберусь в проге и попробую развеять ))
И спасибо Сударь, благодаря Вам я плавно приближаюсь к окончанию первого семестра моего учения, благодаря Вашей бескорыстной помощи

[Gold_Fish]

Что-то не очень понимаю вот это место:

for i:=1 to Length(VowDOS) do Include(Vow,VowDOS[i]);
for i:=1 to Length(ConDOS) do Include(Con,ConDOS[i]);
for i:=1 to Length(IShDOS) do Include(ISh,IShDOS[i]);
for i:=1 to Length(SHzDOS) do Include(SHz,SHzDOS[i]);

И почему-то перед [i] ошибка №121
Что тогда значит "i" ?
Ещё вот это можно пояснить:

s:=s+Copy(t,1,Ord(Map[i]))+'-';

Что такое тут Copy(t,1,Ord(Map[i])) ?

Сообщение отредактировано: Gold_Fish - 10.12.2006 21:05

[Lapp]

> И почему-то перед [i] ошибка №121
TP этого действительно не пропускает. Я думал, что ты уже перешла на FPC..
Для того, чтобы это скомпилить в TP, добавь тип string в определение конмтант, вот так:

  VowDOS='АаЕеЁёИиОоУуЫыЭэЮюЯя';
  ConDOS='БбВвГгДдЖжЗзКкЛлМмНнПпРрСсТтФфХхЦцЧч';
  IShDOS='Йй';
  SHzDOS='ЪъЬь';

> Что-то не очень понимаю вот это место:
> for i:=1 to Length(VowDOS) do Include(Vow,VowDOS[i]);
> ...
Это заполнение множеств. Раньше я задавал их непосредственно (см. старый вариант проги), а сейчас через строчку-константу. Так удобнее, согласись. Правда, требует лишних операторов (вот этих).

> Что тогда значит "i" ?
Это переменная цикла. См. описание цикла FOR в документации. Рекомендую описание:
http://download.excode.ru/download277.html

> Что такое тут Copy(t,1,Ord(Map[i])) ?
Копирование части строки. В указанном документе см. Приложение 4, Модуль System, П 4.1.3.

Давай, Рыбка - барахтайся, а то утонешь!

[Gold_Fish]

Барахтаюсь
В FPC я тоже пробовала эту прогу, да он пропускает это место, но в результате непонятно что мне выдает, вот так

Для того, чтобы это скомпилить в TP, добавь тип string в определение конмтант

А можно попроще для меня сказать еще раз?

[Lapp]

> В FPC я тоже пробовала эту прогу, да он пропускает это место,
> но в результате непонятно что мне выдает, вот так
Попытайся все же пердать словами, что именно она выдает..
Мне, например, она выдает примерно следующее:

C:\Home\home\ak\_pas\_t\t056_Gold_Fish>t056-4.exe
Введите имя файла для форматирования: d.txt
Милейшая исполнительница желаний
безумных старух, Вы создали, извиня-
юсь-с - doc-файл?..
Дружок, пойди в неказистый синенький
Фар, создай там в рабочей твоей
директории новый файл - назови,
скажем, d.txt. Убедись, однако, что
кодировка состоит DOS и сокопируй
туда вот этот самовый бред.. сорри,
вот эти мои заумные мысли - да, да,
прямо отсюда. Да и сохрани его, да и
закрой степенно..
Затем, нимало не отдыхаша, открой на
редактирование еще один новый файл -
и нареки имя ему w.txt. Закокококо..
кхм-кхм.. закопируй туда то же самое,
но только в этот раз да вразумит тебя
святой Пингвин, покровитель всех
программеров, соблюсти кодировку при
значении Win (рубильник F8 на твоем
распределительном щитке) - да
установи оное значение ДО
копирования, противу сказать опосля..
И етути двое фалОв да будут отныне
для тя тестовыми, ако в транслейшне -
попробовательными..
А о сатнинском Word'е - и думать
забудь, и трогать его не смей, и
выброси его в геенну огненную, и -
самое главное - НИКОГДА НЕ смотри в
нутро поганое файла того, что создала
ты в нем (переключатель F3 (просмотр
файла в Фаре) и не трогай даже! ну,
если тронешь - ну, сходи руки помой

Тут есть один перенос, подпавший под правило №1 (слово "извиняюсь") , и он выполнен. Если задать длину строки 39, то переноса получается аж два! Тут, конечно, есть ошибки, если заметишь - скажи. Это же еще не релиз..
А что она выдает тебе?..

> А можно попроще для меня сказать еще раз?
Фу, я в своем репертуаре... каким-то образом выпустил главное.. извинишь? Вот как надо:

  VowDOS:srting='АаЕеЁёИиОоУуЫыЭэЮюЯя';
  ConDOS:srting='БбВвГгДдЖжЗзКкЛлМмНнПпРрСсТтФфХхЦцЧч';
  IShDOS:srting='Йй';
  SHzDOS:srting='ЪъЬь';

Давай, плыви дальше

[Gold_Fish]

В общем-то ничего и не выдает )) ( может быть я не туда смотрю конечно: надо в сам файл чтоли заглядывать потом? )
Вот смотри что пишет:

Program c:\document and setting\fomin\desctop\cool\marinochka.exe
exited with
exitcode = 2

Где тогда результат смотреть???

>А можно попроще для меня сказать еще раз?
Фу, я в своем репертуаре... каким-то образом выпустил главное.. извинишь? Вот как надо:


VowDOS:srting='АаЕеЁёИиОоУуЫыЭэЮюЯя';
ConDOS:srting='БбВвГгДдЖжЗзКкЛлМмНнПпРрСсТтФфХхЦцЧч';
IShDOS:srting='Йй';
SHzDOS:srting='ЪъЬь';

Спасибки

Сообщение отредактировано: Gold_Fish - 11.12.2006 13:52

[Lapp]

> В общем-то ничего и не выдает ))
> ...
> Вот смотри что пишет:
> exitcode = 2
И это нынче называется "ничего не выдает"?.. Подруга подводоплавающая, это как раз и есть самая главная выдача! И значит она, что файл не найден.. Ты какой файл вводишь по запросу? мы, кажется, договорились на имена d.txt и w.txt. Пока прога работает только с досовской кодировкой, так что давай ей d.txt. И он должен быть в этой директории.. Ясно?

[Gold_Fish]

Теперь вообще FPC другую штуку пишет (типа ошибки, наверное, в новом окошке внизу)
А TP выдает ошибку №3 перед типом String, в штуке которую мы изменили.

> В общем-то ничего и не выдает ))
> ...
> Вот смотри что пишет:
> exitcode = 2
И это нынче называется "ничего не выдает"?.. Подруга подводоплавающая, это как раз и есть самая главная выдача! И значит она, что файл не найден.. Ты какой файл вводишь по запросу? мы, кажется, договорились на имена d.txt и w.txt. Пока прога работает только с досовской кодировкой, так что давай ей d.txt. И он должен быть в этой директории.. Ясно?

Ну я вводила d.txt точно ))

[Алена]

А TP выдает ошибку №3 перед типом String, в штуке которую мы изменили.

sTRing попробуй набрать, вместо того, что сейчас ...

[Lapp]

sTRing попробуй набрать, вместо того, что сейчас ...

Спасибо, Алена
Gold_Fish, еще раз извини..

[Gold_Fish]

УРА!!! Заработало
Там просто вместо string было srting написано, а я не проверила ...
Воть, честенько я невнимательностью страдаю к сожалению
Спасибки Алена
Lapp, хватит уже извиняться-то )) если бы не ты мне бы ноль в скором будущем поставили наверное Поэтому спасибки большое

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

[Lapp]

Ну я вводила d.txt точно ))

Против сверхъестественных явлений я пас.. Ошибка однозначная - файл не найден. Ищи.

[Gold_Fish]

Против сверхъестественных явлений я пас.. Ошибка однозначная - файл не найден. Ищи.

Теперь уже TP работает , а FPC прежнюю штучку пишет

[Lapp]

Теперь уже TP работает , а FPC прежнюю штучку пишет

Что ТР работает - это хорошо, но хотелось бы узнать, что за штучка.. Она при компиляции или при работе? Если при компиляции, то пойди в Options - Compiler - Code Generation и проставь там Turbo Pascal Compatible. И вообще, постарайся быть поконкретнее в сообщениях об ошибках.. иначе мы уйму времени потратим впустую.

В любом случае можешь продолжать в ТР. Вернись к мессаджу 21 и продолжай в духе того, что там написано.

[Gold_Fish]

Что ТР работает - это хорошо, но хотелось бы узнать, что за штучка.. Она при компиляции или при работе? Если при компиляции, то пойди в Options - Compiler - Code Generation и проставь там Turbo Pascal Compatible. И вообще, постарайся быть поконкретнее в сообщениях об ошибках.. иначе мы уйму времени потратим впустую.

В любом случае можешь продолжать в ТР. Вернись к мессаджу 21 и продолжай в духе того, что там написано.

Штучку прежнюю, где

exited with
exitcode = 2

написано.
Попробую продолжить в духе мессаджа #21 Не думаю, конечно, что получится, но надо попробовать

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

[Lapp]

> Штучку прежнюю, где
> exited with
> exitcode = 2
> написано.
Файл лежит в той же директории и не читается?.. чудеса..


> Попробую продолжить в духе мессаджа #21
> Не думаю, конечно, что получится, но надо попробовать
Обязательно надо . Кроме шуток

Заметил еще одну квазиошибку в том своем тексте..
Закомментируй, плз, строчки:

  Assign(fOu,'tst-ou-w.txt');
  ReWrite(fOu);

Ну, давай. Девиз всех Рыбок: плавать в море, чтоб не плавать на зачете!

[Gold_Fish]

Заметил еще одну квазиошибку в том своем тексте..
Закомментируй, плз, строчки:

  Assign(fOu,'tst-ou-w.txt');
  ReWrite(fOu);

Что сделать?
> Ну, давай. Девиз всех Рыбок: плавать в море, чтоб не плавать на зачете!
Спасибки ))

[Lapp]

Что сделать?

Заключить в фигурные скобки ))))))))

[Gold_Fish]

Заключить в фигурные скобки ))))))))

Ну не надо смеятся, я же не такая умная как Вы, дорогой друг Lapp, и не знала что это такое