Стек

[Rediska512]

Помогите пожалуйста.
Задача: Создать текстовый файл, между словами запятая, в конце точка.
За один просмотр файла вывести самые длинные слова (с помощью стека)

Вот код процедуры обработки программы

procedure obrabotka(var f:text; var head:ptr);
var s,slovo:string; i,j:byte;
begin
   reset(f)
   while not(eof(f)) do
   begin
      readln(f,s);
      slovo:='';
      for i:=1 to length(s) do
      begin
      if s[i]<>',' then slovo:=slovo+s[i]
      else
      begin
         if head=nil then begin add(head,slovo); slovo:=''; end
         else
         if length(slovo)=length(head^.data) then begin add(head,slovo); slovo:=''; end
         else if length(slovo)>length(head^.data) then
         begin
            del(head);
            add(head,slovo); slovo:='';
         end;
      end;
      end;
   end;
   close(f);
end;

все хорошо если самое длинное слово одно, а когда 2 и больше то начинаются непонятки, выводит что угодно кроме того что надо
и мне кажется что проблема в строчке

  if length(slovo)=length(head^.data) then begin add(head,slovo); slovo:='';

а вот что именно не пойму
ЗЫ Процедуры add и del работают правильно (проверял в другой программе)
Помогите пожалуйста

[Rediska512]

еще я пропустил условие точки в конце строчки и ставил в конце запятую
если кто знает помогите и это исправить пожалуйста

[Rediska512]

что никто не может помочь?

[rubius2008]

del - удаляет один элемент стека или весь стек? мне почему-то кажется, что один, а надо чтоб весь полностью стек очищался

[Serge_Bliznykov]

что никто не может помочь?

выкладывайте код программы целиком, можно будет пройтись в отладчике, посмотреть, что происходит.

а так, можно гадать..
например, я согласен с rubius2008, вполне может быть причина в том, что не удаляются все элементы...
а может быть, и в другом ошибка..

[Rediska512]

del удаляет весь стек

program z_STEC;
uses crt;
type 
   str=string[20];
   ptr=^element;
   element=record
         data:scr;
         next:ptr;
         end;
var
head:ptr; f:text; name:string;

procedure init_file(var f:text);
var s:string;
begin
   rewrite(f);
   writeln('Vvedite stro4ki slov, mejdy slovami zapyatie, konec #');
   readln(s);
   while s<>'#' do
   begin
      write(f,s);
      readln(s);
   end;
   close(f);
end;

procedure Add(var head:ptr; s:string);
var x:ptr;
begin
   new(x);
   x^.data:=s;
   x^.next:=head;
   head:=x;
end;

procedure Del(var head:ptr);
var x:ptr;
begin
   while head<>nil do
   begin
      x:=head;
      head:=head^.next;
      dispose(x);
   end;
end;

procedure VuvodStek(var head:ptr);
var
s:string; x:ptr;
begin
   writeln('Samie dlinie slova:');
   while head<>nil do
   begin
      x:=head;
      s:=x^.data;
      writeln(s);
      head:=head^.next;
      dispose(x);
   end;
end;

procedure obrabotka(var f:text; var head:ptr);
var s,slovo:string; i,j:byte;
begin
   reset(f)
   while not(eof(f)) do
   begin
      readln(f,s);
      slovo:='';
      for i:=1 to length(s) do
      begin
      if s[i]<>',' then slovo:=slovo+s[i]
      else
      begin
         if head=nil then begin add(head,slovo); slovo:=''; end
         else
         if length(slovo)=length(head^.data) then begin add(head,slovo); slovo:=''; end
         else if length(slovo)>length(head^.data) then
         begin
            del(head);
            add(head,slovo); slovo:='';
         end;
      end;
      end;
   end;
   close(f);
end;

BEGIN
   clrscr;
   writeln('Vvedite Imya faila')'
   readln(name);
   assign(f,name);
   init_file(f);
   head:=nil;
   obrabotka(f,head);
   if head=nil then writeln('Fail ne soderjit dannie')
   else vuvodstek(head);
   readln;
end.

[Rediska512]

опять никто не поможет?

[rubius2008]

попробуйте поправить в init_file

write(f,s);

на

writeln(f,s);

[eoln]

Диагноз: в случае, если слово-кандидат не подходит по параметрам length(slovo)=length(head^.data) или length(slovo)>length(head^.data), переменная slovo не обнуляется, поэтому добавляем строчку как в коде ниже.

         begin
            del(head);
            add(head,slovo); slovo:='';
         end;
         slovo:=''

P.S. Можно из строк выше убрать обнуление слова, чтобы дублирования команд не было и чтобы избавиться от лишних операторных скобок begin/end, но можно этого и не делать - всё-равно работает.
P.P.S. Ввод не оченб удачен, ибо после последнего слова тоже надо ставить запятую

[Rediska512]

Сообщение от eoln

Диагноз: в случае, если слово-кандидат не подходит по параметрам length(slovo)=length(head^.data) или length(slovo)>length(head^.data), переменная slovo не обнуляется, поэтому добавляем строчку как в коде ниже.

         begin
            del(head);
            add(head,slovo); slovo:='';
         end;
         slovo:=''

P.S. Можно из строк выше убрать обнуление слова, чтобы дублирования команд не было и чтобы избавиться от лишних операторных скобок begin/end, но можно этого и не делать - всё-равно работает.
P.P.S. Ввод не оченб удачен, ибо после последнего слова тоже надо ставить запятую

огромное спасибо, все работает, а то я себе весь мозг сломал уже