С Новым годом! Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96

Подпрограммы

05.10.2013, 23:09. Показов 3347. Ответов 54
Метки нет (Все метки)

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

1. Написать программу, определяющую, сколько раз сумма из пяти случайных чисел (слагаемых) превысила заданное число N. Слагаемые выбираются из целых чисел интервала [K,L]. Сумму вычисляют 20 раз. Каждый раз печатать слагаемые и сумму.
N=100
K=50
L=60
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.10.2013, 23:09
Ответы с готовыми решениями:

подпрограммы
Что здесь неправильно? я уже реально запуталась( Private Sub Command1_Click() razpechatat End Sub Private Sub...

Вывести динамический массив из подпрограммы в основную
Здравствуйте! Есть задача: написать программу с п\п-процедурой, юзер вводит слово, определить кол-во букв, сформировать динамический...

Чем отличается процедура-функция от подпрограммы
Ребят, помогите ответить на вопросы: 1)как производится обращение к функции? какие типы встроеных функций есть в VB? 2)Назовите...

54
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 00:29
Цитата Сообщение от sveta18 Посмотреть сообщение
N=100
K=50
L=60
По-моему, здесь ошибка - при таких значениях сумма ВСЕГДА будет больше заданного числа.
Цитата Сообщение от sveta18 Посмотреть сообщение
Напечатать рейтинг студентов вашей группы с номерами от А до В.
Если я правильно понимаю задание - я тут ничем Вам помочь не могу
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 10:49  [ТС]
Цитата Сообщение от Good-Morning Посмотреть сообщение
Напечатать рейтинг студентов вашей группы с номерами от А до В.
Если я правильно понимаю задание - я тут ничем Вам помочь не могу
ну это да)))рейтинг я уж сама

Добавлено через 1 минуту
Цитата Сообщение от Good-Morning Посмотреть сообщение
N=100
K=50
L=60
По-моему, здесь ошибка - при таких значениях сумма ВСЕГДА будет больше заданного числа.
ну вот так в задании.все равно нужно вычислять ее как-то 20 раз...даже если ВСЕГДА будет больше заданного числа.
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 13:03
Цитата Сообщение от sveta18 Посмотреть сообщение
все равно нужно вычислять ее как-то 20 раз...даже если ВСЕГДА будет больше заданного числа.
Да, наверно, Вы правы.
QBasic/QuickBASIC
1
50+RND*10
Вот функция, что возвращает произвольное значение от 50 до 60. Хотя,.. лучше сделать так:
QBasic/QuickBASIC
1
K+RND*(L-K)
Добавлено через 3 минуты
Попробуйте написать код для первого задания.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 15:00  [ТС]
Цитата Сообщение от Good-Morning Посмотреть сообщение
Попробуйте написать код для первого задания.
не знаю с чего начинать)задание не понятное.
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 15:44
Нет уж не буду сразу говорить готовый код.
Начнем с начала. Функция RND возвращает произвольное псевдослучайное число в пределах от 0 до 1 (т.е., например, 0.634875). Чтобы увеличить этот диапозон, воспользуемся алгебраической линзой - умножением. Изначально диапозон функции - 1, а нам нужен 10 (50-60). Соответственно, RND*10 будет возвращать значения в пределах уже не [0;1], a [0;10]. Улавливаете? Наша "линза" умножает на 10 и 0, и 1, получая при этом 0 и 10.

Нам нужен диапозон 50-60. Представим его в виде: 50+0-10. Что же мы видим? Мы видим, что нужный нам диапозон представляет из себя сумму смещения(50) и произведения диапозона (0-1) и линзы (10). Произведение мы уже выразили.

Теперь можете к этому диапозону приравнять 5 слагаемых, что упомянаются в задаче. Попробуйте написать цикл, что будет 5 переменных приравнивать к данному диапазону.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 21:04  [ТС]
Цитата Сообщение от Good-Morning Посмотреть сообщение
Нет уж не буду сразу говорить готовый код.
жалко(просто по вашему объяснению я все равно ничего не поняла) можете поподробнее вообще с чего нужно начать?

