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

@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

Новые блоги и статьи Все статьи Все блоги /
Скрипты 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, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

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

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