Начало формы
Конец формы
Школьный АЯ
Алг Точки(арг вещ 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)
