Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/22: Рейтинг темы: голосов - 22, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 7

Найдите количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2, 3, 5

21.12.2012, 19:10. Показов 4351. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задано натуральное число н .Найдите кол-во натуральных чисел,не превосходящих н и не делящихся ни на одно из чисел 2,3,5
Напишите программный код на VisualBasic
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.12.2012, 19:10
Ответы с готовыми решениями:

Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5. оч...

Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5
2. Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5. Кому не...

Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5
Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5. Число n ...

9
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
21.12.2012, 20:36
Лучший ответ Сообщение было отмечено как решение

Решение

Среди первых 15 натуральных чисел таких чисел 4 (1, 7, 11, 13). Среди каждых последующих 15 натуральных чисел таких чисел тоже будет по 4, т.к. маска "вычеркивания" повторяется. Значит, можно количество полных периодов по 15 просто умножить на 4, а по остатку пробежаться циклом. Так как остаток не превышает 14 чисел, цикл можно не оптимизировать.
Visual Basic
1
2
3
4
5
6
7
Function jester&(n&)
Dim i&
jester = (n \ 15) * 4
For i = (n \ 15) * 15 + 1 To n
    If i Mod 2 > 0 And i Mod 3 > 0 And i Mod 5 > 0 Then jester = jester + 1
Next
End Function
3
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
22.12.2012, 03:09
Что-то у меня с маской вычёркивания получаются другие значения.
Не в 15 числах идёт дублирование, а в 30
1 7 11 13 17 19 23 29

Количество цифр между соседними(маска вычёркивания) 5 3 1 3 1 3 5 1
1
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 7
22.12.2012, 07:12  [ТС]
а что значит jester?
0
22.12.2012, 09:57

Не по теме:

Цитата Сообщение от jester 508 Посмотреть сообщение
а что значит jester?
:rofl:
:D
Шут!
Давно так не смеялся.

0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
22.12.2012, 10:21
jester [ ] 1) шутник Syn: wag II 1., joker 2) шут a court jester — придворный шут Syn: fool I 1., man of motley
0
22.12.2012, 10:24

Не по теме:

Alex77755, Казанский так функцию обозвал, а ТС-а это озадачило:D

0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
22.12.2012, 10:29

Не по теме:

ТС лениво даже запустить программу-переводчик!
Лень человеческая не знает границ!!



Добавлено через 1 минуту
jester 508,
А что значит твой логин?
1
0 / 0 / 0
Регистрация: 21.12.2012
Сообщений: 7
22.12.2012, 15:57  [ТС]
что за эта команда jester ?

Добавлено через 2 часа 3 минуты
и ещё на эту напишите код пожалуйста
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
22.12.2012, 19:08
что за эта команда jester
Так ты же из этой команды! Под номером 508. Вот и расскажи подробней о ней
А у Казанский это функция!

Функции и процедуры в VB

Процедуры и функции представляют собой отдельные блоки, из которых складывается код программы, каждая процедура выполняет какую-то задачу или ее часть.

Процедуры обработки событий после вызова постоянно находятся в ожидании событий.

Кроме процедур обработки событий в программу можно включить процедуры и функции не связанные с событиями. Они выполняют отдельные действия и могут быть использованы неоднократно. Назовем их общими. Процедуры общего назначения вызываются на выполнение в коде программы. Использование процедур экономит время и позволяет избежать лишних ошибок. Функции отличаются от процедур тем, что возвращают какое-то значение.

Под процедурой или функцией понимается последовательность операций, которую нужно многократно выполнять в различных местах приложения. При этом требуемый блок команд записывается в коде только один раз, после чего к нему можно обращаться из любой части программы.

Функция – это подпрограмма, которую вызывают, чтобы выполнить какие-то расчеты или проверки. Когда она завершает работу, то возвращает управление вызывающей программе и передает ей результат расчета.

Процедура – это тоже подпрограмма. Ее тоже вызывают, чтобы выполнить какие-то действия, но от нее не требуется возвращать основной программе какие-либо значения.

Синтаксис объявления процедуры и функции:
Код:
[Public/Private][Static] Sub <Имя процедуры>(<Параметры>)
<Операторы>
End Sub

Function <Имя функции> [As тип]
<Операторы>
End Function



Процедуры, объявленные с ключевым словом Public, можно вызвать в любом модуле приложения (каждая форма – это отдельный модуль).

Процедуры объявленные как Private, можно вызывать только в текущем модуле.

Слово Static означает, что все переменные, объявленные в процедуре, будут статическими, т.е. их значения сохраняются между вызовами.

Параметры обеспечивают связь процедуры с приложением. Это данные, передаваемые в процедуру при вызове.

Процедуры обработки событий. Вызываются в том, случае если произошло какое-либо событие. При этом существенным является как имя элемента, та и вид события, который с ним произошел.

Пользовательские процедуры. Группы операторов, создаваемые разработчиком для выполнения определенных задач и не зависящие от текущего состояния приложения или произошедших в тот или иной момент событий.

Встроенные функции. Определенные наборы команд, имеющиеся в языке Visual Basic и в предназначенные для вычисления тех или иных значений на основании исходных данных. Встроенными являются, в частности, как математические, так и строковые функции (Abs, Cos, Sin, Mid, Len и т.д.)

Пользовательские функции. Группы операторов, аналогичные пользовательским процедурам.

Однако между ними есть ряд отличий.

Основные отличия функции от процедуры состоят в следующем.

1. Функция имеет тип (аналогично переменной) и может возвращать в программу значение, которое присваивается функции при помощи оператора:

<Имя функции> = значение

2. Вызов функции, как правило, осуществляется посредством указания в правой части какого-либо оператора ее имени и параметров. С другой стороны, процедура вызывается при помощи отдельного оператора:

Call <Имя процедуры> (Параметры)
Или
<Имя процедуры> (Параметры)

Если при вызове процедуры используется ключевое слово Call, то список параметров должен быть указан в скобках. Если же процедура вызывается без использования Call, то ее параметры перечисляются без скобок.

Необходимо отметить, что вызываемая процедура может не иметь параметров. В этом случае (если использовалось служебное слово Call) после имени процедуры следует ставить пустые скобки.

Пользовательские процедуры обычно используются при необходимости выполнения одной и тоже последовательности операций. Например, в программе требуется неоднократно вводить в цикле значения массива arrA, состоящего из пяти элементов. В этом случае заполнение массива лучше всего оформить в виде процедуры.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.12.2012, 19:08
Помогаю со студенческими работами здесь

Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3
(Циклы)

Циклы: Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5
Завтра зачет не успеваю сделать занимаюсь prologom помогите кому не сложно!!! 1)(Циклы)Задано натуральное число n. Найти количество...

Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из
1. Формализация задачи. 2. Разработка алгоритма. 3. Построение схемы обработки данных. 4. Запись алгоритма на языке программирования....

Вычислить произведение первых делящихся на К натуральных чисел, не превосходящих N.
Вычислить произведение первых делящихся на К натуральных чисел, не превосходящих N.

Вывод на экран всех натуральных чисел, не превосходящих N, и делящихся на каждую из своих цифр
Создайте программу вывода на экран всех натуральных чисел, не превосходящих N, и делящихся на каждую из своих цифр.:help: Нужно решить...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru