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

0 голосов
41 просмотров

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


Информатика (77 баллов) | 41 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
end.

(6.6k баллов)