Добавить процедуру, которая последний элемент массива ставит на первое место - Pascal ABC

Узнай цену своей работы

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

Вот программа, нужно добавить процедуру, которая последний элемент ставит на 1 место, помогите пожалуйста.

Решение задачи: «Добавить процедуру, которая последний элемент массива ставит на первое место»

textual
Листинг программы
PROCEDURE Swap;
var p:pComp;
s:string [10];
begin
p:=pTop;
While p^.pNext<>nil do p:=p^.pNext;
s:=p^.SD;
Dispose (p);
New (p);
p^.SD:=s;
p^.pNext:=pTop;
pTop:=p;
end;

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

  1. Создается процедура Swap.
  2. Создается переменная типа pComp, которую называют p.
  3. Создается переменная типа string, которую называют s, и ей присваивается значение s.
  4. Переменная p инициализируется значением pTop.
  5. В цикле While происходит следующее:
    • Переменная p считывает значение следующего элемента в массиве.
    • Переменная p освобождается с помощью Dispose.
    • Создается новый объект типа pComp.
    • Значение переменной s присваивается новому объекту pComp.
    • Переменная p^.pNext присваивается значению pTop.
  6. Переменная pTop присваивается значению p.
  7. Код завершается.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы