Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r - VB
Формулировка задачи:
1) Даны действительные величины x, y, r. Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r с центром в начале координат.
2) Дан одномерный массив а вещественного типа, состоящий из n элементов. Осуществить циклический сдвиг элементов массива влево на три позиции, т. е. получить массив:
а=(а4, а5, a6,..., an, a1, a2, a3 )
(Дополнительного массива не заводить)
Исходный и полученный массив вывести на печать. Решение задачи: «Выяснить, принадлежит ли точка с координатами (x,y) кругу радиуса r»
textual
Листинг программы
Dim a() As Single, i As Integer
Private Sub Command1_Click()
Dim j As Integer, n As Integer
Dim t As Single
Const k = 3
n = Val(InputBox("n-?", , 5))
If n > 4 Then
Me.AutoRedraw = True
Cls
ReDim a(n)
For i = 1 To n
a(i) = Rnd * 25
Next i
Call Pr(n)
i = 0
Do While i < k
i = i + 1
t = a(1)
For j = 1 To n - 1
a(j) = a(j + 1)
Next j
a(n) = t
Loop
Call Pr(n)
Else
MsgBox "!", vbExclamation
End If
End Sub
Sub Pr(n As Integer)
Dim i As Integer
For i = 1 To n
Print a(i); " ";
Next i
Print
End Sub