Решаем задачи Абрамян на Паскале. 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 к пяти данным датам.