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

@sveta18 · Регистрация: 14.09.2013

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

1. Написать программу, определяющую, сколько раз сумма из пяти случайных чисел (слагаемых) превысила заданное число N. Слагаемые выбираются из целых чисел интервала [K,L]. Сумму вычисляют 20 раз. Каждый раз печатать слагаемые и сумму.
N=100
K=50
L=60

@sveta18 · 07.10.2013, 16:43 **[ТС]**

Все поняла)))

@Good-Morning · 07.10.2013, 16:52

Далее. Попробую объяснить, почему я назвал это "линзой". Вот мы видим некоторые значения (взятые с потолка) функции:

Кликните здесь для просмотра всего текста

0.29345459
0.99426342
0.2
0.739486
0.10857
0.638892

При умножении, эти значения не изменяются, а просто пропорционально увеличиваются - как в обычной оптической лупе:

Кликните здесь для просмотра всего текста

2.9345459
9.9426342
2
7.39486
1.0857
6.38892

Но это не особо важно. Далее попробуем к нашей новой функции (RND*10) прибавить что-нибудь. Как думаете, что получится?

@sveta18 · 07.10.2013, 16:57 **[ТС]**

0 или 1?

@Good-Morning · 07.10.2013, 17:19

Если Вы хотите узнать, какой диапозон будет выдавать функция RND делайте следующее - с ее минимальным значением (0) делайте все операции, что и с функцией; с ее максимумом (1) тоже самое. Например:
40+30*RND
40+30*0=40
40+30*1=70
Значит диапозон 40-70. Еще вариант, но он работает в очевидных случаях: то, на что умножаем - это диапозон, а то, что слагаем - то смещение. Например:
40+30*RND
Диапозон - 30, смещение - 40. Это значит, что разброс минимума и максимума составляет 30, а смещение этого промежутка от нуля - 40. Полное понимание, конечно, приходит с опытом - если что-то не понимаете, не волнуйтесь - поэксперементируйте, и все станет ясным.
Теперь попробуйте Вы:
Назовите диапозон функции: 20+15*RND (пользуйтесь первым способом.)

@sveta18 · 07.10.2013, 20:01 **[ТС]**

20+15*RND*0=20
20+15*RND*1=35

Добавлено через 1 минуту

диапазон 15,смещение 20

@Good-Morning · 07.10.2013, 20:05

Правильно =). К сожалению, у меня сейчас много работы - давайте отложим опять на завтра?

@sveta18 · 07.10.2013, 20:09 **[ТС]**

Сообщение от Good-Morning

давайте отложим опять на завтра

вот эти все задания по GW уже на этой неделе отдавать надо(
где-то к четвергу...

Добавлено через 32 секунды
мне бы поскорее надо...
а так у меня вот еще диаграммы там...их то я уже не успею...

@Good-Morning · 07.10.2013, 20:10

На завтра у меня работы не так много запланированно - надеюсь, все успеем

@sveta18 · 07.10.2013, 20:13 **[ТС]**

Сообщение от Good-Morning

надеюсь, все успеем

я тоже на это надеюсь... мне бы вот завтра разобраться с двумя задачами по этим подпрограммам...И там еще вот одна задачка остается

Может сейчас хоть с этой разберемся...)а завтра будем со второй разбираться)))?

@Good-Morning · 07.10.2013, 20:17

Не по теме:

Сейчас у меня совсем времени нет - сам еле успеваю... Если успеваю. :( Меня просто завалили работой - и то нужно сделать и это, даром, что я половину забыл...:wall::scratch:

@sveta18 · 08.10.2013, 14:30 **[ТС]**

Ну ладненько) Что ж подожду до завтра) Надеюсь завтра разберемся с 2 задачами)

Добавлено через 18 часов 8 минут
ну что продолжим?)

@Good-Morning · 08.10.2013, 18:34

Хоть мне и немного делать, но все же я пока занят...

@sveta18 · 08.10.2013, 18:36 **[ТС]**

Сообщение от Good-Morning

Хоть мне и немного делать, но все же я пока занят

а когда освободитесь?

@Good-Morning · 08.10.2013, 18:50

Надеюсь скоро

Вы часик можете подождать?

@sveta18 · 08.10.2013, 18:53 **[ТС]**

Сообщение от Good-Morning

Вы часик можете подождать?

попробую...

@Good-Morning · 08.10.2013, 19:29

Я, вроде, освободился. На чем мы остановились?

@sveta18 · 08.10.2013, 19:46 **[ТС]**

Сообщение от sveta18

20+15*RND*0=20
20+15*RND*1=35
Добавлено через 1 минуту
диапазон 15,смещение 20

вот я ответила на ваш вопрос

Добавлено через 2 минуты
Так как мне начать задачу?

@Good-Morning · 08.10.2013, 19:49

Ладно, чтобы не тратить время, продолжу объяснения.
Мы составили функцию, что выдает нужные нам значения - 50+RND*10. Даже не так - Сказано, чтобы числа были целыми - производим над нашей функцией операцию отсечения дроби - fix(50+rnd*10). Как теперь работать с полученным результатом? Очень просто - мы хотим, чтобы x равнялась произвольному целому числу интервала 50-60.

QBasic/QuickBASIC
1
x=FIX(50+RND*10)

Скажу также, что в лучшем виде это выглядит так:

QBasic/QuickBASIC
1
x=FIX(k+RND*(l-k))

Возможно, Вы даже догадаетесь почему.

@sveta18 · 08.10.2013, 20:00 **[ТС]**

так ну это пока понятно

Добавлено через 4 минуты
значит мне все время нужно писать вроде этой формулы?

x=FIX(k+RND*(l-k))

@Good-Morning · 08.10.2013, 20:03

Замечательно. Надо также сказать, что функция выдает новое значение на каждый ее вызов, т.е.

QBasic/QuickBASIC
1
2
PRINT RND
PRINT RND

Программа выдаст разный результат в данный строках.
Ладно. Далее по алгоритму:

Сообщение от Условие

Вычислять 20 раз

Значит, верхних цикл будет

QBasic/QuickBASIC
1
2
FOR i=0 TO 19
NEXT i

Сообщение от Условие

сколько раз сумма из пяти случайных чисел

Вызывать функцию 5 раз:

QBasic/QuickBASIC
1
2
3
FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
NEXT j

Вычислим сумму:

QBasic/QuickBASIC
1
sum=sum+a(j)

Это строка стоит в том же цикле, что и вызов функции, т.е. сумма инкрементируется каждым новым значением слагаемого.
Осталось расставить все PRINT в программе (как все точки над i) и организовать все строки в рабочий код. Попробуйте.

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96

	Подпрограммы 05.10.2013, 23:09. Показов 3631. Ответов 54 Метки нет (Все метки) 1. Написать программу, определяющую, сколько раз сумма из пяти случайных чисел (слагаемых) превысила заданное число N. Слагаемые выбираются из целых чисел интервала [K,L]. Сумму вычисляют 20 раз. Каждый раз печатать слагаемые и сумму. N=100 K=50 L=60 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	07.10.2013, 16:43 [ТС]
	Все поняла))) 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	07.10.2013, 16:52
	Далее. Попробую объяснить, почему я назвал это "линзой". Вот мы видим некоторые значения (взятые с потолка) функции: Кликните здесь для просмотра всего текста 0.29345459 0.99426342 0.2 0.739486 0.10857 0.638892 При умножении, эти значения не изменяются, а просто пропорционально увеличиваются - как в обычной оптической лупе: Кликните здесь для просмотра всего текста 2.9345459 9.9426342 2 7.39486 1.0857 6.38892 Но это не особо важно. Далее попробуем к нашей новой функции (RND*10) прибавить что-нибудь. Как думаете, что получится? 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	07.10.2013, 16:57 [ТС]
	0 или 1? 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	07.10.2013, 17:19
	Если Вы хотите узнать, какой диапозон будет выдавать функция RND делайте следующее - с ее минимальным значением (0) делайте все операции, что и с функцией; с ее максимумом (1) тоже самое. Например: 40+30RND 40+300=40 40+301=70 Значит диапозон 40-70. Еще вариант, но он работает в очевидных случаях: то, на что умножаем - это диапозон, а то, что слагаем - то смещение. Например: 40+30RND Диапозон - 30, смещение - 40. Это значит, что разброс минимума и максимума составляет 30, а смещение этого промежутка от нуля - 40. Полное понимание, конечно, приходит с опытом - если что-то не понимаете, не волнуйтесь - поэксперементируйте, и все станет ясным. Теперь попробуйте Вы: Назовите диапозон функции: 20+15*RND (пользуйтесь первым способом.) 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	07.10.2013, 20:01 [ТС]
	20+15RND0=20 20+15RND1=35 Добавлено через 1 минуту диапазон 15,смещение 20 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	07.10.2013, 20:05
	Правильно =). К сожалению, у меня сейчас много работы - давайте отложим опять на завтра? 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	07.10.2013, 20:10
	На завтра у меня работы не так много запланированно - надеюсь, все успеем 0

@Good-Morning
	07.10.2013, 20:17
	Не по теме: Сейчас у меня совсем времени нет - сам еле успеваю... Если успеваю. :( Меня просто завалили работой - и то нужно сделать и это, даром, что я половину забыл...:wall::scratch: 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 14:30 [ТС]
	Ну ладненько) Что ж подожду до завтра) Надеюсь завтра разберемся с 2 задачами) Добавлено через 18 часов 8 минут ну что продолжим?) 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	08.10.2013, 18:34
	Хоть мне и немного делать, но все же я пока занят... 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	08.10.2013, 18:50
	Надеюсь скоро Вы часик можете подождать? 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	08.10.2013, 19:29
	Я, вроде, освободился. На чем мы остановились? 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 20:00 [ТС]
	так ну это пока понятно Добавлено через 4 минуты значит мне все время нужно писать вроде этой формулы? x=FIX(k+RND*(l-k)) 0