Pointer33. Дано число D и указатель P_0 на один из элементов непустого двусвязного списка. Вставить перед данным элементом списка новый элемент со значением D и вывести указатель на добавленный элемент списка.
Записи с меткой «Pascal»
Решаем задачи Абрамян на Паскале. Param59
Param59. Описать тип TDate — запись с полями целого типа Day (день), Month (месяц) и Year (год) — и функцию LeaP_Year(D) логического типа с параметром типа TDate, которая возвращает True, если год в дате D является високосным, и False в противном случае. Вывести значение функции LeaP_Year для пяти данных дат (предполагается, что все даты являются …
Решаем задачи Абрамян на Паскале. Pointer32
Pointer32. Даны числа D_1 и D_2 и указатель P_0 на один из элементов непустого двусвязного списка. Добавить в начало списка новый элемент со значением D_1, а в конец — новый элемент со значением D_2. Вывести адреса первого и последнего элементов полученного списка.
Решаем задачи Абрамян на Паскале. Pointer31
Pointer31. Дан указатель P_0 на один из элементов непустого двусвязного списка. Вывести число N — количество элементов в списке, а также указатели P_1 и P_2 на первый и последний элементы списка.
Решаем задачи Абрамян на Паскале. Param58
Param58. Описать процедуру DecodeText(S, K), которая дешифрует текстовый файл с именем S, зашифрованный с использованием кодового смещения K (способ шифрования описан в задании Param57). Используя эту процедуру и зная кодовое смещение K, расшифровать файл с указанным именем.
Решаем задачи Абрамян на Паскале. Pointer30
Pointer30. Дан указатель P_1 на начало непустой цепочки элементов-записей типа TNode, связанных между собой с помощью поля Next. Используя поле Prev записи TNode, преобразовать исходную (односвязную) цепочку в двусвязную, в которой каждый элемент связан не только с последующим элементом (с помощью поля Next), но и с предыдущим (с помощью поля Prev). Поле Prev первого элемента …
Решаем задачи Абрамян на Паскале. Param57
Param57. Описать процедуру EN_CodeText(S, K), которая шифрует текстовый файл с именем S, выполняя циклическую замену каждой русской буквы на букву того же регистра, расположенную в алфавите на K-й позиции после шифруемой буквы (0<K<10). Например, при K=3 «А» перейдет в «Г», «я» — в «в». Букву «ё» в алфавите не учитывать, считая, что за буквой «е» …
Решаем задачи Абрамян на Паскале. Pointer29
Pointer29. Дан адрес P_2 записи типа TNode, содержащей поле Data (целого типа) и поля Prev и Next (типа PNode — указателя на TNode). Эта запись связана полями Prev и Next соответственно с предыдущей и последующей записью того же типа. Вывести значения полей Data предыдущей и последующей записи, а также адреса P_1 и P_3 предыдущей и …
Решаем задачи Абрамян на Паскале. Param56
Param56. Описать процедуру TextToStringFile(S), преобразующую текстовый файл с именем S в двоичный строковый файл с тем же именем. Используя эту процедуру, преобразовать два данных текстовых файла с именами S_1 и S_2 в строковые.
Решаем задачи Абрамян на Паскале. Pointer28
Pointer28. Даны указатели P_1 и P_2 на начало и конец очереди. Используя тип TQueue (см. задание Pointer26), описать функцию QueueIsEmpty(Q) логического типа, которая возвращает True, если очередь Q пуста, и False в противном случае (Q — входной параметр типа TQueue). Используя эту функцию для проверки состояния очереди, а также функцию Dequeue из задания Pointer27, извлечь …