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

@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) и организовать все строки в рабочий код. Попробуйте.

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера 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) активировать флаг. . .

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

	Подпрограммы 05.10.2013, 23:09. Показов 3685. Ответов 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