Выяснить, принадлежит ли точка с координатами (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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы