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

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

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