Определить является ли число простым

@Stiba · Регистрация: 31.03.2010

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

Помогите,пожалуйста, решить задачку))))
Дано натуральное число n. Определить, является ли оно простым.

@YuraAAA · 31.03.2010, 18:54

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Теорема Вильсона
Private Sub Command1_Click()
Dim n As Single
n = InputBox("Vvedite N")
If n < 1 Then
MsgBox "error"
Exit Sub
End If
If (fact(n - 1) + 1) Mod n = 0 Then
MsgBox "Prostoe"
Else
MsgBox "ne prostoe"
End If
End Sub
 
Private Function fact(n As Integer) As Single
If n < 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function

@Stiba · 31.03.2010, 19:03 **[ТС]**

If (fact(n - 1) + 1) Mod n = 0 Then
на этой сторчке мне ошибку выдает...(((

@YuraAAA · 31.03.2010, 19:12

Какую ошибку?оО напишите её. У меня на VB6 всё работает

@Stiba · 31.03.2010, 20:00 **[ТС]**

Я ввожу 12 он мне пишет "непростое", а если ввожу 15,то он пишет: run-time error '6' overflow. Я нажимаю debug, он выделяет желтым цветом вот эту строчку: If (fact(n - 1) + 1) Mod n = 0 Then .
И так же если я ввожу 5,то он пишет "простое",а если 17,то тоже выдает ошибку.

@Alex77755 · 31.03.2010, 20:21

Какую ошибку

Переполнение

А вот тупо без теорий. Может подойдёт

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Комманда1_Click()
Dim n, i
n = InputBox("Vvedite N")
For i = 2 To n - 1
If n Mod i = 0 Then MsgBox "Не простое": Exit Sub
Next i
MsgBox "Простое"
End Sub

@Toxa33rus · 31.03.2010, 20:56

15 это слишком большое число (хы-хы) для выражения 15! mod ...
Вот может так:

Visual Basic
1
2
3
4
5
6
7
sub main()
n = val(InputBox("Vvedite N"))
For i=2 to n-1
  if n mod i = 0 then msgbox n & " очень сложное": exit sub
next i
msgbox n & " простое"
end sub

Добавлено через 49 секунд
Alex77755, да что ж такое

Теперь все подумают что я списал у тебя

@Alex77755 · 31.03.2010, 20:58

15 это слишком большое число

Не знаю. Не стал разбираться, но кричит "переполнение"

@Toxa33rus · 31.03.2010, 21:36

А я решил разобраться и вот результат - я второй

Вот при 13 и 14:
479001600 : Variant/Long
6227020800 : Variant/Double
первое проходит, второе нет. Значит Mod понимает максимум Long или число 2 млрд.

@аналитика · 31.03.2010, 22:57

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

Переполнение

А вот тупо без теорий. Может подойдёт

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Комманда1_Click()
Dim n, i
n = InputBox("Vvedite N")
For i = 2 To n - 1
If n Mod i = 0 Then MsgBox "Не простое": Exit Sub
Next i
MsgBox "Простое"
End Sub

несколько штрихов добавлю:

Visual Basic
1
2
3
4
5
6
7
8
   Dim n, i
   n = InputBox("Vvedite N")
   If n Mod 2 = 0 Then MsgBox "Не простое", , "Чётное": Exit Sub
   
   For i = 3 To n \ 3
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
   Next i
   MsgBox "Простое"

@Toxa33rus · 31.03.2010, 23:08

Сообщение от аналитика

несколько штрихов добавлю

ага, так быстрее будет в 3 раза. красавчег!

@аналитика · 01.04.2010, 11:01

Меня понесло

Visual Basic
1
2
3
4
5
6
7
8
9
   Dim n, i
   n = InputBox("Vvedite N")
   
   For i = 2 To n
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      m = n \ i 'верхняя граница приближается
      If i > m Then Exit For
   Next i
   MsgBox "Простое"

Так еще быстрее...

Добавлено через 11 часов 45 минут
И еще сокращаем в 2 раза - в начале отсеиваем четные, потом просматривать только нечетные (с учетом сжатия диапазона поиска)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
   Dim n, i
   n = InputBox("Vvedite N")
   If n=2 Then MsgBox "Простое", , "2 - простое число": Exit Sub 
   If n Mod 2 = 0 Then MsgBox "Не простое", , "Чётное": Exit Sub
   
   For i = 3 To n Step 2
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      m = n \ i 'верхняя граница приближается
      If i > m Then Exit For
   Next i
   MsgBox "Простое"

@Stiba · 01.04.2010, 19:23 **[ТС]**

оооо)))сколько ответов)))Мальчики,спасибо вам огромное :*****)))))))

20.04.2011, 13:25

Вот мое решение:

Private Sub Command3_Click()
n = InputBox("Введите N")
k = 0
For i = 1 To n
r = n Mod i
If r = 0 Then k = k + 1
Next i
If k > 2 Then Picture1.Print n; " - не является простым числом" Else: Picture1.Print n; " - простое число"
End Sub

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Stiba 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 7

	Определить является ли число простым 31.03.2010, 18:36. Показов 13184. Ответов 13 Метки нет (Все метки) Помогите,пожалуйста, решить задачку)))) Дано натуральное число n. Определить, является ли оно простым. 0

@Stiba 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 7
	31.03.2010, 19:03 [ТС]
	If (fact(n - 1) + 1) Mod n = 0 Then на этой сторчке мне ошибку выдает...((( 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	31.03.2010, 19:12
	Какую ошибку?оО напишите её. У меня на VB6 всё работает 0

@Stiba 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 7
	31.03.2010, 20:00 [ТС]
	Я ввожу 12 он мне пишет "непростое", а если ввожу 15,то он пишет: run-time error '6' overflow. Я нажимаю debug, он выделяет желтым цветом вот эту строчку: If (fact(n - 1) + 1) Mod n = 0 Then . И так же если я ввожу 5,то он пишет "простое",а если 17,то тоже выдает ошибку. 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	31.03.2010, 21:36
	А я решил разобраться и вот результат - я второй Вот при 13 и 14: 479001600 : Variant/Long 6227020800 : Variant/Double первое проходит, второе нет. Значит Mod понимает максимум Long или число 2 млрд. 0

@Stiba 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 7
	01.04.2010, 19:23 [ТС]
	оооо)))сколько ответов)))Мальчики,спасибо вам огромное :*****))))))) 0

andreiex
	20.04.2011, 13:25
	Вот мое решение: Private Sub Command3_Click() n = InputBox("Введите N") k = 0 For i = 1 To n r = n Mod i If r = 0 Then k = k + 1 Next i If k > 2 Then Picture1.Print n; " - не является простым числом" Else: Picture1.Print n; " - простое число" End Sub