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, извлечь …
Решаем задачи Абрамян на Паскале. Param55
Param55. Описать процедуру StringFileToText($$S$$), преобразующую двоичный строковый файл с именем $$S$$ в текстовый файл с тем же именем. Используя эту процедуру, преобразовать два данных строковых файла с именами $$S_1$$ и $$S_2$$ в текстовые.