Найти сумму расстояний между точками

@mordol · Регистрация: 12.05.2015

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

Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС.

@APALoff · 04.10.2015, 12:00

Заданы координаты 4-х точек. Подсчитать сумму расстояний до точки с заданными координатами (проверьте решение)

@Xtore · 06.10.2015, 14:21

Лови

Pascal

var A, B, C: record X: integer; Y: integer; end;
   ab, bc, res: real; {ab - расстояние между A и B, и т. д.}
begin
   Write('Координаты A >>> ');
   ReadLn(A.X, A.Y);
   Write('Координаты B >>>');
   ReadLn(B.X, A.Y);
   Write('Координаты C >>>');
   ReadLn(C.X, C.Y);
   ab:=Sqrt(Sqr(Abs(A.X - B.X)) + Sqr(Abs(A.Y - B.Y)));
   bc:=Sqrt(Sqr(Abs(B.X - C.X)) + Sqr(Abs(B.Y - C.Y)));
   res:=ab + bc;
   WriteLn(res:5:3);
   ReadLn
end.

@Cyborg Drone · 10.10.2015, 15:47

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

Pascal

1 2	var A, B, C: record X: integer; Y: integer; end; ab, bc, res: real; {ab - расстояние между A и B, и т. д.}

Координаты точки по умолчанию содержат вещественные числа; если координаты целочисленные, это, как правило, специально оговаривается.

Моё мнение о типе real в Turbo Pascal

Не рекомендуется в применять устаревший тип данных real, в Turbo Pascal фактически реализованный как шестибайтовое представление вещественных чисел real48, не соответствующее стандарту IEEE 754 и не поддерживаемое наиболее распространённым арифметическим сопроцессором семейства Intel i80X87, который, начиная с процессоров i80286, составляет с центральным процессором единое целое. Операции с числами типа real компилятор либо эмулирует без применения команд сопроцессора, либо осуществляет перевод этих чисел в формат, годный для сопроцессора (double или extended), что по-любому отрицательно сказывается на быстродействии и объёме программы. Вообще, тип real в современных диалектах паскаля оставлен для совместимости со старыми программами и процессорами, сейчас, как правило, является тем же самым, что и double (восьмибайтовое представление вещественного числа, соответствующее стандарту IEEE 754 и поддерживаемое упомянутым арифметическим сопроцессором). Понимаю, что в большинстве случаев это совершенно неактуально, но всё же... Нужно стремиться к идеалу, и поэтому лучше использовать тип double. Также компилятору нужно явно указать на использование сопроцессора либо в среде разработки (включить опцию 80x87 Code... On), либо в тексте программы с помощью директивы

Pascal

{$N+}

Полагаю, переменные лучше объявить так:

Pascal

1 2	var A, B, C: record X, Y: double end; ab, bc, res: double; {ab - расстояние между A и B, и т. д.}

Ещё abs-ы лишние. Можно упростить:

Pascal

10
11

   ab:=Sqrt(Sqr(A.X - B.X) + Sqr(A.Y - B.Y));
   bc:=Sqrt(Sqr(B.X - C.X) + Sqr(B.Y - C.Y));

@Xtore · 11.10.2015, 10:32

Сообщение от Cyborg Drone

Ещё abs-ы лишние. Можно упростить:

Блин, точняк! Там же квадрат стоит! Мда, не заметил. А вот насчет типа double первый раз слышу.

Добавлено через 19 минут
Вспомнил, есть такой тип double

@mordol 1 / 1 / 2 Регистрация: 12.05.2015 Сообщений: 313
		1
	Найти сумму расстояний между точками 04.10.2015, 11:40. Показов 1655. Ответов 4 Метки нет (Все метки) Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	04.10.2015, 12:00	2
	Заданы координаты 4-х точек. Подсчитать сумму расстояний до точки с заданными координатами (проверьте решение) 0

@Xtore 1 / 1 / 3 Регистрация: 15.02.2015 Сообщений: 14
	11.10.2015, 10:32	5
	Сообщение от Cyborg Drone Ещё abs-ы лишние. Можно упростить: Блин, точняк! Там же квадрат стоит! Мда, не заметил. А вот насчет типа double первый раз слышу. Добавлено через 19 минут Вспомнил, есть такой тип double 0