Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
1

вычислите площадь и длину высоты треугольника

22.09.2010, 17:11. Просмотров 1999. Ответов 8
Метки нет (Все метки)

Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами равносторонего треугольника , вычислите его площадь и длину высоты. Выведите длины сторон, площадь и длину в порядке возрастания значений.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2010, 17:11
Ответы с готовыми решениями:

По длинам двух сторон треугольника и углу между ними найти длину третьей стороны и площадь треугольника.
Вот условие: По длинам двух сторон некоторого треугольника и углу в градусах...

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

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

Ввести три числа. если они могут быть длинами сторон остроугольного треугольника, вычислить площадь полученного треугольника
Задание:"Ввести три числа. если они могут быть длинами сторон остроугольного...

Площадь треугольника
найти площадь треугольника, 2 стороны которого равны a и b, а угол между этими...

8
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
22.09.2010, 18:20 2
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const t=0.001;  //точность сравнения с нолем
type Point=record  //тип точка
           x,y:real;
           end;
function Dlina(a,b:Point):real; //длина стороны
begin
Dlina:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
function Plosh(a,b,c:Point):real; //площадь
var p:real;
begin
p:=(Dlina(a,b)+Dlina(b,c)+Dlina(a,c))/2;
Plosh:=(sqrt(p*(p-Dlina(a,b))*(p-Dlina(b,c))*(p-Dlina(a,c))));
end;
function H(a,b,c:Point):real;  //длина высоты
begin
H:=2*Plosh(a,b,c)/Dlina(a,b);
end;
procedure Sort(a,b,c:real;var mn,sr,mx:real); //сортировка по возрастанию
begin
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
end;
 
var a,b,c:Point;
    x,y,z:real;
begin
writeln('Введите координаты X,Y вершин треугольника:');
write('A:  ');readln(a.x,a.y);
write('B:  ');readln(b.x,b.y);
write('C:  ');readln(c.x,c.y);
if  Plosh(a,b,c)<t then writeln('Это не треугольник!')
else
 begin
  Sort(Dlina(a,b),Dlina(b,c),Dlina(a,c),x,y,z);
  writeln('Длины сторон в порядке возрастания = ',x:0:2,' ',y:0:2,' ',z:0:2);
  writeln('Площадь =',Plosh(a,b,c):0:2);
  Sort( H(a,b,c),H(a,c,b),H(b,c,a),x,y,z);
  writeln('Длины высот в порядке возрастания = ',x:0:2,' ',y:0:2,' ',z:0:2);
 end;
readln
end.
1
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
22.09.2010, 19:49  [ТС] 3
Cпасибо большое)
а можно эту задачу еще в паскале увидеть?
0
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
22.09.2010, 20:36 4
Цитата Сообщение от Kapcap Посмотреть сообщение
а можно эту задачу еще в паскале увидеть?
Интересно, чем этот код в Паскале будет отличаться? Я это и писал в Паскале, только потом в консоль Делфи перекопировал...
1
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
23.09.2010, 16:47  [ТС] 5
Не зачли у меня эту задачю ;( сказали надо решить проще , самым простым способом а я вообще незнаю как это сделать, и еще сказали что начал использовать инструменты не нужные....вот так вот....
0
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
23.09.2010, 16:56 6
Kapcap, Это просто вы там наговорили что-то не то, ибо самому писать нужно. Вот что здесь лишнее?
1.Длина стороны нужна? Стандартная формула.
2. Площадь нужна? Формула Герона.
3.Высота нужна? Элементарная формула S=a*h/2;
4. Выводить в порядке возрастания нужно? Простейшая сортировка.
Все, больше ничего нет.
Возможно все условия не соблюдены, на рассматривается равносторонность треугольника, так никто вам и не обещал все до буковки расписать, это могли бы и сами написать что если стороны равны, то считаем площадь и что там еще.
Если лишнее подпрограммы, то это глупость, да и сами могли их уьрать. Если вместо 6 переменных под координаты я сделал три в виде записей, то это тоже могли убрать. Поскольку сами программу писать не умеете, вас все равно преподаватель на любой чужой программе засыплет.
0
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
23.09.2010, 17:43  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
Kapcap, Это просто вы там наговорили что-то не то, ибо самому писать нужно. Вот что здесь лишнее?
1.Длина стороны нужна? Стандартная формула.
2. Площадь нужна? Формула Герона.
3.Высота нужна? Элементарная формула S=a*h/2;
4. Выводить в порядке возрастания нужно? Простейшая сортировка.
Все, больше ничего нет.
Возможно все условия не соблюдены, на рассматривается равносторонность треугольника, так никто вам и не обещал все до буковки расписать, это могли бы и сами написать что если стороны равны, то считаем площадь и что там еще.
Если лишнее подпрограммы, то это глупость, да и сами могли их уьрать. Если вместо 6 переменных под координаты я сделал три в виде записей, то это тоже могли убрать. Поскольку сами программу писать не умеете, вас все равно преподаватель на любой чужой программе засыплет.
Да я понимаю что сам не умею, и когда шел эту прошграмму сдавать был уверен что все нормально будет, но как пришел переписал ее , препод подшел посмотрел и сказал вот что в конце какие то лишние инструменты есть( и сказал сделай проще а как это сделать я незнаю, вот так вот беда
0
Puporev
Модератор
54704 / 42115 / 29080
Регистрация: 18.05.2008
Сообщений: 99,402
23.09.2010, 18:15 8
Цитата Сообщение от Kapcap Посмотреть сообщение
и сказал вот что в конце какие то лишние инструменты есть
Какие инструменты? Что лишнее?
0
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
23.09.2010, 21:43  [ТС] 9
Цитата Сообщение от Puporev Посмотреть сообщение
Какие инструменты? Что лишнее?
то что в конце программы всякие действия лишнии
сказали сделай проше....(
0
23.09.2010, 21:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2010, 21:43

Площадь треугольника
Разработать приложение «Площадь треугольника». Приложение должно давать...

Вычислить площадь круга и длину диаметра
составить программу для вычисления площади круга и длины диаметра,его радиус...

Вычислить длину окружности и площадь круга
Тут попросили ещё несколько задачек решить, извеняюсь за наглость, но что...


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

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

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