Delphi 7. Условный оператор

[Юрий2009]

Даны две точки А(х1,у1) и В(х2,у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.

[__STDC__]

c1 := sqrt(sqr(x1)+sqr(y1));
c2 := sqrt(sqr(x2)+sqr(y2));
if (c1 < c2) then ShowMessage('первая ближе') else ShowMessage('вторая ближе');

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

[Fellics{новичок}]

x:=SQRT(SQR(x1-x2)+SQR(y1-y2))

Берешь допусти x1, y1 за начало координат тоесть за нули, а за x2,y2 координаты точек, а потом сравниваешь результаты

If x>z then <действие> else <действие если x<z >

z и x расстояния от начала координат,до точек