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

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

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

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

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

так что ли?
FOR i=0 TO 19
NEXT i
PRINT RND
FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
NEXT j
sum=sum+a(j)
PRINT RND

@Good-Morning · 08.10.2013, 20:16

Нет - не так. Большой Вам совет - когда пишите программу, попытайтесь поместить себя на местно компьютера - чтобы Вы на его месте сделали?
Возьмем, к примеру, Ваш код:
Выполним первые две строки:

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

FOR i=0 TO 19
NEXT i

Мы 20 раз ничего не сделали. Единственное, что изменилось - переменная i, в нашем случае счетчик итераций (повторений) теперь равен 19 (т.к. никто его не изменял после выполнения цикла).
Выполняем далее:

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

PRINT RND

Печатаем произвольное число от нуля до одного.

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

FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
NEXT j

Находим 5 слагаемых. Заметим, что счетчик j сейчас равен 4 после выполнения цикла.

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

sum=sum+a(j)

Сложим переменную sum с последним слагаемым (последним, т.к. j-то у нас равен 4).

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

PRINT RND

Напечатаем произвольное число от нуля до единицы. Попробуете исправить ошибки?

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

PRINT RND
FOR i=0 TO 19
NEXT i
PRINT RND
FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
sum=sum+a(j)
NEXT j

так?

@Good-Morning · 08.10.2013, 20:22

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

FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
sum=sum+a(j)
NEXT j

Вы определенно делаете успехи.
Подумайте над строками

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

FOR i=0 TO 19
NEXT i

Ведь здесь опять компьютер старательно, 20 раз (!) ничего не делает.

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

Хм.. я думала,что нужно в начале PRINT RND ввести?

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

Подумайте над строками
FOR i=0 TO 19
NEXT i

их что местами поменять?или PRINT где написать?

@Good-Morning · 08.10.2013, 20:28

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

их что местами поменять?

Нам вообще не нужна нигде в программе функция "=rnd" Мы уже получили то, что нам нужно - правильная функция стоит на своем законном месте - в цикле for i=0 to 4. Ладно - попробуйте пока не выводить каких-либо результатов. Просто вычисляйте сумму.

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

ну и?

Добавлено через 5 минут
с бейсике мне сумму вычислить?

Добавлено через 1 минуту
покажите мне код как должен быть пожалуйста) и я пойму уж точно.этот верхний цикл

@Good-Morning · 08.10.2013, 20:44

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

ну и?

20 раз компьютер должен вычислять сумму, т.е. выполнять весь написанный алгоритм:

QBasic/QuickBASIC
1
2
3
4
5
6
7
FOR i=0 TO 19
sum=0
FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
sum=sum+a(j)
NEXT j
NEXT i

Добавим вывод значений:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
FOR i=0 TO 19
sum=0
PRINT "слагаемые:"
FOR j=0 TO 4
a(j)=FIX(k+RND*(l-k))
sum=sum+a(j)
PRINT a(j)
NEXT j
PRINT "сумма равна"sum
IF sum>n THEN PRINT t=t+1
NEXT i
PRINT "Превышений значения -"t

Вот, в общем, готовый код. Осталось задать значение констант (k,l,n) и произвести пробный запуск на предмет ошибок.

Добавлено через 2 минуты
Т.е. верхним циклом я называю тот цикл, что включает в себя все остальное.

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

У меня почему-то одни нули везде высветились

@Good-Morning · 08.10.2013, 21:13

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

Осталось задать значение констант (k,l,n)

вот.

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

таак...а где их задавать?
PRINT "слагаемые:" здесь?

Добавлено через 20 минут
или нужно написать
N=100
k=50
l=60

@Good-Morning · 08.10.2013, 21:43

Второй вариант.

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

так а их в начале самом писать ведь?

@Good-Morning · 08.10.2013, 22:19

Именно.

@sveta18 · 08.10.2013, 22:50 **[ТС]**

ну- ка попробуем.

Добавлено через 10 минут
оой. написала пишет ошибку(((

Добавлено через 11 минут
А все заработало))))

осталось разобраться со 2 задачей

Добавлено через 1 минуту
http:///www.cyberforum.ru/basic/thread970571.html

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого 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) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

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

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

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 20:08 [ТС]
	так что ли? FOR i=0 TO 19 NEXT i PRINT RND FOR j=0 TO 4 a(j)=FIX(k+RND*(l-k)) NEXT j sum=sum+a(j) PRINT RND 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 20:20 [ТС]
	PRINT RND FOR i=0 TO 19 NEXT i PRINT RND FOR j=0 TO 4 a(j)=FIX(k+RND*(l-k)) sum=sum+a(j) NEXT j так? 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 20:42 [ТС]
	ну и? Добавлено через 5 минут с бейсике мне сумму вычислить? Добавлено через 1 минуту покажите мне код как должен быть пожалуйста) и я пойму уж точно.этот верхний цикл 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 20:56 [ТС]
	У меня почему-то одни нули везде высветились 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 21:36 [ТС]
	таак...а где их задавать? PRINT "слагаемые:" здесь? Добавлено через 20 минут или нужно написать N=100 k=50 l=60 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	08.10.2013, 21:43
	Второй вариант. 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 22:18 [ТС]
	так а их в начале самом писать ведь? 0

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	08.10.2013, 22:19
	Именно. 0

@sveta18 6 / 6 / 0 Регистрация: 14.09.2013 Сообщений: 96
	08.10.2013, 22:50 [ТС]
	ну- ка попробуем. Добавлено через 10 минут оой. написала пишет ошибку((( Добавлено через 11 минут А все заработало)))) осталось разобраться со 2 задачей Добавлено через 1 минуту http:///www.cyberforum.ru/basic/thread970571.html 0