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

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

21.12.2012, 19:10. Показов 4377. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru