QBASIC

[FLORA]

помогите задали написать программу на языке QBASIC. даны действительные числа x,y определить принадлежит ли точка с координатами (x,y) указанной геометрической фигуре кольцо ограниченное окружностями с центром в начале координат 1и 0,5

[]Wowan[]

Если еще помнишь математическую функцию (уравнение) для получения круга, напиши его помогу

[FLORA]

1 и 0.5 это радиус сори за ошибку

[EducatedFool]

QBASIC не знаю, но на VB будет примерно так:

Sub test()
1:     x = InputBox("Введите значение X")
    If Not IsNumeric(x) Then MsgBox "Введено значение, не являющееся числом": GoTo 1
2:     y = InputBox("Введите значение Y")
    If Not IsNumeric(y) Then MsgBox "Введено значение, не являющееся числом": GoTo 2

    r1 = 0.5
    r2 = 1
    r = Sqr(x * x + y * y)    ' расстояние до точки от центра координат
    
    If r <= r2 And r >= r1 Then
        MsgBox "Точка лежит внутри кольца"
    Else
        MsgBox "Точка лежит за пределами кольца"
    End If
End Sub