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

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

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

Author24 — интернет-сервис помощи студентам
Задано натуральное число н .Найдите кол-во натуральных чисел,не превосходящих н и не делящихся ни на одно из чисел 2,3,5
Напишите программный код на VisualBasic
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2012, 19:10
Ответы с готовыми решениями:

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

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

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

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

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

Решение

Среди первых 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
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,222
22.12.2012, 03:09 3
Что-то у меня с маской вычёркивания получаются другие значения.
Не в 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  [ТС] 4
а что значит jester?
0
SoftIce
22.12.2012, 09:57
  #5

Не по теме:

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

0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,222
22.12.2012, 10:21 6
jester [ ] 1) шутник Syn: wag II 1., joker 2) шут a court jester — придворный шут Syn: fool I 1., man of motley
0
SoftIce
22.12.2012, 10:24
  #7

Не по теме:

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

0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,222
22.12.2012, 10:29 8

Не по теме:

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



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

Добавлено через 2 часа 3 минуты
и ещё на эту напишите код пожалуйста
0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,222
22.12.2012, 19:08 10
что за эта команда 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
22.12.2012, 19:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2012, 19:08
Помогаю со студенческими работами здесь

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru