Processing math: 0%

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