zadach327.BAS

{* Задача327 *}

REM basic

' Дана точка с координатами (x, y).Определить, какому квадрату на плоскости она принадлежит.


CLS
INPUT "vvedite x "; x
INPUT "vvedite y "; y
If x > 0 And y > 0 Then PRINT "tochak legit v 1om kvadrate"
If x < 0 And y > 0 Then PRINT "tochka legit vo 2om kvadrate"
If x < 0 And y < 0 Then PRINT "tochka legit v 3em kvadrate"
If x > 0 And y < 0 Then PRINT "tochka legit v 4om kvadrate"
If y = 0 And x  0 Then PRINT "tochka legit na osi X"
If x = 0 And y  0 Then PRINT "tocka legit na osi Y"
If x = 0 And y = 0 Then PRINT "eto nachalo otscheta....."
INPUT "dlya prodolgeniya raboti vvedite cheslo otlichnoe ot 0 "; z
If z  0 Then GoTo 1
End