Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 16.05.2012
Сообщений: 7
1

Найти длину сторон треугольника если известны координаты его вершин

16.05.2012, 23:37. Просмотров 1677. Ответов 1
Метки нет (Все метки)


Помогите написать программу в Delphi! Найти длину сторон треугольника если известно координаты его вершин: А(х1, у1, z1),B(х2, у2, z2), C (х3, у3, z3).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2012, 23:37
Ответы с готовыми решениями:

Нахождения прямоугольного треугольника АВС, если известны координаты его вершин
Само задание: Создать проект нахождения прямоугольного треугольника АВС, если известны...

Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин
Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин?

Найти меньшую из диагоналей параллелограмма, если известны координаты его вершин
найти меньшую из диагоналей параллелограмма ABCD, если известно координаты его вершин. Выполнить...

Заданы координаты острых углов прямоугольного треугольника и длина его катета. Определить координаты третьей вершины, длину всех сторон, площадь и угл
Здравствуйте, дорогие программисты!!! Я снова к вам за помощью. Вот такая у меня задача: Заданы...

1
5438 / 2145 / 450
Регистрация: 20.11.2009
Сообщений: 7,173
Записей в блоге: 1
16.05.2012, 23:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

координаты В - координаты А -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина АВ
координаты С - координаты В -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина ВС
координаты С - координаты А -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина АС

теорема пифагора, сложение векторов

Добавлено через 20 минут
примерно вот так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
type
  TTRiangle = record
    x, y, z: Integer;
    Res: Real;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var TrA, TrB, TrC: TTRiangle;
begin
  TrA.x := 20;
  TrA.y := -7;
  TrA.z := 3;
 
  TrB.x := 1;
  TrB.y := 5;
  TrB.z := -4;
 
  TrC.x := 2;
  TrC.y := 8;
  TrC.z := 4;
 
  TrA.Res := Sqrt(Sqr(TrA.x)+Sqr(TrA.y)+Sqr(TrA.z));
  TrB.Res := Sqrt(Sqr(TrB.x)+Sqr(TrB.y)+Sqr(TrB.z));
  TrC.Res := Sqrt(Sqr(TrC.x)+Sqr(TrC.y)+Sqr(TrC.z));
 
  ShowMessage('Длина АВ = '+FloatToStrF(TrA.Res, ffFixed, 10, 2)+#13+
              'Длина BC = '+FloatToStrF(TrB.Res, ffFixed, 10, 2)+#13+
              'Длина AC = '+FloatToStrF(TrC.Res, ffFixed, 10, 2));
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2012, 23:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти наибольшую из высот N треугольников, если известны координаты их вершин
Найти наибольшую з высот N треугольников, если известно координаты их вершин.

Даны координаты трех вершин треугольника. Найти его площадь
нужен код программы, задача собственно такая: Даны координаты трех вершин треугольника. Найти его...

Заданы координаты трех вершин треугольника. Найти его периметр и площадь
Заданы координаты трех вершин треугольника. Найти его периметр и площадь.

Даны координаты трех вершин некотрого треугольника. Найти его площадь и периметр
Пожалуйста помогите решить задачу в Delphi. Даны координаты трех вершин некотрого треугольника....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.