В заданном одномерном массиве целого типа найти и напечатать только простые числа, или сообщить, что таких нет

@SkyGir · Регистрация: 26.05.2019

Студворк — интернет-сервис помощи студентам

1. В заданном одномерном массиве целого типа найти и напечатать только простые числа, или сообщить, что таких нет. Использовать процедуру нахождения простого числа. (Простым называется число, которое делится только на единицу и на само себя)
Меня смущает фраза:"Использовать процедуру нахождения простого числа"
И если я дам такой ответ:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
    Next i
    For i = 1 To n
        x = 0
        For j = 2 To Math.Sqr(M(i))
            If M(i) Mod j = 0 Then x = 1 : Exit For
        Next j
        If x = 0 Then s2 = s2 & M(i) & " "
    Next i
    MsgBox(s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub

то он будет неправильный.
Подскажите, пожалуйста, чего конкретно от меня требуется. Спасибо

Добавлено через 8 минут
Или вот к этой задаче : В заданном одномерном массиве целого типа найти и напечатать сумму цифр всех элементов массива. Использовать процедуру нахождения суммы цифр числа. Я дам ответ:

Visual Basic
1
2
3
4
5
6
Function Summ(ByVal I As Integer) As Integer
  While I
    Summ = Summ + I Mod 10
    I = I \ 10
  Wend
End Function

то это тоже будет неправильно.

@SkyGir · 29.05.2019, 19:25 **[ТС]**

1. В заданном одномерном массиве целого типа найти и напечатать только простые числа, или сообщить, что таких нет. Использовать процедуру нахождения простого числа
Подскажите, пожалуйста, чего не так.Всегда выдает простых чисел нет

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Option Base 1
 
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
    Next i
s2 = ProChicslo()
 
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub
 
Function ProChicslo()
Dim i, j, x, n, M() As Integer
Dim s2$
For i = 1 To n
        x = 0
        For j = 2 To Math.Sqr(M(i))
            If M(i) Mod j = 0 Then x = 1: Exit For
        Next j
        If x = 0 Then s2 = s2 & M(i) & " "
Next i
End Function

Остап Бонд · 29.05.2019, 20:10

Сообщение от SkyGir

Dim i, j, x, n, M() As Integer

Некорректное объявление переменных!

Сообщение от SkyGir

For i = 1 To n

n=EMPTY'т.е. 0, цикл не выполнится ни разу.
Кстати, дублировать темы - признак дурного тона!

@SkyGir · 29.05.2019, 20:15 **[ТС]**

Пожалуйста, присмотритесь: данная тема отличается от первой:
не

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
    Next i
    For i = 1 To n
        x = 0
        For j = 2 To Math.Sqr(M(i))
            If M(i) Mod j = 0 Then x = 1 : Exit For
        Next j
        If x = 0 Then s2 = s2 & M(i) & " "
    Next i
    MsgBox(s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub

а

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Option Base 1
 
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
    Next i
s2 = ProChicslo()
 
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub
 
Function ProChicslo()
Dim i, j, x, n, M() As Integer
Dim s2$
For i = 1 To n
        x = 0
        For j = 2 To Math.Sqr(M(i))
            If M(i) Mod j = 0 Then x = 1: Exit For
        Next j
        If x = 0 Then s2 = s2 & M(i) & " "
Next i
End Function

по условию задачи надо use функцию
Кстати, не разобравшись в сути вопроса, указывать, что человек неправ, признак дурного тона

SoftIce · 29.05.2019, 20:23

SkyGir, примерно так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
Option Base 1
 
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
        If ProChicslo(M(i)) Then s2 = s2 & M(i) & "  "
    Next i
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub
 
Function ProChicslo(ByVal a As Integer) As Boolean
    Dim i  As Integer
    For i = 2 To Math.Sqr(a)
       If a Mod i = 0 Then Exit Function
    Next i
    ProChicslo = True
End Function

Остап Бонд · 29.05.2019, 20:24

Уважаемый SkyGir, я уже показал вам две ваши ошибки.
Ещё одна: M() в главной процедуре и в функции - это два разных массива.
Почитайте про видимость переменных и параметры функций.
Но при такой манере ответов я пожалуй покурю в сторонке.

@SkyGir · 29.05.2019, 20:25 **[ТС]**

SoftIce, Спасибо за ответ без лишней патетике!

Остап Бонд · 29.05.2019, 20:26

Тем более, что и без меня есть кому помочь...

@SkyGir · 29.05.2019, 20:27 **[ТС]**

Остап Бонд,

Сообщение от Остап Бонд

Кстати, дублировать темы - признак дурного тона!

Извините, если был некорректен! Просто уже 15 дней бьюсь над кодами-голова закипает! Еще раз сорри

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

Остап Бонд Заблокирован
	29.05.2019, 20:24
	Уважаемый SkyGir, я уже показал вам две ваши ошибки. Ещё одна: M() в главной процедуре и в функции - это два разных массива. Почитайте про видимость переменных и параметры функций. Но при такой манере ответов я пожалуй покурю в сторонке. 0

@SkyGir 1 / 1 / 0 Регистрация: 26.05.2019 Сообщений: 70
	29.05.2019, 20:25 [ТС]
	SoftIce, Спасибо за ответ без лишней патетике! 0

Остап Бонд Заблокирован
	29.05.2019, 20:26
	Тем более, что и без меня есть кому помочь... 0