Предмет: Информатика, автор: nasteusha1111

Программа Pascal.
Даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины
треугольника.
Вычислить
а) Длины сторон треугольника
б)Площадь треугольника

Ответы

Автор ответа: Аноним
0
Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.

Похожие вопросы
Предмет: Алгебра, автор: katyaromanyuk1999
Предмет: Українська мова, автор: dokalenko16
ПОМОГИТЕ 40 БАЛОВ!!!

Перепишіть речення, розставляючи пропущені розділові знаки. Укажіть однорідні члени речення.
1) Радість і смуток і срібний передзвін огортають та й огортають мене своїм снуванням. 2) І йому треба пособити дружнім потиском руки чи вірним словом чи поглядом. 3) Микола на той час забув і Вербівку і Нимидору і свою хату і свого страшного пана. 4) Душа рвонулась і застряла в гратах. 5) Духмяне сіно пахне літом медовим чебрецевим цвітом і м’ятою і материнкою і полиновою гірчинкою. 6) І памороззю і димами і розкиданими вогниками і зорями зустрічає нас засніжене село. 7) Йому б не маршалом бути а губернатором або й самим міністром. 8) Озвався соловей в бузку і спів гучний сп’яніло ронить і на каштани й на ріку. 9) А вода на закрутах бурлить та вирує та на всі боки ліниво повертається. 10) У небі хмари похмурі і важкі й неспокійні мов думи мої.