Периметр и площадь по Герону

@Mezheritskaya · Регистрация: 21.01.2011

Author24 — интернет-сервис помощи студентам

Треугольник задан координатами его вершин. Найти его периметр.
Треугольник задан координатами его вершин. Составить программу для вычисления его площади по формуле Герона.

@the_crow · 02.06.2011, 06:21

Pascal

function Dlina(x1,y1,x2,y2:real):real
begin dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
function Geron(a,b,c:real):real
var p:real;
begin p:=(a+b+c)/2;
        geron:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
var x1,x2,x3,y1,y2,y3,a,b,c:
begin writeln('x1,y1');
      readln(x1,y1);
      writeln('x2,y2');
      readln(x2,y2);
      writeln('x3,y3');
      readln(x3,y3);
      a:=Dlina(x1,y1,x2,y2);
      b:=Dlina(x3,y3,x2,y2);
      c:=Dlina(x1,y1,x3,y3);
      writeln('Perimetr = ',a+b+c);
      writeln('Ploshad = ',geron(a,b,c));
      readln;
end.

p.s. пользуйтесь поиском по форуму.

@Mezheritskaya 0 / 0 / 1 Регистрация: 21.01.2011 Сообщений: 42
		1
	Периметр и площадь по Герону 02.06.2011, 06:04. Показов 1622. Ответов 1 Метки нет (Все метки) Треугольник задан координатами его вершин. Найти его периметр. Треугольник задан координатами его вершин. Составить программу для вычисления его площади по формуле Герона. 0

	02.06.2011, 06:21

Периметр и площадь по Герону

Решение