Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/196: Рейтинг темы: голосов - 196, средняя оценка - 4.55
1 / 1 / 0
Регистрация: 10.06.2012
Сообщений: 54
1

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади

10.06.2012, 22:41. Просмотров 40298. Ответов 16
Метки нет (Все метки)

Треугольник задан координатами своих вершин. Составить программу для вычесления его площади.

И подскажите как все это объяснить. Заранее спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2012, 22:41
Ответы с готовыми решениями:

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Преобразуйте из Procedure в Function program pr11; var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;...

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
1. треугольник задан координатами своих вершин.составить программу для вычисления его площади.

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Треугольник задан координатами своих вершин. Составить программу для вычисления его площади.

Треугольник задан координатами своих вершин.составить программу вычисления его площади
Треугольник задан координатами своих вершин. Составить программу вычисления его площади.

16
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
10.06.2012, 22:54 2
Pascal
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
uses crt;
var xa,ya,xb,yb,xc,yc: integer;          //целочисленные переменные для координат вершин
    ab,bc,ca,s: real;                    //переменные для длин сторон
 
function Dlina(x1,y1,x2,y2: integer):real;   //функция определеиния длины отрезка по координатам, входные параметры - координаты
begin
Dlina:= sqrt(sqr(y1-y2)+sqr(x1-x2));         //длина отрезка
end;
 
function IsExiste (a,b,c: real): boolean;   //функция логического типа, проверка на существование треугольника с заданными сторонами
begin
IsExiste:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
function Square (a,b,c: real): real;         //функция определения площади треугольника, входные параметроы - длины строкон
begin
Square:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Координаты вершины A ');           //запрашиваем и считываем координаты вершин
readln (xa,ya);
writeln ('Координаты вершины B ');
readln (xb,yb);
writeln ('Координаты вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);                     //вычисляем длины сторон с помощью функции
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
if  IsExiste (ab,bc,ca)                     //проверяем возможность существования такого треугольника
then write ('Площадь треугольника = ',Square(ab,bc,ca):7:2)    //вычисляем алощадь с помощью функции//выводим
     else write('Треугольника с такими сторонами не существует');  //или выводим, что не существует
readkey
end.
1
Лучи добра
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
10.06.2012, 22:55 3
Должно работать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z;
var a,b,c,d,e,r,t,y,u,s,p:real;
begin
     writeln('Введите координаты (x;y) точки À');
     readln(a,b);
     writeln('Введите координаты (x;y) точки B');
     readln(c,d);
     writeln('Введите координаты (x;y) точки C');
     readln(e,r);
     t:=sqrt(sqr(a-c)+sqr(b-d));
     y:=sqrt(sqr(a-e)+sqr(b-r));
     u:=sqrt(sqr(c-e)+sqr(d-r));
     p:=(t+y+u)/2;
     s:=sqrt(p*(p-t)*(p-y)*(p-u));
     writeln('Площадь треугольника = ',s:5:2);
end.
2
1 / 1 / 0
Регистрация: 10.06.2012
Сообщений: 54
10.06.2012, 22:59  [ТС] 4
Спасибо)))
0
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
10.06.2012, 23:57 5
через процедуры...
Pascal
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
uses crt;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.
1
1 / 1 / 0
Регистрация: 10.06.2012
Сообщений: 54
11.06.2012, 12:48  [ТС] 6
Цитата Сообщение от КонецСвета Посмотреть сообщение
через процедуры...
Спасибо)
0
1 / 1 / 0
Регистрация: 10.06.2012
Сообщений: 54
18.06.2012, 16:18  [ТС] 7
Помогите пожалуйста объяснить, как составляются эти программы.
1)Треугольник задан координатами свойх ввершин. Составить программу для вычесления его площади.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z;
var a,b,c,d,e,r,t,y,u,s,p:real;
begin
     writeln('Введите координаты (x;y) точки А');
     readln(a,b);
     writeln('Введите координаты (x;y) точки B');
     readln(c,d);
     writeln('Введите координаты (x;y) точки C');
     readln(e,r);
     t:=sqrt(sqr(a-c)+sqr(b-d));
     y:=sqrt(sqr(a-e)+sqr(b-r));
     u:=sqrt(sqr(c-e)+sqr(d-r));
     p:=(t+y+u)/2;
     s:=sqrt(p*(p-t)*(p-y)*(p-u));
     writeln('Площадь треугольника = ',s:5:2);
end.
2)Треугольник задан координатами свойх ввершин. Составить программу для вычесления его площади через процедуру.
Pascal
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
Program T_T;
uses crt;
var xa,ya,xb,yb,xc,yc,i: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa,ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb,yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc,yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.
0
291 / 171 / 47
Регистрация: 22.03.2010
Сообщений: 488
18.06.2012, 16:29 8
Используется формула Герона: https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sqrt{p*(p-a)*(p-b)*(p-c)}, где р - полупериметр, а a,b,c - длины сторон. В первой программе сперва вводятся координаты вершин треугольника, затем находятся его стороны (длины сторон - переменные t, y, u). Потом находится полупериметр (переменная p). В конце по описанной выше формуле находится и выводится площадь. Во второй программе отдельная процедура для вычисления длины стороны, нахождения площади; дополнительно функция проверки существования треугольника
1
1 / 1 / 0
Регистрация: 10.06.2012
Сообщений: 54
18.06.2012, 16:33  [ТС] 9
Большое спасибо)))
0
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 25
16.02.2015, 10:36 10
Цитата Сообщение от КонецСвета Посмотреть сообщение
if *IsExiste (ab,bc,ca) * * * * * * * * * * //проверяем возможность существования такого треугольника
че такое??????????????????????????????????????????
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
16.02.2015, 11:19 11
Цитата Сообщение от Белочка17 Посмотреть сообщение
че такое??????????????????????????????????????????
А чё? Чё не так-то?
0
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,969
16.02.2015, 11:21 12
Цитата Сообщение от Белочка17 Посмотреть сообщение
че такое???
А ненужно пить до состояния Белочка...
0
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,090
16.02.2015, 12:39 13
Белочка17, это вызов функции. Сама функция описана ранее, начиная со строки 10. Да, а что не так-то?
0
👻👻👻
19 / 26 / 12
Регистрация: 22.04.2016
Сообщений: 166
09.12.2016, 17:47 14
Если кто перейдёт с сюда после WA на 8 тесте в ACMP, как и я, то там нужно вычислить "точное значение площади", а для этого нужно "расширить" в длину вывод, я вставил #include <limits> и #include <iomanip> и дальше
cout << setprecision(std::numeric_limits<double>::digits10 +1) << ... ;
Но это для C++
1
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,090
09.12.2016, 19:07 15
Цитата Сообщение от daniilorain Посмотреть сообщение
"точное значение площади"
Точное значение площади возможно вычислить, если подкоренное выражение в формуле Герона является полным квадратом. Вероятно, имеется ввиду "более точное значение площади".

В паскале все эти C++ действия достигаются заменой типа переменных с real на double или extended. Да и в C++ можно сделать то же самое, заменив тип переменных с float на double или long double.

Добавлено через 59 минут
Ошибка в моём ответе... Не обязательно полный квадрат, достаточно и того, если корень может быть вычислен точно. Извиняюсь за непродуманный ответ.
1
0 / 0 / 0
Регистрация: 30.10.2020
Сообщений: 11
14.01.2021, 23:17 16
КонецСвета, не даёт ввести координаты 3 вершины, сразу по нулям дает
0
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,090
15.01.2021, 02:13 17
3632633, теме пять лет... В древних темах старайтесь не задавать адресных вопросов, поскольку очень может быть, что тот, к кому Вы обращаетесь, давным-давно покинул форум. В частности, КонецСвета последний раз заходил на форум в 2013 году.

Возьмём программу из сообщения #5, которую написал КонецСвета.
Протокол работы программыВведите координаты 1 вершины треугольника
1 2
Введите координаты 2 вершины треугольника
3
4
Введите координаты 3 вершины треугольника
5 6
Вычисление площади треугольника невозможно

Введите координаты 1 вершины треугольника
0 0
Введите координаты 2 вершины треугольника
10 10
Введите координаты 3 вершины треугольника
10 0
Площадь треугольника=50.00


Что Вы делаете не так?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2021, 02:13

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

Треугольник задан коордиатами своих вершин. Составить программу для вычисления его площади
треугольник задан коордиатами своих вершин составить программу для вычисления его площади Program...

Треугольник задан координатами своих вершин.
Треугольник задан координатами своих вершин. Вычислить его площадь.

Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника
Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника. Для нахождения...

Произвольный треугольник задан декартовыми координатами своих вершин (X1,Y1),(X2,Y2),(X3,Y3) –целыми числами
2) Произвольный треугольник задан декартовыми координатами своих вершин (X1,Y1),(X2,Y2),(X3,Y3)...


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

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

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