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

172

409

Посмотреть ответы 2

Ответы на вопрос:

Mmaal

Информатика

4,7(85 оценок)

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! 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.(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 нтв фильм кин-дза-дза!

Гена102

Информатика

4,4(95 оценок)

переменная а.

переменная b.

b=0.

a=0.

повторять пока b< 11

начало

а=а+t[1: b]*c[1: b].

увеличить b на 1.

конец

a - общая стоимость всех покупок.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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