Паскаль — Клёвый код

Решаем задачи Абрамян на Паскале. Pointer80

Pointer80. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы непустого двусвязного списка, причем текущий элемент не совпадает с барьерным.Используя тип TListB (см. задание Pointer74), описать функцию LBDeleteCurrent( $L$ ) целого типа, удаляющую из списка $L$ текущий элемент и возвращающую его значение ( $L$ — входной и выходной параметр типа TListB). Текущим становится следующий элемент или, если …

Решаем задачи Абрамян на Паскале. Pointer79

Pointer79. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка. Используя тип TListB (см. задание Pointer74), описать процедуры LBToLast( $L$ ) (делает текущим последний элемент списка $L$ ), LBToPrev( $L$ ) (делает текущим в списке $L$ предыдущий элемент) и функцию LBGetData( $L$ ) целого типа (возвращает значение текущего элемента списка $L$ ). Параметр $L$ имеет тип TListB; в процедурах LBToLast …

Решаем задачи Абрамян на Паскале. Pointer78

Pointer78. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка. Используя тип TListB (см. задание Pointer74), описать процедуры LBToFirst( $L$ ) (делает текущим первый элемент списка $L$ ), LBToNext( $L$ ) (делает текущим в списке $L$ следующий элемент), LBSetData( $L$ , $D$ ) (присваивает текущему элементу списка $L$ значение $D$ целого типа, если данный элемент не является барьерным) и функцию …

Задача на строки

Дана последовательност, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных букв; между соседними словами — запятая, за последним словом — точка . напечатать все слова последователоьности, которые отличны от последнего слова , предварительно преобразовав каждое из них по след правилу: удалить из слова первую букву.

Решаем задачи Абрамян на Паскале. Pointer77

Pointer77. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка. Также даны пять чисел. Используя тип TListB (см. задание Pointer74), описать процедуру LBInsertAfter( $L$ , $D$ ), которая вставляет новый элемент со значением $D$ после текущего элемента списка $L$ ( $L$ — входной и выходной параметр типа TListB, $D$ — входной параметр целого типа). Вставленный элемент …

Решаем задачи Абрамян на Паскале. Pointer76

Pointer76. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка. Также даны пять чисел. Используя тип TListB (см. задание Pointer74), описать процедуру LBInsertBefore( $L$ , $D$ ), которая вставляет новый элемент со значением $D$ перед текущим элементом списка $L$ ( $L$ — входной и выходной параметр типа TListB, $D$ — входной параметр целого типа). Вставленный элемент …

Решаем задачи Абрамян на Паскале. Pointer75

Pointer75. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка. Также дано число $N$ $(>0)$ и набор из $N$ чисел. Используя тип TListB (см. задание Pointer74), описать процедуру LBInsertFirst( $L$ , $D$ ), которая добавляет новый элемент со значением $D$ в начало списка $L$ ( $L$ — входной и выходной параметр типа TListB, $D$ — входной …

Решаем задачи Абрамян на Паскале. Pointer74

Pointer74. Даны указатели $P_1$ и $P_2$ на барьерный и текущий элементы двусвязного списка (о списке с барьерным элементом см. задание Pointer70). Также дано число $N$ $(>0)$ и набор из $N$ чисел. Описать тип TListB — запись с полями Barrier и Current типа PNode (поля указывают соответственно на барьерный и текущий элементы списка) — и процедуру …

Решаем задачи Абрамян на Паскале. Pointer73

Pointer73. Даны указатели $P_1$ и $P_2$ на барьерные элементы двух двусвязных списков (о списке с барьерным элементом см. задание Pointer70). Объединить исходные списки, связав конец первого и начало второго списка (барьерным элементом объединенного списка должен остаться барьерный элемент второго списка). Вывести указатели на первый и последний элементы объединенного списка (если объединенный список является пустым, то …

Решаем задачи Абрамян на Паскале. Pointer72

Pointer72. Даны указатели $P_1$ и $P_2$ на барьерные элементы двух двусвязных списков (о списке с барьерным элементом см. задание Pointer70). Объединить исходные списки, связав конец первого и начало второго списка (барьерным элементом объединенного списка должен остаться барьерный элемент первого списка). Вывести указатели на первый и последний элементы объединенного списка (если объединенный список является пустым, то …