Svetlana ALLA
?>

Завдання Написати програму, що виконує наступні дії: 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 (НИЗХІДНИЙ)) ДО ТЬ БУДЬЛАСКА

Информатика

Ответы

olgavbaranova
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
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
Imarmy67

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Завдання Написати програму, що виконує наступні дії: 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 (НИЗХІДНИЙ)) ДО ТЬ БУДЬЛАСКА
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

melissa-80
thebest59
zoomagazinkotmatroskin
alvas12828646
mstapottery
lavr74
baranovaas
pivenraisa
kbndbyb6
Татьяна-Мишин1307
sev-94428
polotovsky
nekrasovaolga27
shuramuji
Бочкова_Елена203
▲