Найти периметр треугольника по координатам его вершин

@ArhAnt · Регистрация: 27.01.2013

Решите задачи пожалуйста буду очень благодарен.

Составьте программу вычисления периметра треугольника p по координатам его вершин: (x1,y1), (x2,y2), (x3,y3), используя процедуру вычисления длины отрезка по координатам его концов.

P.S было бы не плохо ещё пояснить всё решение, т.к. я не очень понимаю эти функции и процедуры, и приложить ко всем задачам блок-схемы, но это уж кто сможет...буду очень благодарен

@Puporev · 31.01.2013, 17:34

Сообщение от ArhAnt

Решите задачи пожалуйста буду очень благодарен.

А поискать решенное на форуме?

@ArhAnt · 31.01.2013, 18:05 **[ТС]**

Сообщение от Puporev

А поискать решенное на форуме?

А оно есть? Если Вы нашли то не поделитесь ссылочкой?

@antisportik228 · 31.01.2013, 19:35

Pascal

var x1,y1,x2,y2,x3,y3:real; r1,r2,r3, p, pl:real;
function rast(x1,x2,y1,y2:real):real;
begin
   rast:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
begin
r1:=rast(x1,x2,y1,y2);
r2:=rast(x2,x3,y2,y3);
r3:=rast(x3,x1,y3,y1);
 p:=(r1+r2+r3)/2;
   pl:=sqrt(p*(p-r1)*(p-r2)*(p-r3));
   write(pl);
end.

Новичок · 31.01.2013, 21:48

antisportik228,а разве это не площадь вы вычисляете?

Pascal

var x1,y1,x2,y2,x3,y3:real;
r1,r2,r3,p:real;
function rast(x1,x2,y1,y2:real):real;
begin
rast:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
begin
r1:=rast(x1,x2,y1,y2);
r2:=rast(x2,x3,y2,y3);
r3:=rast(x3,x1,y3,y1);
p:=r1+r2+r3;
Writeln('p=',p:0:2);
Readln;
end.

@ArhAnt · 31.01.2013, 21:59 **[ТС]**

Но мне же надо через процедуру..через функцию я уже сам сделал, а вот через процедуру как не пойму(

@ArhAnt 2 / 2 / 0 Регистрация: 27.01.2013 Сообщений: 44
		1
	Найти периметр треугольника по координатам его вершин 31.01.2013, 16:32. Показов 5007. Ответов 5 Метки нет (Все метки) Решите задачи пожалуйста буду очень благодарен. Составьте программу вычисления периметра треугольника p по координатам его вершин: (x1,y1), (x2,y2), (x3,y3), используя процедуру вычисления длины отрезка по координатам его концов. P.S было бы не плохо ещё пояснить всё решение, т.к. я не очень понимаю эти функции и процедуры, и приложить ко всем задачам блок-схемы, но это уж кто сможет...буду очень благодарен 0

@Puporev Почетный модератор 64276 / 47575 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	31.01.2013, 17:34	2
	Сообщение от ArhAnt Решите задачи пожалуйста буду очень благодарен. А поискать решенное на форуме? 0

@ArhAnt 2 / 2 / 0 Регистрация: 27.01.2013 Сообщений: 44
	31.01.2013, 18:05 [ТС]	3
	Сообщение от Puporev А поискать решенное на форуме? А оно есть? Если Вы нашли то не поделитесь ссылочкой? 0

@ArhAnt 2 / 2 / 0 Регистрация: 27.01.2013 Сообщений: 44
	31.01.2013, 21:59 [ТС]	6
	Но мне же надо через процедуру..через функцию я уже сам сделал, а вот через процедуру как не пойму( 0

Опции темы