Вопрос по информатике:
Паскаль.
Дан файл TV содержащий сведения о программах телепередач на неделю: день недели, время, канал, вид и название телепередачи. Определить:
Есть ли передача, транслирующаяся больше одного раза в одно и тоже время, и если есть то какая?
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.03.2018 08:41
- Информатика
- remove_red_eye 18619
- thumb_up 35
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
begin
// структура строки
// день время канал вид название(возможно, многословное)
// цель: удалив "канал" (третье слово), найти совпадающие строки
var ms:=ReadAllLines('TV.txt');
ms.PrintLines; // чтобы было понятно содержимое файла
Writeln;
var d:=ms.GroupBy(s->(s.ToWords[:2]+s.ToWords[3:]).JoinIntoString(' '))
.Select(t->(t.Key,t.Count)).Where(t->t[1]>1).Select(t->t[0]);
if d.Count=0 then Writeln('Искомые передачи отсутствуют')
else
foreach var s in d do begin
var key:=s.ToWords.Take(2).JoinIntoString;
ms.Where(t->t.ToWords.Take(2).JoinIntoString=key).Printlines;
Writeln
end
end.
Пример
Понедельник 09:00 Первый Новости Новости на Первом
Суббота 19:40 Первый Фильм Кин-дза-дза!
Среда Первый 07:15 НТВ Мультфильм Трое из Простоквашино
Четверг 19:40 Первый Фильм Кин-дза-дза!
Вторник 09:00 Первый Новости Новости на Первом
Понедельник 12:00 Первый Новости Новости на Первом
Пятница 16:40 Россия-1 Мультфильм Трое из Простоквашино
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Среда 09:00 Первый Новости Новости на Первом
Четверг 09:00 Первый Новости Новости на Первом
Суббота 19:40 НТВ Фильм Кин-дза-дза!
Суббота 19:40 Первый Фильм Кин-дза-дза!
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Суббота 19:40 НТВ Фильм Кин-дза-дза!
- 08.03.2018 10:08
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.