Паскаль.
Дан файл TV содержащий сведения о программах телепередач на неделю: день недели, время, канал, вид и название телепередачи. Определить:
Есть ли передача, транслирующаяся больше одного раза в одно и тоже время, и если есть то какая?

Предыдущий
вопрос Следующий
вопрос

Для решения данной задачи можно создать словарь, в котором ключом будет время и день недели трансляции, а значением будет список передач, транслирующихся в это время. Затем можно пройтись по словарю и найти все случаи, когда в одно и то же время и день недели транслируется больше одной передачи.

Пример кода на Python:

# Открываем файл TV и считываем данные
with open('TV.txt', 'r') as file:
data = file.readlines()
# Создаем словарь для хранения передач в определенное время и день недели
tv_schedule = {}
for line in data:
day, time, channel, kind, name = line.strip().split(',')
key = (day, time)
if key in tv_schedule:
tv_schedule[key].append(name)
else:
tv_schedule[key] = [name]
# Ищем передачи, транслирующиеся больше одного раза в одно и то же время
duplicate_shows = []
for key, value in tv_schedule.items():
if len(value) > 1:
duplicate_shows.append((key, value))
# Выводим найденные передачи
if len(duplicate_shows) > 0:
print("Повторяющиеся передачи:")
for dup in duplicate_shows:
print(f"День: {dup[0][0]}, время: {dup[0][1]}, передачи: {', '.join(dup[1])}")
else:
print("Нет передач, транслирующихся больше одного раза в одно и то же время")

Данный код считывает информацию из файла TV.txt, формирует словарь с расписанием телепередач и затем проверяет наличие повторяющихся передач в одно и то же время. Если такие передачи есть, они выводятся на экран.