Если точка совпадает с началом координат, то вывести 0
Категория: Delphi/Pascal
2011-12-09 17:14:44
Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3
code: #pascal
Program If21; Var x,y:Real; Begin WriteLn('Введите координаты точки (x,y):'); ReadLn(x,y); If (x = 0) And (y = 0) Then WriteLn('Точка совпадает с началом координат: 0') Else If ((x <> 0) And (y = 0)) Then WriteLn('Точка лежит на оси OX: 1') Else If ((x = 0) And (y <> 0)) Then WriteLn('Точка лежит на оси OY: 2') Else WriteLn('Точка не лежит на координатных осях: 3'); End.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: