Pointer37. Дан указатель $$P_1$$ на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными номерами (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка.
Записи с меткой «Паскаль»
Решаем задачи Абрамян на Паскале. Param64
Param64. Описать тип TPoint — запись с полями вещественного типа $$X$$ и $$Y$$ (координаты точки на плоскости) — и функцию Leng($$A$$, $$B$$) вещественного типа, находящую длину отрезка $$AB$$ на плоскости по координатам его концов: $$|AB|=\sqrt{(A.X-B.X)^2+(A.Y-B.Y)^2}$$ . ($$A$$ и $$B$$ — параметры типа TPoint). С помощью этой функции найти длины отрезков $$AB$$, $$AC$$, $$AD$$, если даны …
Решаем задачи Абрамян на Паскале. Param63
Param63. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру NexTDate(DD) с параметром типа TDate, которая преобразует дату DD к следующей дате (если дата DDявляется неправильной, то она не изменяется). Запись DD является входным и выходным параметром. Применить процедуру NexTDate к пяти данным датам.
Решаем задачи Абрамян на Паскале. Pointer36
Pointer36. Даны указатели $$P_1$$ и $$P_2$$ на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять после существующих элементов с такими же значениями) и вывести указатель на последний элемент преобразованного списка.
Решаем задачи Абрамян на Паскале. Param62
Param62. Используя тип TDate и функции DaysInMonth и CheckDate (см. задания Param59-Param61), описать процедуру PrevDate ($$D$$) с параметром типа TDate, которая преобразует дату $$D$$ к предыдущей дате (если дата $$D$$ является неправильной, то она не изменяется). Запись $$D$$ является входным и выходным параметром. Применить процедуру PrevDate к пяти данным датам.
Решаем задачи Абрамян на Паскале. Pointer35
Pointer35. Даны указатели $$P_1$$ и $$P_2$$ на первый и последний элементы двусвязного списка, содержащего не менее двух элементов. Продублировать в списке первый и последний элементы (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка.
Решаем задачи Абрамян на Паскале. Param61
Param61. Используя тип TDate и функцию DaysInMonth (см. задания Param59 и Param60), описать функцию CheckDate($$D$$) целого типа с параметром типа TDate, которая проверяет правильность даты, указанной в параметре $$D$$. Если дата $$D$$ является правильной, то функция возвращает $$0$$; если в дате указан неверный номер месяца, то функция возвращает $$1$$; если в дате указан неверный день …
Решаем задачи Абрамян на Паскале. Pointer34
Pointer34. Дано число $$D$$ и указатель $$P_0$$ на один из элементов непустого двусвязного списка. Вставить после данного элемента списка новый элемент со значением $$D$$ и вывести указатель на добавленный элемент списка.
Решаем задачи Абрамян на Паскале. Param60
Param60. Используя тип TDate и функцию LeaP_Year (см. задание Param59), описать функцию DaysInMonth($$D$$) целого типа с параметром типа TDate, которая возвращает количество дней для месяца, указанного в дате $$D$$. Вывести значение функции DaysInMonth для пяти данных дат (предполагается, что все даты являются правильными).
Решаем задачи Абрамян на Паскале. Pointer33
Pointer33. Дано число $$D$$ и указатель $$P_0$$ на один из элементов непустого двусвязного списка. Вставить перед данным элементом списка новый элемент со значением $$D$$ и вывести указатель на добавленный элемент списка.