/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Reference.pas
34 строки
1 KB
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Использование ссылок вместо указателей для создания односвязного списка type Node = class data: integer; next: Node; constructor (d: integer; n: Node); begin data := d; next := n; end; end; // Переменная типа "класс" представляет собой ссылку на объект, выделяемый конструктором var first: Node; begin first := nil; // Добавляем в начало односвязного списка first := new Node(3,first); first := new Node(7,first); first := new Node(5,first); // Вывод односвязного списка. ^ отсутствуют writeln('Содержимое односвязного списка (использование ссылок вместо указателей): '); var p := first; while p<>nil do begin write(p.data,' '); p := p.next; end; // Разрушение односвязного списка first := nil; // Сборщик мусора соберет память, на которую никто больше не указывает end.