Завдання Написати програму, що виконує наступні дії: 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 (НИЗХІДНИЙ)) ДО ТЬ БУДЬЛАСКА
Ответы
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как компилировать .cpp в .exe? в microsoft visual studio 2013
Автор: kulibabad566
Склавиатуры вводится слово. подсчитать количество букв е в слове
Автор: osipov1984osipov
Построить горизонтальные линии в qbasic с шагом через 15 использовать оператор цикла
Автор: Naumenkova-Ivanov
Напиши типы циклического алгоритма дай характеристику каждому типу
Автор: ekaterinava90
Написать программы для построения этих фигур с
Автор: layna1241383
Выберите знаковую модель 1)рисунок 2) схема 3)таблица 4) формула
Автор: khvorykhphoto
Ребятки с заданием на картинке <3
Автор: elmira01048775
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