М. Э. Абрамян Programming Taskbook
жүктеу/скачать 0,52 Mb. Pdf көрінісі
|
Задачник Абрамяна
| S
ABC = √ p·(p − |AB|)·(p − |AC|)·(p − |BC|), где p — полупериметр. С помощью этой функции найти площади тре- угольников ABC, ABD, ACD, если даны координаты точек A, B, C, D. 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 P AB /|AB|, где S P AB — площадь треугольника PAB. С помощью этой функции найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C. 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, ACD, если даны координаты то- чек A, B, C, D. Param69. Используя тип TPoint и функцию Leng (см. задание Param64), опи- сать функцию PerimN(P, N) вещественного типа, находящую периметр N-угольника, вершины которого (в порядке их обхода) передаются в мас- сиве P размера N (> 2) с элементами типа TPoint. С помощью этой функ- ции найти периметры трех многоугольников, если дано число их сторон и координаты их вершин. Param70. Используя типы TPoint, TTriangle и функцию Area (см. задания Param64–Param66), описать функцию AreaN(P, N) вещественного типа, находящую площадь выпуклого N-угольника, вершины которого (в по- рядке их обхода) передаются в массиве P размера N (> 2) с элементами типа TPoint. С помощью этой функции найти площади трех многоуголь- ников, если дано число их сторон и координаты их вершин. |