Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2019, 18:42   #1
SkyGir
Пользователь
 
Регистрация: 24.05.2019
Сообщений: 31
По умолчанию Нужна консультация специалистов

В заданном одномерном массиве целого типа найти и напечатать только простые числа, или сообщить, что таких нет. Использовать процедуру нахождения простого числа. (Простым называется число, которое делится только на единицу и на само себя)
Меня смущает фраза:"Использовать процедуру нахождения простого числа"
И если я дам такой ответ:
Код:
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
то он будет неправильный.
Или вот к этой задаче : В заданном одномерном массиве целого типа найти и напечатать сумму цифр всех элементов массива. Использовать процедуру нахождения суммы цифр числа. Я дам ответ:
Код:
Function Summ(ByVal I As Integer) As Integer
  While I
    Summ = Summ + I Mod 10
    I = I \ 10
  Wend
End Function
то это тоже будет(видимо) неправильно
Подскажите, пожалуйста, чего конкретно от меня требуется. Спасибо
SkyGir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь специалистов seric PHP 0 16.04.2017 09:19
Консультация у специалистов - опросная анкета для программистов viild Свободное общение 5 07.04.2011 20:08
помощ нужна специалистов umbroended Свободное общение 3 02.12.2009 15:53
Нужна помощь специалистов holovla Компьютерное железо 4 06.02.2009 04:44
Нужна помощь специалистов по WMShop Dengar PHP 4 01.03.2008 19:09