Вычислить длину отрезка по координатам точек его концов

@cccc · Регистрация: 05.11.2012

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

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

@Samhain · 17.09.2013, 08:51

cccc,

Pascal

var xa,ya,xb,yb:integer;
 
function Len(x1,y1,x2,y2:integer):real;
begin
  len:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
begin
  writeln ('Координаты точки A ');
  readln (xa,ya);
  writeln ('Координаты точки B ');
  readln (xb,yb);
  writeln('Длина отрезка AB = ',Len(xa,ya,xb,yb):0:4);
  readln
end.

@cccc · 17.09.2013, 09:10 **[ТС]**

Спасибо!

@cccc 16 / 16 / 0 Регистрация: 05.11.2012 Сообщений: 40
		1
	Вычислить длину отрезка по координатам точек его концов 17.09.2013, 08:41. Показов 6190. Ответов 2 Метки нет (Все метки) Написать функцию, вычисляющую длину отрезка по координатам точек его концов.(если можно полностью программу). 1

@cccc 16 / 16 / 0 Регистрация: 05.11.2012 Сообщений: 40
	17.09.2013, 09:10 [ТС]	3
	Спасибо! 0

Опции темы

Вычислить длину отрезка по координатам точек его концов

Решение