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

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

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

Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами равносторонего треугольника , вычислите его площадь и длину высоты. Выведите длины сторон, площадь и длину в порядке возрастания значений.
http://www.cyberforum.ru/delphi-beginners/thread720356.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2010, 17:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос вычислите площадь и длину высоты треугольника (Delphi):

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

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

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

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

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

8
Puporev
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
22.09.2010, 20:36 #4
Цитата Сообщение от Kapcap Посмотреть сообщение
а можно эту задачу еще в паскале увидеть?
Интересно, чем этот код в Паскале будет отличаться? Я это и писал в Паскале, только потом в консоль Делфи перекопировал...
1
Kapcap
0 / 0 / 0
Регистрация: 22.09.2010
Сообщений: 5
23.09.2010, 16:47  [ТС] #5
Не зачли у меня эту задачю ;( сказали надо решить проще , самым простым способом а я вообще незнаю как это сделать, и еще сказали что начал использовать инструменты не нужные....вот так вот....
0
Puporev
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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