Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Nasia
0 / 0 / 0
Регистрация: 23.12.2016
#1

Является ли введенное число простым - VB

23.03.2012, 01:39. Просмотров 1071. Ответов 2
Метки нет (Все метки)

Вводиться натуральное число.Вывести на экран так,чтобы все цифры расположились в обратном порядке.
Вводиться натуральное число.Вывести-простое это число или нет.
http://www.cyberforum.ru/visual-basic/thread1916056.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2012, 01:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Является ли введенное число простым (VB):

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

Составить программу, определяющую, является ли данное число N простым
в Visual Basic Циклы 2.Составить программу, определяющую, является ли...

Определить для любого числа – является ли оно простым
1. Преобразовать любое число от 1 до 10 из римской формы записи в арабскую....

написать программу,определяющую делится ли введенное пользователем число на 7
первая задача. написать программу,определяющую делится ли введенное...

Как найти сумму цифр, образующих число, введенное в TextBox
В TextBox вводиться двухзначное число. Как найти сумму цифр, образующих это...

2
SoftIce
comment ca va
10413 / 3915 / 999
Регистрация: 27.07.2011
Сообщений: 9,475
Завершенные тесты: 1
23.03.2012, 06:10 #2
Простое число
0
Апострофф
Заблокирован
23.03.2012, 07:45 #3
1 задача:
Visual Basic
1
msgbox strreverse(InputBox("Vvedite N"))
или
Visual Basic
1
2
3
4
5
6
7
Dim L As Long, R As Long
L = Val(InputBox("Введите натуральное число"))
While L > 0
  R = R * 10 + L Mod 10
  L = L \ 10
Wend
MsgBox R
2 задача:
Цитата Сообщение от Простое число
И еще сокращаем в 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 "Простое"
Можно убрать 2 строчки (мне кажется, быстрее и проще один раз найти корень, чем мильон раз делить и сравнивать)
Visual Basic
1
2
3
4
5
   For i = 3 To SQR(N) Step 2
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      'm = n \ i 'верхняя граница приближается
      'If i > m Then Exit For
   Next i
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2012, 07:45
Привет! Вот еще темы с решениями:

Вычислить площадь и объем цилиндра - что нужно сделать, чтобы использовалось последнее, корректно введенное число?
Доброго времени суток. Нужно было написать программу для вычисления площади и...

Определить, является ли число палиндромом
Вводится положительное целое число B < 10000. Является ли оно палиндромом?...

Определить является ли заданное число совершенным
Пожалуста помогите решить нужно очень срочно Натуральное число М называется...

Как определить является ли число палиндромом
Люди, помогите. У нас скоро зачет, а учитель ничего не объяснял, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru