|
zadach180.BAS |
|
{* Задача180 *}REM basic ' Определить попадает ли точка А(X, Y) в первую четверть' окружности R с центром X0 = 3 и Y0 = 5CLS
INPUT R, X, Y
X0 = 3: Y0 = 5
CondX = X > 3 And X < 3 + R
CondY = Y > 5 And Y < 5 + R
CondYX = (X - 3) ^ 2 + (Y - 5) ^ 2 < R ^ 2
If CondX And CondY And CondYX Then PRINT "Да" Else PRINT "Нет"
End
|