Регистрация
Alsari
05.06.2023 13:22
Информатика
Есть ответ 👍

Решите нарисовать схемы.

193
375
Посмотреть ответы 1

Ответы на вопрос:

almirashagieva
almirashagieva
4,8(8 оценок)

program treyg;

uses crt;

var x1,y1,x2,y2,x3,y3 : integer;

a,b,c,s,p : real;

begin

write('Введите координаты первой точки: ');

Readln(x1,y1);

write('Введите координаты второй точки: ');

Readln(x2,y2);

write('Введите координаты третьей точки: ');

Readln(x3,y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y3-y1));

if ((a+b)>c) and ((b+c)>a) and ((c+a)>b) then

writeln('Данные координаты не могут являться вершинами треугольника')

else

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln('Площадь треугольника ',s);

end

end.

Объяснение:

Популярно: Информатика