Pascal — Страница 6 — Клёвый код

Решаем задачи Абрамян на Паскале. Param65

Param65. Используя тип TPoint и функцию Leng (см. задание Param64), описать тип TTriangle — запись с полями $A$ , $B$ , $C$ типа TPoint (вершины треугольника) — и функцию Perim( $T$ ) вещественного типа, находящую периметр треугольника $T$ ( $T$ — параметр типа TTriangle). С помощью этой функции найти периметры треугольников $ABC$ , $ABD$ , $ACD$ , если даны координаты точек $A$ , $B$ , …

Решаем задачи Абрамян на Паскале. Pointer37

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 для пяти данных дат (предполагается, что все даты являются правильными).