# include
# include
# define IMAX 4List {//Клас "Список": Value;// Значення ел-та списку * Next;// @ слід. ел-та списку: AddElList (char); OutpList (char); DelElList (int); AddElList (float, char); CreateList (); (const char * Ident)// Конструктор класу
{<<"Lead the value of the first";// Запит на введення
// значення <<"element of list" <> Value;// Читання першого ел-та = NULL; // 1-й ел-т посилається на NULL
} ()// Конструктор без параметрів
{= 0;// Читання значення нов. ел-та = NULL;// Нов. ел-т си лан-ся на NULL
}
~ List ();// Деструктор класу
};
// --------------------------------//
// Деструктор класу List//
// --------------------------------// :: ~ List ()
{* CurrEl,// ​​Поточний ел-т списку
* TNext;// Наступний ел-т = this;// Перший ел-т - Об'єкт ((CurrEl-> Next! = NULL) &&
(CurrEl-> Next! = this)) {= CurrEl-> Next;// Збережемо адресу слід. ел-та (CurrEl); = TNext;// далі. ел-т зробити поточним
}; (CurrEl);// Видалити останній ел-т <<"Object deleted" <<' n'; ();
}
// **************************************** *************//
// Функція додавання елемента в кінець односвязного списку//
// **************************************** *************// List :: AddElList (char R)
{* CurrEl,// ​​Поточний ел-т списку
* NewEl = new List;// Новий ел-т списку
// Виділ-е ​​пам'яті під Нов. ел-т = this;// Поточний ел-т - Об'єкт * KeyWord; = R? this: NULL; (CurrEl-> Next! = KeyWord) {//Перехід в кінець списку = CurrEl-> Next;
} <<"Lead the value of new element of list";>> NewEl-> Value;// Введення знач-я нового ел-та> Next = KeyWord ;// Новий ел-т посилається на NULL> Next = NewEl;// Новий ел-т - в кінець списку
}
// ---------------------------------------- ------------------------//
// Функція виведення на екран односвязного списку//
{Count = 1;// Лічильник ел-тів списку * CurrEl;// Поточний ел-т списку = this;// Поточний ел-т - Об'єкт * KeyWord; = R? this: NULL; (CurrEl! = KeyWord) {< Value << ' n'; = CurrEl-> Next; + +;
}
}
// ---------------------------------------- -------------//
// Функ...
