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

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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. 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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

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