Добавлено через 11 минут
Я даже задание толком не поняла..нужно каждый раз вычислять сумму случайных чисел...в интервале
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 21:08
Ладно - сегодня уже поздновато - я завтра по-понятнее объясню.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 21:12  [ТС]
Эх ну ладно...
А с 3 задачей где там нужно написать рейтинг,это просто через INPUT вводить и все?
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 21:17
Цитата Сообщение от sveta18 Посмотреть сообщение
Последний раз редактировалось magirus; Сегодня в 20:10.
Причина: одна тема - одна задача, читайте правила форума.
Я не помню 3-ую задачу.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 21:23  [ТС]
ну там напечатать рейтинг студентов от А до В.
А=3
В=12
0
06.10.2013, 21:26

Не по теме:

Цитата Сообщение от sveta18 Посмотреть сообщение
ну там напечатать рейтинг студентов от А до В.
А=3
В=12
Тогда, наверно, да.

0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
06.10.2013, 21:38  [ТС]
Хотела спросить последнее как сделать диаграмму круговую и столбчатаю?
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
06.10.2013, 21:40
Цитата Сообщение от sveta18 Посмотреть сообщение
Хотела спросить последнее как сделать диаграмму круговую и столбчатаю?
В GW? Нет, конечно, там тоже можно начертить, но это сложновато.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
07.10.2013, 16:08  [ТС]
Да,да в GW...Пробовала,но пока только линии получаются...
Ну ладно тогда попозже задам этот вопрос в новой теме)


Добавлено через 18 часов 24 минуты
Цитата Сообщение от Good-Morning Посмотреть сообщение
я завтра по-понятнее объясню.
ну что объясните мне попонятнее?))
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
07.10.2013, 16:17
Секунду.

Добавлено через 3 минуты
Строка
QBasic/QuickBASIC
1
n=RND
присваивает переменной псевдослучайное (не заморачивайтесь - это, грубо говоря, и есть случайные) значение в диапозоне 0-1. Т.е. если мы далее допишем
QBasic/QuickBASIC
1
PRINT n
получим случайное значение из промежутка 0-1, например: 0; 0.374545897; 1; 0.29423, надеюсь, пока понятно.
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
07.10.2013, 16:21  [ТС]
это да)
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
07.10.2013, 16:24
Для большей понятности напишем программу
QBasic/QuickBASIC
1
2
3
FOR i=1 TO 10
PRINT RND
NEXT i
Мы видим 10 случайных чисел из нашего, уже известного промежутка.
Что будет, если мы это значение умножим на 10? Давайте попробуем:
QBasic/QuickBASIC
1
2
3
FOR i=1 TO 10
PRINT RND*10
NEXT i
Теперь мы видим произвольные числа диапозона 0-10. Что произошло: возьмем, для примера, минимальное значение функции RND - 0. Что будет, если его умножить на 10? Правильно, будет ноль. Если взять максимальное значение функции RND - 1, то получим 1*10=10. Делаем вывод - значение нашего выражения будет колебаться между данными минимумом и максимумом, т.е. 0 и 10. Диапозон стал уже 0-10.
Понятно?
0
6 / 6 / 0
Регистрация: 14.09.2013
Сообщений: 96
07.10.2013, 16:29  [ТС]
Ну более-менее...
Только я не поняла если RND*10 получится 0?
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
07.10.2013, 16:38
Цитата Сообщение от sveta18 Посмотреть сообщение
Только я не поняла если RND*10 получится 0?
Функция RND выдает произвольные значения от 0 до 1. Она МОЖЕТ выдать 0, а может и не выдать. 0 - это минимум данной функции. 1 - максимум. Теперь понятней?

Добавлено через 27 секунд
Т.е. не ДОЛЖЕН получится 0, а МОЖЕТ получится 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.10.2013, 16:38
Помогаю со студенческими работами здесь

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

Подпрограммы ошибка
Добрый день. не могу решить проблему ((. Вычислить F=(p1/(p2-p1))+p3 где p1 – произведение всех нечетных чисел в диапазоне от 20...

VBA: Подпрограммы
При помощи подпрограмм нужно сделать программу: Заданы две матрицы А(4,4) и В(3,3). Написать программу вычисления вектора Z = Х ...

Как используются подпрограммы
помогите вот в этой программе использовать подпрограммы Sub ia() Dim a(5) As Variant Dim b(5) As Variant Dim c(5) As Variant ...

Подпрограммы: площади, периметры
Доброго времени суток:), задача вроде бы простая, но что то не получается и еще ошибку выдает Задача: Даны основания и высоты двух...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru