/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/13_Pointers/Pointer4.pas
43 строки
979 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Выделение динамической памяти // Использование указателей для создания односвязного списка type PNode = ^TNode; TNode = record data: integer; next: PNode; end; function NewNode(d: integer; n: PNode): PNode; begin New(Result); Result^.data := d; Result^.next := n; end; var first: PNode; begin first := nil; // Добавляем в начало односвязного списка first := NewNode(3,first); first := NewNode(7,first); first := NewNode(5,first); // Вывод односвязного списка writeln('Содержимое односвязного списка: '); var p := first; while p<>nil do begin write(p^.data,' '); p := p^.next; end; // Разрушение односвязного списка p := first; while p<>nil do begin var p1 := p; p := p^.next; Dispose(p1); end; end.