Два отрезка заданы координатами своих концов.Определить, длина какого из них больше

@viktor2014 · Регистрация: 19.01.2013

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

Два отрезка заданы координатами своих концов. Определить, длина какого из них больше (создать процедуру для вычисления длины отрезка).

Kodzaev · 22.02.2013, 21:46

Pascal

Procedure rasst(a,b,c,d: Integer; var r: Real);
begin
  r:=Sqrt(Sqr(c-a)+Sqr(d-b));
end;
 
Var
  x1,y1,x2,y2: Integer;
  t1,t2: Real;
BEGIN
Writeln('Введите координаты концов 1 отрезка: ');
Readln(x1,y1,x2,y2);
rasst(x1,y1,x2,y2,t1);
Writeln('Введите координаты концов 2 отрезка: ');
Readln(x1,y1,x2,y2);
rasst(x1,y1,x2,y2,t2);
If t1>t2 Then Writeln('Первый отрезок длиннее');
If t1<t2 Then Writeln('Второй отрезок длиннее');
If t1=t2 Then Writeln('Отрезки одинаковой длины');
END.

@viktor2014 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 44
		1
	Два отрезка заданы координатами своих концов.Определить, длина какого из них больше 22.02.2013, 21:39. Показов 5694. Ответов 1 Метки нет (Все метки) Два отрезка заданы координатами своих концов. Определить, длина какого из них больше (создать процедуру для вычисления длины отрезка). 0

Опции темы

Два отрезка заданы координатами своих концов.Определить, длина какого из них больше

Решение