|  | zadach180.BAS | 
	|  | 
		
			{* Задача180 *}REM basic ' Определить попадает ли точка А(X, Y) в первую четверть ' окружности R с центром X0 = 3 и Y0 = 5 CLS 
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 |