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

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

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

помогите решить срочно надо

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

 Комментарий модератора 
Не нарушайте правила:
4.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2014, 16:20
Ответы с готовыми решениями:

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

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

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

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

16
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
24.04.2014, 16:38 2
Цитата Сообщение от 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  [ТС] 3
первую задачу слишком просто как-то расписал, мне надо через операторов
1
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
24.04.2014, 17:36 4
Так и есть.
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 19:27  [ТС] 5
нужно в таком формате
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 6
Francee,
1. Ваше решение правильное (в чём вопрос? )
2. Если сдавать, то сделайте отступы - это хороший тон

С уважением.

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

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

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

С уважением.
0
16 / 9 / 0
Регистрация: 21.03.2014
Сообщений: 19
24.04.2014, 20:17  [ТС] 10
я привел пример какие операторы должны быть, то что я скинул это просто наброски
0
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
24.04.2014, 21:07 11
Наброски начинающего мастера! Лет через 100 уйдут с аукциона
1
36 / 33 / 1
Регистрация: 11.01.2013
Сообщений: 388
24.04.2014, 21:16 12
Sasha_Smirnov,
и настроение улучшилось
1
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
25.04.2014, 13:06 13
Цитата Сообщение от 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 14
Sasha_Smirnov,
прошу прощения за свою серость, но что такое «массовый алгоритм»? Первый раз встречаю такой термин
Вы не подумайте... я формулу для прогрессии узнал, просто термин первый раз вижу

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

Не благодарите!
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
30437 / 16811 / 3458
Регистрация: 12.02.2012
Сообщений: 28,164
Записей в блоге: 5
25.04.2014, 20:28 16
Sasha_Smirnov, Мне кажется, что количество чисел равно всего девяти...
0
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
26.04.2014, 02:40 17
Именно так, уважаемый Catstail*:
__________________
* но мне кажется, что на нас что-то нашло
Миниатюры
Вычислить количество всех целых чисел, больших 10 и меньших 20  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2014, 02:40

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru