Разложение на множители

@johnshencev · Регистрация: 24.04.2013

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

добрый день! являюсь студентом 1-го курса, по инфе проходим visual basic. раньше задавали простые для меня задачи, сейчас задали с которым я справится не могу. вот задание "Введите целое число и выведите массив, состоящий из всех простых сомножителей заданного числа."
ПОМОГИТЕ пожалйста с задачей ,
версия : microsoft visual basic 6.5

@m-ch · 24.04.2013, 21:22

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Main()
    Dim n&, i&
    n = Val(InputBox("n ="))
    i = 2
    While i * i <= n
        If n Mod i Then i = i + 1 Else n = n \ i: Debug.Print i
    Wend
    If n > 1 Then Debug.Print n
End Sub

@johnshencev · 24.04.2013, 21:49 **[ТС]**

как вывести сомножители ввиде массива? поидее строка должна выглядить как : например 24 = 2 2 2 3
добавил функцию msgbox с выводом n , в итоге показывает ввдененное число деленое на два или само число, если оно простое напирмер 2,5. ничего не понимаю

@antonboom · 24.04.2013, 21:54

Зачем MsgBox, если уже Print стоит?

@johnshencev · 24.04.2013, 21:58 **[ТС]**

Добавлено через 2 минуты

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

Зачем MsgBox, если уже Print стоит?

не работает видимо,все как положено жму run sub , ввожу число, и окно программы навечно покидает экран

@sco43 · 24.04.2013, 21:59

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
30
Dim a As Long, b As String, i As Integer, z() As Integer, f
a = InputBox("a")
i = 2: j = 1: f = a
Do While a <> 1
DoEvents
If a / i = Int(a / i) Then
 a = a / i
 j = j + 1
Else
 i = i + 1
End If
Loop
 
ReDim z(j)
a = f: z(1) = 1: j = 1: i = 2
Do While a <> 1
DoEvents
If a / i = Int(a / i) Then
 a = a / i
 j = j + 1
 z(j) = i
Else
 i = i + 1
End If
Loop
 
For i = 1 To j
 b = b & z(i) & "  "
Next i
MsgBox b

@antonboom · 24.04.2013, 22:00

Попробуй это в загрузку формы и свойство AutoRedrew = true

@johnshencev · 24.04.2013, 22:19 **[ТС]**

рабОТАЕТ))) . 34 разложил как 1 2 17. но с другими числами норм раскладывает) спасибо

@m-ch · 24.04.2013, 23:03

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

поидее строка должна выглядить как : например 24 = 2 2 2 3

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Main()
    Dim n&, i&, s$
    n = Val(InputBox("n ="))
    i = 2
    While i * i <= n
        If n Mod i Then i = i + 1 Else n = n \ i: s = s & " " & i
    Wend
    If n > 1 Then s = s & " " & n
    MsgBox s
End Sub

@johnshencev · 24.04.2013, 23:06 **[ТС]**

програмистам респект

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@johnshencev 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 6

	Разложение на множители 24.04.2013, 20:24. Показов 3523. Ответов 9 Метки нет (Все метки) добрый день! являюсь студентом 1-го курса, по инфе проходим visual basic. раньше задавали простые для меня задачи, сейчас задали с которым я справится не могу. вот задание "Введите целое число и выведите массив, состоящий из всех простых сомножителей заданного числа." ПОМОГИТЕ пожалйста с задачей , версия : microsoft visual basic 6.5 0

@johnshencev 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 6
	24.04.2013, 21:49 [ТС]
	как вывести сомножители ввиде массива? поидее строка должна выглядить как : например 24 = 2 2 2 3 добавил функцию msgbox с выводом n , в итоге показывает ввдененное число деленое на два или само число, если оно простое напирмер 2,5. ничего не понимаю 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	24.04.2013, 21:54
	Зачем MsgBox, если уже Print стоит? 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	24.04.2013, 22:00
	Попробуй это в загрузку формы и свойство AutoRedrew = true 1

@johnshencev 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 6
	24.04.2013, 22:19 [ТС]
	рабОТАЕТ))) . 34 разложил как 1 2 17. но с другими числами норм раскладывает) спасибо 0

@johnshencev 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 6
	24.04.2013, 23:06 [ТС]
	програмистам респект 0

Опции темы

Разложение на множители

Решение