Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Vroud_in
0 / 0 / 0
Регистрация: 20.12.2014
Сообщений: 13
1

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

20.12.2014, 17:04. Просмотров 1697. Ответов 6
Метки нет (Все метки)

Вычислить площадь и периметр треугольника по координатам трех вершин.
Известны координаты вершин треугольника ABC:
A(x1,y1), B(x2,y2) и C(x3,y3). Найти его площадь и периметр
}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
x1,x2,x3,y1,y2,y3:Real;
s,p,pp:real;
st1,st2,st3:real;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
st1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
st2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
st3:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=st1+st2+st3;
pp:=p/2;
s:=sqrt(pp*(pp-st1)*(pp-st2)*(pp-st3));
Writeln('S=',s:6:2);
Writeln('P=',p:6:2);
readln;
end
или вот еще

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
var x1,y1,x2,y2,x3,y3,P,r,S,AB,BC,AC:real;
begin
 
 writeln('Vvedite znacheniya vseh x, y');
 write('x1=');
 readln(x1);
 write('y1=');
 readln(y1);
 write('x2=');
 readln(x2);
 write('y2=');
 readln(y2);
 write('x3=');
 readln(x3);
 write('y3=');
 readln(y3);
 AB:=sqrt(sqr(x2-x1))+(sqr(y2-y1));
 BC:=sqrt(sqr(x3-x2))+(sqr(y3-y2));
 AC:=sqrt(sqr(x3-x1))+(sqr(y3-y1));
 P:=AB+BC+AC;
 r:=(AB+BC+AC)/2;
 S:=sqrt(r*(r-AB)*(r-BC)*(r-AC));
 writeln('S=',S:5:2);
 writeln('P=',P:5:2);
 readln;
end.
Помагите что не так в программе.Заранее огормное спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2014, 17:04
Ответы с готовыми решениями:

По координатам трех вершин треугольника найти его периметр и площадь
1) Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3)....

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

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

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

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

6
Kerry_Jr
Эксперт PHP
2210 / 2006 / 940
Регистрация: 14.05.2014
Сообщений: 5,869
Записей в блоге: 1
Завершенные тесты: 5
20.12.2014, 17:10 2
Vroud_in, здесь пишут на С++, Паскаль в другой ветке.
0
Vroud_in
0 / 0 / 0
Регистрация: 20.12.2014
Сообщений: 13
20.12.2014, 17:40  [ТС] 3
Я пишу сдесь так как мне нужна эта программа в Си++
0
zss
Модератор
Эксперт С++
7254 / 6702 / 4241
Регистрация: 18.12.2011
Сообщений: 17,690
Завершенные тесты: 1
20.12.2014, 18:08 4
Работа с ссылками в функциях. Найти периметр треугольника
0
PVD
24 / 24 / 11
Регистрация: 01.06.2014
Сообщений: 135
20.12.2014, 18:09 5
Pascal
1
2
3
AB:=sqrt(sqr(x2-x1))+(sqr(y2-y1));
 BC:=sqrt(sqr(x3-x2))+(sqr(y3-y2));
 AC:=sqrt(sqr(x3-x1))+(sqr(y3-y1));
Правильно вот так:
Pascal
1
2
3
AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
 BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
 AC:=sqrt(sqr(x3-x1)+sqr(y3-y1));
Скобки были неправильно расставлены.

На плюсах:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <iostream>
using namespace std;
 
int main (int argc, char *argv[])
{
    double x1, y1, x2, y2, x3, y3, P, r, S, AB, BC, AC;
    cout << "Vvedite znacheniya vseh x, y\n";
    cout << "x1="; cin >> x1;
    cout << "y1="; cin >> y1;
    cout << "x2="; cin >> x2;
    cout << "y2="; cin >> y2;
    cout << "x3="; cin >> x3;
    cout << "y3="; cin >> y3;
    AB = sqrt(pow(x2 - x1, 2) + pow(y2 - y1, 2));
    BC = sqrt(pow(x3 - x2, 2) + pow(y3 - y2, 2));
    AC = sqrt(pow(x3 - x1, 2) + pow(y3 - y1, 2));
    P  = AB + BC + AC;
    r  = P / 2.0;
    S  = sqrt(r * ( r - AB) * (r - BC ) * (r - AC));
    cout << "S = " << S << '\n';
    cout << "P = " << P << '\n';
    system("pause");
    return 0;
}
0
Xaviichi
0 / 0 / 0
Регистрация: 20.12.2014
Сообщений: 18
20.12.2014, 18:14 6
Вроде так, проверь, у меня работает
C++
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
#include <iostream>
#include <stdio.h>
#include <math.h>
 
using namespace std;
 
int main()
{
    double x1,y1,x2,y2,x3,y3;
    double s, p, pp;
    double st1,st2,st3;
    cout << " x1= ";
    cin>> x1;
    cout << " y1= ";
    cin>> y1;
    cout << " x2= ";
    cin>> x2;
    cout << " y2= ";
    cin>> y2;
    cout << " x3= ";
    cin>> x3;
    cout << " y3= ";
    cin>> y3;
    st1=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
    st2=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
    st3=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
    p=st1+st2+st3;
    pp=p/2;
    s=sqrt(pp*(pp-st1)*(pp-st2)*(pp-st3));
    cout << " S= " << s << " P= "<< p << endl;
    return 0;
}
0
Vroud_in
0 / 0 / 0
Регистрация: 20.12.2014
Сообщений: 13
20.12.2014, 18:59  [ТС] 7
Спасибо большое!!!
0
20.12.2014, 18:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2014, 18:59

Описать функцию находящую периметр треугольника по координатам его вершин
Всем привет, нужно помощь Описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy)...

По заданным координатам вершин прямоугольника ABCD найти его площадь и периметр
Известны координаты вершин прямоугольника ABCD , A(x1,y1), B(x2,y2), C(x3,y3)....

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


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

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

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