|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2010, 16:12 | #1 |
Регистрация: 14.04.2010
Сообщений: 3
|
Каков принцип работы с указателями???
...можете откомментить те строчки, где мне непонятно....? Я суть не пойму...
type TTree = ^TNode; //? TNode = record value : integer; left, right : TTree;//? end; // Создание элементов дерева procedure Insert (var Root : TTree; x : integer); procedure CreateNode (var p : TTree; n : integer); begin new(p);//выделяем память под что? p^.value := n;//? p^.left := nil;//? p^.right := nil;//? end; begin if Root = nil then CreateNode (Root, x) else with Root^ do //? begin if value <= x then //? Insert (right, x) //? else Insert (left, x) //? end; end; // Уничтожение дерева procedure Delete (t : TTree); begin if t = nil then //? exit; Delete (t^.right);//? Delete (t^.left);//? Dispose(t);//? end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Конвертор валют... не понятен принцип работы | mid | Помощь студентам | 7 | 25.02.2011 23:33 |
принцип работы LPT порта | Joslen_bomon | Компьютерное железо | 3 | 08.12.2009 14:30 |
Объсните принцип работы программы | Ge0rGE | Помощь студентам | 1 | 10.06.2009 21:50 |
работы с указателями и массивами... | Катюшенька | Помощь студентам | 21 | 24.01.2009 12:17 |