подсчет количества слов списка. Опции

[Lapp]

Это не я написал,а кто то другой ,если что)))

Если - что? Да я знаю, что не ты.. ))

Господа, мне несколько жалко РЯ, который я очень люблю (как я понял после достаточно близкого знакомства с другим языком). Мало того, что большинство населения стремится ужать его в три слова, так еще теперь и хуже того - значения этих трех слов расползлись и на совершенно нормальные другие слова! Кошмар.. неужели не противно, а?..

Ладно, все, кончаем флудить. Кого сильно задело - открывайте тему в Дискуссиях (да, когнито)).

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

ducky, ты сделала движение в правильном направлении, но ошибок много.. И еще: кроме процедуры добавления должна быть процедура инициализации, а также просмотра списка. Я помогу завтра (если никто раньше не поможет).

[Krjuger]

Ладно попробую я помоч.
Во-первых,

AddElem(l: tElem; w: tWord);
begin
 First: = nil; 
  While n>0 do 
    begin
      New®; 
      r^.Next:=first; 
      r^.Number:=n;
      First:=r; 
      n := n-1 
end;

Насколько я понимаю ты хочеш заполнить список натуральными числами от n до 1,но вопрос, а как его найти....Его надо передавать в процедуру.Тоже самое и с самим списком.Ты передаеш l и w,а работаеш с r и n, согласись непорядок.
Дальше я приведу то,что удалось сделать,но там будеть чуть по другому(собственно имена,которые мне привычней и все),но зато более наглядно станет.

TElem = integer;
Type
 PTStackItem = ^TStackItem;
 TStackItem = record
   Data: TElem;
   Next: PTStackItem;
end;
TStack = PTStackItem;

Procedure InitStack(var Stack:TStack);
 begin
  Stack:=nil;
 end;


Function StackEmpty(Stack:TStack):Boolean;
 begin
  StackEmpty:=(Stack=NIL);
 end;

Procedure StackPush(var Stack:TStack; E:TElem);
 var
  tmp:TStack;
 begin
  new(tmp);
  tmp^.next:=Stack;
  tmp^.data:=E;
  Stack:=tmp;
 end;

Procedure PrintStack(Var Stack: TStack);
  Var p: PTStackItem;
  Begin
    WriteLn( 'Printing Stack...' );
    If StackEmpty(Stack) Then
      Begin
        WriteLn('<Џгбв®©>'); Exit
      End;

    p := Stack;
    While p <> nil Do
      Begin
        Write( p^.data, ' ' );
        p := p^.next;
      End;
    WriteLn
  End;

Для того чтобы работать со списками всгда сначала надо описать их функционал,то есть инициализацию,добавление 1го элемента и ,если в задании необходимо, удаление 1го элемента.Ну я для себя еще выделаю проверку стека на пустоту.А потом на базе этого уже создается сам список вызыванием необходимого числа раз добавления 1го элемента.Насчет того,что Lapp сказал про просмотр,я не совсем понял,что он подразумевал,поэтому сделал печать на экран.
Ну и собственно создание стека будет зависеть от того как ты его вводиш,руками ли из файла ли,поэтому тут я решил не делать ничего пока.тем более,что ты скорее всего уже сама справишся.