Паскаль — Страница 5

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

Pointer42. Дан указатель $P_1$ на первый элемент двусвязного списка, содержащего не менее двух элементов. Удалить из списка все элементы с нечетными номерами и вывести указатель на первый элемент преобразованного списка. После удаления элементов из списка освобождать память, которую они занимали.

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

Param69. Используя тип TPoint и функцию Leng (см. задание Param64), описать функцию PerimN( $P$ , $N$ ) вещественного типа, находящую периметр N-угольника, вершины которого (в порядке их обхода) передаются в массиве $p$ размера $N$ $(>2)$ с элементами типа TPoint. С помощью этой функции найти периметры трех многоугольников, если дано число их сторон и координаты их вершин.

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

Pointer41. Дан указатель $P_0$ на один из элементов непустого двусвязного списка. Удалить из списка данный элемент и вывести два указателя: на элемент, предшествующий удаленному, и на элемент, следующий за удаленным (один или оба этих элемента могут отсутствовать; для отсутствующих элементов выводить $nil$ ). После удаления элемента из списка освободить память, занимаемую этим элементом.

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

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

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

Pointer40. Дан указатель $P_1$ на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными значениями (новые элементы добавлять после существующих элементов с такими же значениями) и вывести указатель на последний элемент преобразованного списка.

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

Param67. Используя типы TPoint, TTriangle и функции Leng и Area (см. задания Param64-Param66), описать функцию Dist( $P$ , $A$ , $B$ ) вещественного типа ( $P$ , $A$ , $B$ — параметры типа TPoint), находящую расстояние $D(P, AB)$ от точки $P$ до прямой $AB$ по формуле $D(P, AB)=2*S_{PAB}/|AB|$ , где $S_PAB$ — площадь треугольника $PAB$ . С помощью этой функции найти расстояния от точки …

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

Pointer39. Дан указатель $P_1$ на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными значениями (новые элементы добавлять перед существующими элементами с такими же значениями) и вывести указатель на первый элемент преобразованного списка.

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

Param66. Используя типы TPoint, TTriangle и функции Leng и Perim (см. задания Param64 и Param65), описать функцию Area( $T$ ) вещественного типа, находящую площадь треугольника $T$ ( $T$ — параметр типа TTriangle) по формуле Герона: $S_{ABC}=\sqrt{p*(p-|AB|)*(p-|AC|)*(p-|BC|)}$ , где $p$ — полупериметр. С помощью этой функции найти площади треугольников $ABC$ , $ABD$ , $ACD$ , если даны координаты точек $A$ , $B$ , $C$ , $D$ .

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

Pointer38. Дан указатель $P_1$ на первый элемент непустого двусвязного списка. Продублировать в списке все элементы с нечетными номерами (новые элементы добавлять после существующих элементов с такими же значениями) и вывести указатель на последний элемент преобразованного списка.

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

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