Паскаль.Дан файл TV содержащий сведения о программках телепередач на неделю: день
Паскаль.
Дан файл TV содержащий сведения о программках телепередач на неделю: день недели, время, канал, вид и заглавие передачи. Найти:
Есть ли передача, транслирующаяся больше одного раза в одно и тоже время, и если есть то какая?
1 ответ
Artemka Mavlitov
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!
begin
// структура строчки
// денек время канал вид заглавие(возможно, многоречивое)
// цель: удалив "канал" (третье слово), отыскать совпадающие строчки
var ms:=ReadAllLines('TV.txt');
ms.PrintLines; // чтоб было понятно содержимое файла
Writeln;
var d:=ms.GroupBy(s-gt;(s.ToWords[:2]+s.ToWords[3:]).JoinIntoString(' '))
.Select(t-gt;(t.Key,t.Count)).Where(t-gt;t[1]gt;1).Select(t-gt;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-gt;t.ToWords.Take(2).JoinIntoString=key).Printlines;
Writeln
end
end.
Пример
Понедельник 09:00 1-ый Новинки Новости на Первом
Суббота 19:40 Первый Фильм Кин-дза-дза!
Среда Первый 07:15 НТВ Мульт Трое из Простоквашино
Четверг 19:40 1-ый Кинофильм Кин-дза-дза!
Вторник 09:00 Первый Новинки Новости на Первом
Понедельник 12:00 1-ый Новости Новости на Первом
Пятница 16:40 Наша родина-1 Мультфильм Трое из Простоквашино
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Среда 09:00 1-ый Новинки Новинки на Первом
Четверг 09:00 Первый Новинки Новинки на Первом
Суббота 19:40 НТВ Кинофильм Кин-дза-дза!
Суббота 19:40 1-ый Фильм Кин-дза-дза!
Суббота 19:40 Наша родина-1 Кинофильм Кин-дза-дза!
Суббота 19:40 НТВ Кинофильм Кин-дза-дза!
Внимание! Если программка не работает, обновите версию!
begin
// структура строчки
// денек время канал вид заглавие(возможно, многоречивое)
// цель: удалив "канал" (третье слово), отыскать совпадающие строчки
var ms:=ReadAllLines('TV.txt');
ms.PrintLines; // чтоб было понятно содержимое файла
Writeln;
var d:=ms.GroupBy(s-gt;(s.ToWords[:2]+s.ToWords[3:]).JoinIntoString(' '))
.Select(t-gt;(t.Key,t.Count)).Where(t-gt;t[1]gt;1).Select(t-gt;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-gt;t.ToWords.Take(2).JoinIntoString=key).Printlines;
Writeln
end
end.
Пример
Понедельник 09:00 1-ый Новинки Новости на Первом
Суббота 19:40 Первый Фильм Кин-дза-дза!
Среда Первый 07:15 НТВ Мульт Трое из Простоквашино
Четверг 19:40 1-ый Кинофильм Кин-дза-дза!
Вторник 09:00 Первый Новинки Новости на Первом
Понедельник 12:00 1-ый Новости Новости на Первом
Пятница 16:40 Наша родина-1 Мультфильм Трое из Простоквашино
Суббота 19:40 Россия-1 Фильм Кин-дза-дза!
Среда 09:00 1-ый Новинки Новинки на Первом
Четверг 09:00 Первый Новинки Новинки на Первом
Суббота 19:40 НТВ Кинофильм Кин-дза-дза!
Суббота 19:40 1-ый Фильм Кин-дза-дза!
Суббота 19:40 Наша родина-1 Кинофильм Кин-дза-дза!
Суббота 19:40 НТВ Кинофильм Кин-дза-дза!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов