Помогите понять как работает функция.

[Callidus Furo]

Помогите пожалуйста понять как работает функция, если не сложно можете в комментах подписать... Нужно данную функцию на делфи перенести, просто C++ плохо знаю....

Это функция для создания кольцевых односвязных списков

Код: [Выделить]

void SKOS () //в функции опущено описание элементов списка
//создание списка с включенным заглавным элементом
{ node *sag,*s,*q;
//s,q-рабочие указатели
int a;
sag= new node;
sag->next=sag;
s=sag;
count<<"вводите элементы списка:\n";
count<<"(ввод завершите нулем)\n ";
cin>>a;
if (el !=0)
{
q= new node;
q->inf=a;
s->next=q; s=q;
cin>>a;
while (a !=0)
{
q=new node;
q->inf=a;
s->next=q; s = q;
cin>>a;
}
q->next=sag;
renurn;
}

[Yurror]

не функция а один большой memory leak =) прикольно!

[Callidus Furo]

не функция а один большой memory leak =) прикольно!

А вы не могли бы закомментировать эту функцию, что бы я понял как она работает. Я ее на делфи сам сделаю.

[Protopopulus]

Это функция для создания кольцевых односвязных списков

По-моему это главные слова в посте... Гугли про кольцевые списки!!!

[wl]

А Вы поработайте сами за компьютер, карандашом на бумаге. Самый верный способ во всем разобраться.

Возьмите лист бумаги, нарисуйте там квадратики, это будут переменные, подпишите их, впишите значения.
Стрелками обозначьте указатели.
Например, оператор присваивания

Код: [Выделить]

sag->next=sag;будет обозначен стрелкой, выходящей из квадратика, обозначенного "sag", и входящей в него же.

Двигаясь по ходу функции или по итерациям циклов, меняйте стрелки и значения переменных.

Не надо лениться! Свою голову Вам никто приставлять не будет.

[Protopopulus]

Элемент односвязного списка имеет такую структуру:

Код: [Выделить]

type
TNode = record
  Next: Pointer;
  Data: Некотрой_тип;
end;Next указывает на адрес следующего Node, а Data содержит некоторые данные.

[wl]

Элемент односвязного списка имеет такую структуру:

Код: [Выделить]

type
TNode = record
  Next: Pointer;
...
end;

Точно Pointer, а не ^TNode?

[Protopopulus]

Не. TNode еще не определен. Хотя... Сейчас проверю.
Пользователь решил продолжить мысль 30 Марта 2010, 12:14:34:Все перепутал Слишком много всяких языков за последнее время перепробовал... Извините.
Вот описание:

Код: [Выделить]

type
TNext = ^TNode;
TNode = record
  Data: integer | string | etc.;
  Next: TNext;
end;В паскале рекурсивное описание типов недопустимо. Поэтому, приходится делать таким эквивалентом.

[Callidus Furo]

А Node я как понимаю это класс?

[wl]

Не Node, а TNode.
Не класс, а запись (record).

[Callidus Furo]

Не Node, а TNode.
Не класс, а запись (record).

Спасибо, теперь чего-то уже понятно =)