Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

В заданном одномерном массиве целого типа найти и напечатать только простые числа, или сообщить, что таких нет. Использовать процедуру нахождения простого числа. (Простым называется число, которое делится только на единицу и на само себя)
Меня смущает фраза:"Использовать процедуру нахождения простого числа"
И если я дам такой ответ:
Код:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


20:02.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.