занятия, но приведем
занятия, но приведем не полные решения, а только “наброски”.
Решение Упражнения Z44.1
Даны 3 точки A, B и C, лежащие на одной прямой. Определить, какая из них лежит между двумя другими.
Будем решать задачу не для самих точек, а для их проекций на ось X. Для этого нужно выяснить, какое из чисел A.x, B.x и C.x лежит между двумя другими. Следует иметь в виду, что эти числа могут совпасть (если точки лежат на прямой, перпендикулярной оси X). Тогда придется рассмотреть проекцию на другую ось.
function middlePoint (A, B, C: point): integer;
begin
if (A.x > B.x) then
if (C.x > A.x) then
middlePoint := 1 { порядок B A C }
else if (C.x > B.x) then
middlePoint := 3 { порядок B C A }
else
middlePoint := 2 { порядок C B A }
else if (A.x < B.x) then
if (C.x < A.x) then
middlePoint := 1 { порядок C A B }
else if (C.x < B.x) then
middlePoint := 3 { порядок A C B }
else
middlePoint := 2 { порядок A B C }
else if (A.y > B.y) then
{ проекции
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
