Нахождение максимального расстояния между тремя точками

@cosmastar · Регистрация: 20.11.2013

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

Здравствуйте!

Необходимо написать программу, вычисляющую максимальное расстояние между тремя точками на плоскости: A(x1,y1), B(x2,y2), C(x3,y3).

Вот мой вариант алгоритма программы:

Тому, кто сможет уделить немного времени, буду очень благодарен!

@ПерС · 21.11.2013, 08:27

Наверно, в ветвлении везде max:=d, а не d:=max

ну и сравнений можно меньше

Pascal

1
2
3

max:=d1;
if d2>max then max:=d2;
if d3>max then max:=d3;

@cosmastar · 23.11.2013, 19:05 **[ТС]**

ПерС, спасибо, я и не заметил :-)

Смех и грех. Мне было необходимо написать программу, вычисляющую какие из 3-х точек находятся на максимальном расстоянии друг от друга. Сей факт открылся мне только тогда, когда я нёс данную лабораторную работу преподавателю в университет и по пути решил захватить методичку с этим заданием. Так что чит-код не сработал и мне пришлось проходить этот уровень честным способом :-)

Вот мой вариант программы, а также алгоритм её работы. Если есть какие-то исправления, неточности, корявости, то прошу на них указать. Это мне очень-очень поможет! :-)

Pascal

program b1;
var X1,X2,X3,Y1,Y2,Y3,D1,D2,D3,MAX: real;
begin
writeln('X1 and Y1: '); readln(X1, Y1);
writeln('X2 and Y2: '); readln(X2, Y2);
writeln('X3 and Y3: '); readln(X3, Y3);
D1:=sqrt(abs(sqr(X2-X1) - sqr(Y2-Y1)));
D2:=sqrt(abs(sqr(X3-X1) - sqr(Y3-Y1)));
D3:=sqrt(abs(sqr(X3-X2) - sqr(Y3-Y2)));
if D3>D2 then if D1>d2 then MAX:=D1
else MAX:=D2
else if D3>D2 then MAX:=D3
else MAX:=D2;
if MAX:=D1 then writeln('MAX - A1 and A2');
if MAX:=D2 then writeln('MAX - A1 and A3');
if MAX:=D3 then writeln('MAX - A2 and A3');
readln;
end.

@cosmastar · 23.11.2013, 19:19 **[ТС]**

Блин, забыл вставить алгоритм, но больше не могу отредактировать сообщение :-(

Алгоритм программы:

@cosmastar · 04.12.2013, 23:41 **[ТС]**

Помогите пожалуйста перевести этот алгоритм на язык Паскаля!

@cosmastar 1 / 1 / 0 Регистрация: 20.11.2013 Сообщений: 17
		1
	Нахождение максимального расстояния между тремя точками 20.11.2013, 23:22. Показов 2785. Ответов 4 Метки нет (Все метки) Здравствуйте! Необходимо написать программу, вычисляющую максимальное расстояние между тремя точками на плоскости: A(x1,y1), B(x2,y2), C(x3,y3). Вот мой вариант алгоритма программы: Тому, кто сможет уделить немного времени, буду очень благодарен! Миниатюры 0

@cosmastar 1 / 1 / 0 Регистрация: 20.11.2013 Сообщений: 17
	23.11.2013, 19:19 [ТС]	4
	Блин, забыл вставить алгоритм, но больше не могу отредактировать сообщение :-( Алгоритм программы: Миниатюры 0

@cosmastar 1 / 1 / 0 Регистрация: 20.11.2013 Сообщений: 17
	04.12.2013, 23:41 [ТС]	5
	Помогите пожалуйста перевести этот алгоритм на язык Паскаля! Миниатюры 0