Выяснить, принадлежит ли точка с координатами (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д