Как распечатать последовательность в столбик - Turbo Pascal

Формулировка задачи:

Как распечатать последовательность 1 2 в столбик?

PROGRAM ArrStack3(INPUT,OUTPUT);
TYPE
  NodePtr = ^Node;
  Node = RECORD
           Value: INTEGER;
           Next: NodePtr
         END;  
VAR
  FirstPtr, NewPtr: NodePtr;
BEGIN
  New(FirstPtr);
  FirstPtr^.Value := 1;
  NewPtr := FirstPtr;
  New(NewPtr^.Next);
  NewPtr^.Value := 2;
  NewPtr := NewPtr^.Next;
  NewPtr^.Next := NIL;
  WHILE FirstPtr^.Next <> NIL
  DO
    BEGIN
      WRITELN(FirstPtr^.Value);
      FirstPtr := FirstPtr^.Next
    END;
  WRITE(FirstPtr^.Value)
END.

Решение задачи: «Как распечатать последовательность в столбик»

Листинг программы

PROGRAM ArrStack3;
TYPE
  NodePtr = ^Node;
  Node = RECORD
           Value: INTEGER;
           Next: NodePtr
         END;
VAR
  FirstPtr, NewPtr: NodePtr;
BEGIN
  New(FirstPtr);
  FirstPtr^.Value := 1;
  NewPtr := FirstPtr;
  New(NewPtr^.Next);
  NewPtr := NewPtr^.Next;
  NewPtr^.Value := 2;
  New(NewPtr^.Next);
  NewPtr := NewPtr^.Next;
  NewPtr^.Value := 3;
  NewPtr^.Next := NIL;
  
  
  {вывод списка в столбик}
  NewPtr := FirstPtr;
  WHILE NewPtr <> NIL
  DO
    BEGIN
      WRITELN(NewPtr^.Value);
      NewPtr := NewPtr^.Next
    END;
END.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

NodePtr - указатель на узел типа Node
Node - тип данных, представляющий узел в виде записи с полями Value (значение) и Next (указатель на следующий узел)
FirstPtr - первый узел в стеке
NewPtr - новый узел, который будет добавлен в стек Сначала создается первый узел в стеке, его значение устанавливается равным 1. Затем создается новый узел, который будет следующим в стеке, и его значение устанавливается равным 2. Далее создается еще один новый узел, его значение устанавливается равным 3, а указатель на следующий узел устанавливается в NIL. Далее происходит цикл, который проходит по каждому узлу в стеке, начиная с первого, и выводит значение каждого узла на экран. После вывода значения текущего узла, указатель на текущий узел обновляется, чтобы перейти к следующему узлу. Цикл продолжается до тех пор, пока не будет достигнут конец стека, то есть пока указатель на первый узел не станет равным NIL.