Разложить число на простые множители (исправить код)

@Ale5ander · Регистрация: 06.12.2011

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

Доброго времени суток.
И снова я и снова информатика.
Помогите пожалуйста выявить ошибку в коде:

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
31
IF boolic THEN  'если мы ввели число, то...
    x=CDbl(x)
    x2=CLng(x) 'CLng округляет число до целого
    If CDbl(x2)-x<>0 Then  ' если число не целое изменим флаг
                                   boolic=false
    End if                         
 If boolic and (x>1) Then   'если мы ввели мы ввели 
   'число целого типа, большее 1
                            m=2
                            i=0
                               s="Простые множители числа "&x&":"&vbCrLf
    While m<=x   'ищем простые множители числа и записываем их в строку s
                             If x Mod m=0 Then
                       s=s&" "&m
                              x=x/m
                      i=i+1
              Else m=m+1
                   End If
                           Wend
                        If i=1 Then
 MsgBox "Число "&x&" нельзя разложить на простые"&_
"множители, так как оно само является простым числом.",,"Результат:"
                   Else 
                       Msgbox s,,"Результат:"
                   End If
    ElseIf  boolic and (x=1) Then    ' если введённое число равно 1, то...
         MsgBox "Число 1 нельзя разложить на простые множители,"&_
               " так как оно само является простым числом.",,"Результат:"
 
ELSE   ' если введённое значение не числовое...
         MsgBox "Вы ввели неправильное значение x",vbCritical,"Ошибка"

@Апострофф · 07.04.2012, 06:40

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
31
32
If boolic Then  'если мы ввели число, то...
    x = CDbl(x)
    x2 = CLng(x) 'CLng округляет число до целого
    If CDbl(x2) - x <> 0 Then ' если число не целое изменим флаг
      boolic = False
    End If
    If boolic And (x > 1) Then 'если мы ввели число целого типа, большее 1
      m = 2
      i = 0
      s = "Простые множители числа " & x & ":" & vbCrLf
      While m <= x 'ищем простые множители числа и записываем их в строку s
        If x Mod m = 0 Then
          s = s & " " & m
          x = x / m
          i = i + 1
        Else
          m = m + 1
        End If
      Wend
      If i = 1 Then
        MsgBox "Число " & x & " нельзя разложить на простые" & _
          "множители, так как оно само является простым числом.", , "Результат:"
      Else
        MsgBox s, , "Результат:"
      End If
    ElseIf boolic And (x = 1) Then   ' если введённое число равно 1, то...
         MsgBox "Число 1 нельзя разложить на простые множители," & _
               " так как оно само является простым числом.", , "Результат:"
    Else   ' если введённое значение не числовое...
      MsgBox "Вы ввели неправильное значение x", vbCritical, "Ошибка"
    End If
End If

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через 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 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .