Найти периметр треугольника, заданного координатами своих вершин, определив финкцию для расчета длины отрезка по координатам его вершин.

@alex925 · Регистрация: 19.03.2012

Найти периметр треугольника, заданного координатами своих вершин, определив финкцию для расчета длины отрезка по координатам его вершин.
Помогите решить с использованием процедуры.

@КонецСвета · 17.04.2012, 16:38

tsar925, так функцию или процедуру?... в задании вроде функцию, поэтому:

Pascal

uses crt;
var xa,ya,xb,yb,xc,yc: integer;
    p: real;
 
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
 
begin
writeln ('Координаты вершины A ');
readln (xa,ya);
writeln ('Координаты вершины B ');
readln (xb,yb);
writeln ('Координаты вершины C ');
readln (xc,yc);
p:=Dlina(xa,ya,xb,yb)+Dlina(xb,yb,xc,yc)+Dlina(xc,yc,xa,ya);
write ('Периметр треугольника = ',p:7:2);
readkey
end.

@alex925 2740 / 2343 / 620 Регистрация: 19.03.2012 Сообщений: 8,832
		1
	Найти периметр треугольника, заданного координатами своих вершин, определив финкцию для расчета длины отрезка по координатам его вершин. 17.04.2012, 16:01. Показов 15431. Ответов 1 Метки нет (Все метки) Найти периметр треугольника, заданного координатами своих вершин, определив финкцию для расчета длины отрезка по координатам его вершин. Помогите решить с использованием процедуры. 0

Опции темы

Найти периметр треугольника, заданного координатами своих вершин, определив финкцию для расчета длины отрезка по координатам его вершин.

Решение