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

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

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

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

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