Интересный аспект решения задачи о позиционном выводе слов, сделать за один просмотр Опции

[volvo]

Условие задачи смотрите здесь: string, разбор по словам

Предложение участникам форума (Показать/Скрыть)

Так что надо сначала все просмотреть и определить его. А потом на втором проходе уже печатать.

Первые три человека, приславшие мне в PM (чтобы топикстартера не отвлекать от решения задачи) программу, которая выполняет задание за один проход (нет двух явных проходов - первого для нахождения indent-а, и второго - для печати), получают +1 в репутацию (слабонервным даже не браться за это). Все дополнительные вопросы - тоже в PM...

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

[Unconnected]

Соорудил прогу, по немного другому принципу.. volvo в ЛС не ответил что-то, наверное, она не подходит под критерии, поэтому кладу сюда )

const mc=60;

var words:array[1..mc] of string;
    s,sam,buf:string;
    i,p,d,bd,j,k:integer;
    lets:set of char=['a'..'z']+['A'..'Z'];
begin
  writeln('Type in a text');
  readln(s);
  writeln('Type in a sample');
  readln(sam);
  p:=0;
  d:=0;
  bd:=0;
  buf:='';
  s:=s+' ';
  for i:=1 to length(s) do begin
    if (s[i] in lets) then buf:=buf+s[i] else begin
      d:=pos(sam,buf);
      if d>0 then begin
        inc(p);
        words[p]:=buf;
        if d>bd then begin
          for j:=1 to p do
            for k:=1 to (d-pos(sam,words[j])) do words[j]:=' '+words[j];
            bd:=d;
        end else begin
          for k:=1 to bd-d do words[p]:=' '+words[p];
        end;
        buf:='';
      end;
    end;
  end;
  for i:=1 to p do writeln(words[i]);
  readln;
end.

(подразумевается, что слова разделены только пробелами. Писал в делфи, но в паскале тоже должно работать.)

Сообщение отредактировано: Unconnected - 5.12.2010 21:12