Задача на списки, Создание из файла списка Опции

[-=Считывающий=-]

так... получилось что-то такое) ну и (кто бы сомневался)))) что-то не так) Не посмотрите?....  TEST02.PAS ( 4.24 килобайт ) Кол-во скачиваний: 367


Сообщение отредактировано: -=Считывающий=- - 22.10.2006 13:43

[мисс_граффити]

у меня не выводит вообще ничего при выборе 2 пункта (1 работает, вроде).
так и должно быть?

[-=Считывающий=-]

вот в том-то и дело)) не посмотришь что не так?...плз

[volvo]

Во-первых, ты неправильно делаешь проверку... Я бы делал так:

Procedure Proverka(buf:string;var flag:boolean);
Var bufHead:NSl;
Begin
   bufHead:=Head;
   flag:=false;
   While bufHead<>nil do
   Begin
         If bufHead^.Sname=buf
         Then
             begin
             flag:=true;
             end;
         bufHead:=bufHead^.Next; { <--- Это надо делать ВСЕГДА, иначе очень возможно зацикливание }
   end;
End;

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

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

Procedure PrintSl(Sl:NSl);
Var
   i, n:integer;
   p: nsl;
Begin
    p:=Sl;
    While (p<>nil) do
    Begin
          writeln(p^.Sname,' ',p^.Kol);
          p:=p^.Next;
    end;
end;

(естественно, что вызывать печать списка в главном Case придется по-другому:

2: PrintSl(Head);

)

Ну, и самое главное, ты неправильно конструируешь список... Прежде всего, при инициализации нового элемента, его Next нужно об-Nil-ить:

Procedure NewSl(var Sl:NSl);
Begin
   New(Sl);
   sl^.next := nil; { <--- Вот тут !!! }
   If Head=nil then
      Begin
         Head:=Sl;
         { Tail:=Sl; } { <--- Это - одинаковое для обеих веток действие, выносим ПОД If }
      end
   else
      begin
         Tail^.Next:=Sl;
         { Tail:=Sl; } { <--- Это - одинаковое для обеих веток действие, выносим ПОД If }
      end;

   Tail := Sl;
End;

Ну, и основная ошибка - ты зачем меняешь Head^? Не проще ли сделать так:

       If flag=false then
          Begin
             NewSl(Sl);
             sl^.Sname:=St_Otv1; { Зачем-то ты же инициализировал Sl, правда? }
             sl^.Kol:=1;
          end

?

[-=Считывающий=-]

Спасибо огромное! Понял, исправлю! Вы очень помогли, если бы не Вы, незнаю чтобы я делал, правда! Спасибо!

[мисс_граффити]

       If flag=false then 

ты чего?

[volvo]

ты чего?

Это не я, я ж не перерабатывал программу полностью (если бы с нуля делать, я бы сделал совершенно по-другому), как у автора было - так и оставил. На правильность ЭТО не влияет

[мисс_граффити]

Это не я, я ж не перерабатывал программу полностью (если бы с нуля делать, я бы сделал совершенно по-другому), как у автора было - так и оставил. На правильность ЭТО не влияет

Если не секрет - как по-другому?
Точнее, изменения были бы на уровне составления словесного алгоритма или на уровне перевода его в код?

[volvo]

На уровне кодирования. В частности, я бы не стал никогда отдельно (в процедуре) выделять место под элемент в списке, и ВНЕ процедуры заполнять этот элемент данными... Я бы передавал в процедуру сами данные и на месте сразу "выделил память/заполнил ее"

Опять же глобальные переменные - больной вопрос. Я бы не использовал...

[мисс_граффити]

ясно
я думала, какие-то оптимизации именно по алгоритму...