Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/29: Рейтинг темы: голосов - 29, средняя оценка - 4.62
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19

Вычислить количество всех целых чисел, больших 10 и меньших 20

24.04.2014, 16:20. Показов 6208. Ответов 16
Метки нет (Все метки)

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

1.Вычислить количество всех целых чисел, больших 10 и меньших 20

 Комментарий модератора 
Не нарушайте правила:
4.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.04.2014, 16:20
Ответы с готовыми решениями:

Найти сумму всех целых чисел больших -50, меньших 200
Найти сумму всех целых чисел больших - 50, меньших 200, которые кратны 5 и 8, и заканчиваются на 5 или 0. Вывести все эти числа на экран. ...

Найти произведение всех целых чисел меньших чем А и больших 100 (repeat/until)
Нужно найти произведение всех целых чисел менше за а и больше за 100( значение ф вводится с клавиатуры) Программа должна содержать...

Найти сумму и количество целых чисел, больших 10, меньших 30 и кратных 5
Найти сумму и количество целых чисел, больших 10, меньших 30 и кратных 5 массива М(25)

16
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
24.04.2014, 16:38
Цитата Сообщение от Francee Посмотреть сообщение
1.Вычислить количество всех целых чисел, больших 10 и меньших 20
Visual Basic
1
MsgBox "Количество всех целых чисел, больших 10 и меньших 20 = " & 11+12+13+14+15+16+17+18+19
Цитата Сообщение от Francee Посмотреть сообщение
4 задачи
Создай ещё 3 темы: всё вместе не по правилам.

Добавлено через 1 минуту
Цитата Сообщение от Francee Посмотреть сообщение
последовательности
В этой последовательности только 4 члена! Очевидно, кто-то что-то забыл уточнить!
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 16:43  [ТС]
первую задачу слишком просто как-то расписал, мне надо через операторов
1
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
24.04.2014, 17:36
Так и есть.
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 19:27  [ТС]
нужно в таком формате
Visual Basic
1
2
3
4
5
6
7
8
Sub sss()
Dim a As Integer
b = 0
For a = 10 To 20
b = b + 1
Next
 
End Sub
1
36 / 33 / 1
Регистрация: 11.01.2013
Сообщений: 388
24.04.2014, 19:33
Francee,
1. Ваше решение правильное (в чём вопрос? )
2. Если сдавать, то сделайте отступы - это хороший тон

С уважением.

Добавлено через 32 секунды
Не волнуйтесь всё будет хорошо
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 19:38  [ТС]
просто спрашивать меня будут по этим операторам, а другое решение она не принимает
0
 Аватар для Апострофф
9908 / 3919 / 742
Регистрация: 11.10.2011
Сообщений: 5,902
24.04.2014, 19:48
1.
Цитата Сообщение от Francee Посмотреть сообщение
количество всех целых чисел, больших 10 и меньших 20
равно девяти, а не одиннадцати, как получается у вас.

2. Dim a As Integer объявили, а b нет - нелогично.

3. Вывод результата тоже не помешал бы.
0
36 / 33 / 1
Регистрация: 11.01.2013
Сообщений: 388
24.04.2014, 20:13
Francee,
Цитата Сообщение от Апострофф Посмотреть сообщение
равно девяти, а не одиннадцати, как получается у вас.
Апострофф прав абсолютно - границы не включаем (если Вы задачу сформулировали верно).
Вам решение или решение есть, а нужны комментарии?

С уважением.
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 20:17  [ТС]
я привел пример какие операторы должны быть, то что я скинул это просто наброски
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
24.04.2014, 21:07
Наброски начинающего мастера! Лет через 100 уйдут с аукциона
1
36 / 33 / 1
Регистрация: 11.01.2013
Сообщений: 388
24.04.2014, 21:16
Sasha_Smirnov,
и настроение улучшилось
1
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
25.04.2014, 13:06
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Visual Basic
1
MsgBox "Количество всех целых чисел, больших 10 и меньших 20 = " & 11+12+13+14+15+16+17+18+19
Мне двойка! Перепутал количество и сумму!

Вот массовый алгоритм (надеюсь, в вашей школе* о нём ещё помнят):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TaskToAnswerConverter()
Const A = 10 'целое число, предшествующее интервалу
Const B = 20 'целое число сразу за интервалом
Const Task = "Вычислить кол-во всех целых чисел, больших " & A & " и меньших " & B & "."
'Const Task = "Вычислить сумму всех целых чисел, больших " & A & " и меньших " & B & "."
Dim answer As Variant 'ответ на задачу
    
    Select Case True
     Case InStr(Task, "кол"):   answer = B - A - 1
     Case InStr(Task, "сумм"):  answer = (B - A - 1) * (A + B) / 2
    End Select
    
MsgBox "Удалось " & LCase(Task) & vbCr & vbCr & "Результат: " & answer, vbInformation
End Sub
_______________
* возможно, это даже вуз... пока не ясно!
Миниатюры
Вычислить количество всех целых чисел, больших 10 и меньших 20  
0
36 / 33 / 1
Регистрация: 11.01.2013
Сообщений: 388
25.04.2014, 13:40
Sasha_Smirnov,
прошу прощения за свою серость, но что такое «массовый алгоритм»? Первый раз встречаю такой термин
Вы не подумайте... я формулу для прогрессии узнал, просто термин первый раз вижу

С уважением.
1
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
25.04.2014, 16:56
Одно из главных преимуществ алгоритма: решать задачу с параметрами (переменными данными).

Не благодарите!
1
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,680
Записей в блоге: 14
25.04.2014, 20:28
Sasha_Smirnov, Мне кажется, что количество чисел равно всего девяти...
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
26.04.2014, 02:40
Именно так, уважаемый Catstail*:
__________________
* но мне кажется, что на нас что-то нашло
Миниатюры
Вычислить количество всех целых чисел, больших 10 и меньших 20  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.04.2014, 02:40
Помогаю со студенческими работами здесь

Вычислить сумму целых положительных чисел, больших М, меньших N и кратных K
Помогите пожалуйста решить задачи Даны натуральные числа M, N, k. Написать программу для вычисления суммы целых положительных чисел,...

Найти сумму всех целых чисел, больших -50, меньших 200 которые кратны 5 и 8 и заканчиваются на 5 или 0
Найти сумму всех целых чисел, больших -50, меньших 200 которые кратны 5 и 8 и заканчиваются на 5 или 0. Вывести на печать эти числа.(Цикл с...

Найти суму всех целых чисел, больших -50 и меньших 500, которые кратны 3 и 6 и заканчиваются на 4 или 2
ннайти суму всех целых чисел ,больших -50 и меньших 500 которые кратны 3 и 6 и заканчиваются на 4 или 2

Вычислить сумму квадратов всех целых чисел, меньших заданного числа a
Вычислить сумму квадратов всех целых чисел, меньших заданного числа a.

Вычислить сумму квадратов всех целых чисел, меньших заданного числа
Здравствуйте. Помогите решить задачи в Паскаль. Надо ввести с клавиатуры целое число, если число отрицательное, то уменьшить его на 10 и...


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

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
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