Пример 1.3. Даны три точки на плоскости. Определить, какая из них ближе к началу

Координат.

Система тестов

Алгоритмический язык

алг Точки(арг вещ xA,yA,xB,yB,xC,yC, рез лит Otvet)

нач вещ DistA,DistB,DistC

ввод xA,yA,xB,yB,xC,yC

DistA:= sqrt(xA**2 + yA**2)

DistB:= sqrt(xB**2 + yB**2)

DistC:= sqrt(xC**2 + yC**2)

если (DistA < DistB) и (DistA < DistC)

то Otvet:= "Это точка А"

иначе если DistB < DistC

то Otvet:= "Это точка B"

иначе Otvet:= "Это точка C"

все

все

вывод Otvet

кон

Turbo Pascal

Program Points;

Uses Crt;

Var xA, yA, xB, yB, xC, yC, DistA, DistB, DistC: Real;

BEGIN

ClrScr;

WriteLn('Введите координаты точки А:');

Write('x = '); ReadLn(xA); Write('y = '); ReadLn(yA);

WriteLn('Введите координаты точки B:');

Write('x = '); ReadLn(xB); Write('y = '); ReadLn(yB);

WriteLn('Введите координаты точки C:');

Write('x = '); ReadLn(xC); Write('y = '); ReadLn(yC);

DistA:= sqrt(sqr(xA) + sqr(yA));

DistB:= sqrt(sqr(xB) + sqr(yB));

DistC:= sqrt(sqr(xC) + sqr(yC));

WriteLn; Write('Ответ: ');

If (DistA < DistB) and (DistA < DistC) then WriteLn('Это точка А.')

else If (DistB < DistC) then WriteLn('Это точка B.')

else WriteLn('Это точка C.');

ReadLn;

END.

Не нашли, что искали? Воспользуйтесь поиском: