3 / 3 / 0
Регистрация: 12.06.2012
Сообщений: 26
1

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

13.09.2012, 11:16. Показов 4359. Ответов 1
Метки нет (Все метки)

составьте программу которая по заданным координатам треугольника (ввод с клавиатуры 6-ти вещественных чисел)рассчитывает его периметр и площадь.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.09.2012, 11:16
Ответы с готовыми решениями:

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

Вычислить периметр треугольника по координатам его вершин
Помогите решить задачи на процедуры в Turbo Pascal! Срочно нужно! Пожалуйста! 2. Составьте...

По введённым координатам вершин вычислить величины его углов, периметр и площадь.
По введенным координатам вершин треугольника вычислить величины его углов(в градусах), периметр и...

Найти периметр треугольника, заданного координатами своих вершин, определив функцию для расчета длины отрезка по координатам его вершин.
Помогите пожалуйста решить!СПАСИБО! Найти периметр треугольника, заданного координатами своих...

1
6 / 6 / 2
Регистрация: 02.06.2012
Сообщений: 209
13.09.2012, 13:12 2
Лучший ответ Сообщение было отмечено in43sh как решение

Решение

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
Var
    x1, x2, x3, y1, y2, y3, S, P, s1, s2, s3: Real;
 
Begin
    WriteLn ('Введите Х первой точки');
    ReadLn (x1);
    WriteLn ('Введите Y первой точки');
    ReadLn (y1);
    WriteLn ('Введите Х второй точки');
    ReadLn (x2);
    WriteLn ('Введите Y второй точки');
    ReadLn (y2);
    WriteLn ('Введите Х третьей точки');
    ReadLn (x3);
    WriteLn ('Введите Y третьей точки');
    ReadLn (y3);
    S := 0.5 * ((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3));
    WriteLn ('Площадь треугольника равна ', S, ' кв.ед');
    s1 := sqrt(sqr(x1 - x2) + sqr(y1 - y2));    {длина 1 стороны}
    s2 := sqrt(sqr(x2 - x3) + sqr(y2 - y3));    {длина 2 стороны}
    s3 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));    {длина 3 стороны}
    P := s1 + s2 + s3;
    WriteLn ('Периметр треугольника равен ', P, ' ед');
    ReadLn;
End.
надеюсь что решил правильно, пусть кто-нибудь из более опытных проверит верно или нет) паскаль недавно начал изучать)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2012, 13:12
Помогаю со студенческими работами здесь

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

Найти периметр треугольника по координатам вершин
найти периметр треугольника АВС, если его координаты A(x1,y1), B(x2,y2), C(x3,y3,)вводятся с...

Найти периметр треугольника по координатам его вершин
Здравствуйте всем. Помогите пожалуйста с программой на зачёт по турбо паскалю. Описать функцию...

Найти периметр треугольника по координатам его вершин
Решите задачи пожалуйста буду очень благодарен. Составьте программу вычисления периметра...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru