Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось. - VB

Узнай цену своей работы

Формулировка задачи:

Сформировать с помощью функции RND массив их 120 элементов. Найти все простые числа. Построить график и нанести их на числовую ось в любом масштабе в пределах экрана.

Решение задачи: «Сформировать массив их 120 эл-тов. Найти все простые числа. Построить график и нанести на числовую ось.»

textual
Листинг программы
  1. Private Sub Command3_Click()
  2. Dim p As Boolean
  3. Dim W As Boolean
  4. Dim gg() As Double
  5. Dim i As Integer
  6. Dim J As Integer
  7. Dim X1 As Double
  8.  
  9. Cls
  10. Randomize
  11. W = True
  12. Print "                          ГЊГ*Г±Г±ГЁГў"
  13. n = 120
  14. ReDim gg(1 To n)
  15. For i = 1 To n
  16.         gg(i) = Int(100 * Rnd + 1)
  17.         Print gg(i);
  18. Next i
  19. Print
  20. Print
  21. Print "            ГЏГ°Г®Г±ГІГ»ГҐ"
  22. Print "Íîìåð            Г—èñëî"
  23. For i = 1 To n
  24. If PROST(gg(i)) Then Print i, gg(i): W = False
  25. Next i
  26. If W Then Print "   Ïðîñòûõ Г*ГҐГІ"
  27. End Sub
  28.  
  29. Function PROST(X1 As Double) As Boolean
  30. PROST = True
  31. Dim J As Integer
  32. For J = 2 To X1 / 2
  33. If X1 Mod J = 0 Then PROST = False: Exit Function
  34. Next J
  35. End Function

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


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

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

12   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы