Вывести список уроков по дням в соответствии с расписанием

@ReginaSs · Регистрация: 15.05.2016

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

Дано расписание занятий в школе на неделю (6 дней, 6 уроков в день, N предметов). Вывести список предметов с указанием дней недели и числа уроков по дням в соответствии с расписанием. Вывести также названия предметов, количество уроков, по которым больше заданного числа К. Выводимые данные отсортировать по алфавиту названий предметов. Исходная информация вводится с клавиатуры.

echs · 24.05.2016, 15:20

ReginaSs
Поясните, пожалуйста, как это должно выглядеть
например для понедельника.

@ReginaSs · 24.05.2016, 16:03 **[ТС]**

geh, то же самое, как и раньше. Но чтобы не сразу вводить для каждого дня уже готовые предметы и их названия
А чтобы было рандомно

echs · 24.05.2016, 17:22

Этот дополнительный код надо вставить в программу
1. Вместо старых операторов DATA будут новые.
2. И выкинуть старый код в строках 19-22 (старая программа)
3. На его месте новый код строки 8-16 (новые строки этой программы)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DIM U2(1 TO 13) AS STRING
DIM p AS INTEGER
 
DATA "русский язык","английский язык","физическая культура"
DATA "математика","геометрия","информатика","физика","химия"
DATA "биология","обществознание","литература","история","ОБЖ"
 
FOR i = 1 TO 6
   READ U2(i)
NEXT i
 
FOR i = 1 TO 6
FOR j = 1 TO 6
   p = 13 * RND + .5
   U(i, j) = U2(p)
NEXT j, i

Добавлено через 2 минуты
Забыл добавить оператор
RANDOMIZE TIMER

@ReginaSs · 24.05.2016, 19:48 **[ТС]**

geh, а можно еще это "Вывести также названия предметов, количество уроков, по которым больше заданного числа К"пусть К равно 3
Только не в этой, а в первой программе.
Это новая у меня не работает

echs · 24.05.2016, 20:11

ReginaSs
В первой программе (там где список уроков) вы можете
сами заменить один урок на другой. То есть какое вам
нужно расписание - такое и делайте.
А что с последней программой? Выдает ошибку?

@ReginaSs · 25.05.2016, 15:53 **[ТС]**

geh, да. Выдает ошибку
В первом мне нужно отдельно вывести предметы, количество которых за неделю больше трех(К=3).

echs · 25.05.2016, 16:13

ReginaSs
Что-то я не нашел нашу переменную K.
(у меня сотни программ, половину выбросил...)
Хотел проверить в чем там дело...
А какую ошибку выдает программа?

@ReginaSs · 27.05.2016, 10:38 **[ТС]**

geh, помогите с заданием
По введённой совокупности сочетаний символов, разделённых знаками "," (запятая), составить и вывести отдельные описания слов: "ЦЕЛЫЕ ЧИСЛА - чётные, нечётные"; "ДРОБНЫЕ ЧИСЛА - по числу знаков после десятичной точки"; "СЛОВА - по числу букв". Вывести комментарии по всем сочетаниям с учётом падежей (именительного, родительного, дательного, творительного, предложного). Исходная информация вводится с клавиатуры.

echs · 27.05.2016, 11:23

ReginaSs
Я так понял задание. Если вводится число, то
определить его тип и четность (для целых)
А как можно определить падеж?
Что-то я не понял про комментарии. Нельзя ли привести
небольшой пример...

@ReginaSs · 27.05.2016, 11:46 **[ТС]**

geh, я сама не поняла ничего.
Сделайте так,как вы думаете пожалуйста

echs · 27.05.2016, 13:20

ReginaSs
Написал программу. Она работает так...
Вы вводите строку символов, чисел и слов, разделенных
запятой. ВНИМАНИЕ. Строка должна быть заключена в
КАВЫЧКИ. В противном случае бейсик заставит вас все
делать снова.
примечание:
Посмотрите на работу программы. Если что надо
изменить или добавить код, то это наверное уже
несложно...

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
CLS
DIM t AS STRING
DIM b AS STRING
DIM y AS STRING
DIM z AS STRING
 
INPUT "TEXT = "; t
 
z = "1234567890"
t = "," + t + ","
 
k1 = 1
DO
   k2 = INSTR(k1 + 1, t, ",")
   b = MID$(t, k1 + 1, k2 - k1 - 1)
   IF INSTR(b, ".") THEN
      PRINT b; " - DROBNOE CHISLO"
   ELSE
      y = RIGHT$(b, 1)
      IF INSTR(z, y) THEN
         IF VAL(y) MOD 2 THEN
            PRINT b; " - NECHETNOE CHISLO"
         ELSE
            PRINT b; " - CHETNOE CHISLO"
         END IF
      ELSE
         PRINT b; " - SLOVO"
      END IF
   END IF
   k1 = k2
LOOP UNTIL k2 = LEN(t)
END

Новые блоги и статьи Все статьи Все блоги /
Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .
Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39

	Вывести список уроков по дням в соответствии с расписанием 15.05.2016, 01:30. Показов 3633. Ответов 30 Метки нет (Все метки) Дано расписание занятий в школе на неделю (6 дней, 6 уроков в день, N предметов). Вывести список предметов с указанием дней недели и числа уроков по дням в соответствии с расписанием. Вывести также названия предметов, количество уроков, по которым больше заданного числа К. Выводимые данные отсортировать по алфавиту названий предметов. Исходная информация вводится с клавиатуры. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	24.05.2016, 15:20
	ReginaSs Поясните, пожалуйста, как это должно выглядеть например для понедельника. 0

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39
	24.05.2016, 16:03 [ТС]
	geh, то же самое, как и раньше. Но чтобы не сразу вводить для каждого дня уже готовые предметы и их названия А чтобы было рандомно 0

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39
	24.05.2016, 19:48 [ТС]
	geh, а можно еще это "Вывести также названия предметов, количество уроков, по которым больше заданного числа К"пусть К равно 3 Только не в этой, а в первой программе. Это новая у меня не работает 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	24.05.2016, 20:11
	ReginaSs В первой программе (там где список уроков) вы можете сами заменить один урок на другой. То есть какое вам нужно расписание - такое и делайте. А что с последней программой? Выдает ошибку? 0

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39
	25.05.2016, 15:53 [ТС]
	geh, да. Выдает ошибку В первом мне нужно отдельно вывести предметы, количество которых за неделю больше трех(К=3). 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	25.05.2016, 16:13
	ReginaSs Что-то я не нашел нашу переменную K. (у меня сотни программ, половину выбросил...) Хотел проверить в чем там дело... А какую ошибку выдает программа? 0

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39
	27.05.2016, 10:38 [ТС]
	geh, помогите с заданием По введённой совокупности сочетаний символов, разделённых знаками "," (запятая), составить и вывести отдельные описания слов: "ЦЕЛЫЕ ЧИСЛА - чётные, нечётные"; "ДРОБНЫЕ ЧИСЛА - по числу знаков после десятичной точки"; "СЛОВА - по числу букв". Вывести комментарии по всем сочетаниям с учётом падежей (именительного, родительного, дательного, творительного, предложного). Исходная информация вводится с клавиатуры. 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	27.05.2016, 11:23
	ReginaSs Я так понял задание. Если вводится число, то определить его тип и четность (для целых) А как можно определить падеж? Что-то я не понял про комментарии. Нельзя ли привести небольшой пример... 0

@ReginaSs 3 / 3 / 0 Регистрация: 15.05.2016 Сообщений: 39
	27.05.2016, 11:46 [ТС]
	geh, я сама не поняла ничего. Сделайте так,как вы думаете пожалуйста 0