Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось. - VB
Формулировка задачи:
Сформировать с помощью функции RND массив их 120 элементов. Найти все простые числа. Построить график и нанести их на числовую ось в любом масштабе в пределах экрана.
Решение задачи: «Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось.»
textual
Листинг программы
- Private Sub Command3_Click()
- Dim p As Boolean
- Dim W As Boolean
- Dim gg() As Double
- Dim i As Integer
- Dim J As Integer
- Dim X1 As Double
- Cls
- Randomize
- W = True
- Print " ГЊГ*Г±Г±ГЁГў"
- n = 120
- ReDim gg(1 To n)
- For i = 1 To n
- gg(i) = Int(100 * Rnd + 1)
- Print gg(i);
- Next i
- Print " Ïðîñòûå"
- Print "Íîìåð ×èñëî"
- For i = 1 To n
- If PROST(gg(i)) Then Print i, gg(i): W = False
- Next i
- If W Then Print " Ïðîñòûõ Г*ГҐГІ"
- End Sub
- Function PROST(X1 As Double) As Boolean
- PROST = True
- Dim J As Integer
- For J = 2 To X1 / 2
- If X1 Mod J = 0 Then PROST = False: Exit Function
- Next J
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д