Завдання
Написати програму, що виконує наступні дії:
1) Генерує за до генератора випадкових чисел 10 символів
латинського алфавіту.
2) З отриманих символів будує впорядковане бінарне дерево,
відсортоване у заданому порядку відповідно до напряму проходження
дерева.
3) Відображає отримане дерево на екрані.
4) Здійснює пошук серед елементів дерева значення введеного з
клавіатури та виводить на екран повідомлення про номер знайденого
елемента згідно порядку проходження дерева. Якщо такого елемента
нема, то програма виводить повідомлення про його відсутність.
Порядок проходження дерева визначається відповідно до варіанта
згідно таблиці 6. Порядок сортування елементів дерева за зростанням
для парних варіантів та за зменшенням для непарних.
Таблиця 6.
Порядок проходжен-
ня дерева
Варіант
Висхідний 1 4 7 10 13 16 19 22 25 28
Низхідний 2 5 8 11 14 17 20 23 26 29
Прямий 3 6 9 12 15 18 21 24 27 30
МЕНІ ПОТРІБНИЙ (ВАРІАНТ 8 (НИЗХІДНИЙ))
ДО ТЬ БУДЬЛАСКА
type
Point=record
x,y:real
end;
function GetPoint(c:char):Point;
begin
Writeln('Введите координаты точки ',c,':');
Read(Result.x,Result.y)
end;
function Line(A,B:Point):real;
begin
Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;
function SqTriangle(pA,pB,pC:Point):real;
begin
var a:=Line(pB,pC);
var b:=Line(pA,pC);
var c:=Line(pA,pB);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
var p:=(a+b+c)/2;
Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end
else Result:=0
end;
begin
var A:=GetPoint('A');
var B:=GetPoint('B');
var C:=GetPoint('C');
Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.
Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975