Книги-online

Практикум — Глава 1. Алгоритмы линейной и разветвляющейся структуры

[ домой ]

[ следующий ] [ начало главы ] [ предыдущий ]

[ содержание ]

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

Номер теста	Данные						Результат
	xA	yA	xB	yB	xC	yC	Otvet
1	2	1	2	2	-1	3	"Это точка A"
2	2	2	2	1	-1	3	"Это точка B"
3	2	2	-1	3	2	1	"Это точка C"

  Демонстрация Школьный АЯ

алг Точки(арг вещ 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.

 

[ домой ]

[ следующий ] [ начало главы ] [ предыдущий ]

[ содержание ]