If22. Даны координаты точки, не лежащей на координатных осях $$OX$$ и $$OY$$. Определить номер координатной четверти, в которой находится данная точка.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program if22; var X,Y: Real; begin Writeln('Введите координаты точки: '); Write('Введите координату X: '); Readln (X); Write('Введите координату Y: '); Readln (Y); if (X>0) and (Y>0) then Writeln('Точка лежит в I координатной четверти'); if (X<0) and (Y>0) then Writeln('Точка лежит во II координатной четверти'); if (X<0) and (Y<0) then Writeln('Точка лежит в III координатной четверти'); if (X>0) and (Y<0) then Writeln('Точка лежит в IV координатной четверти'); end. |
Другие задачи из раздела If можно посмотреть здесь.
Комментарии:
Комментарии 1