Question

Имеются сведения о программах телепередач на неделю: день недели, время, канал, вид и название телепередачи.
а) Получить названия телепередач, которые идут в указанный день в указанный промежуток времени.
б) Получить названия телепередач, которые идут в указанный день на указанном канале.
в) Получить информацию об указанном фильме. Если он отсутствует в телепрограмме, то вывести на экран сообщение «Такой передачи на данной неделе нет».
г) На каком канале и в какое время будет транслироваться развлекательная передача «Поле чудес»?
д) Выяснить, есть ли передача, транслирующаяся больше одного раза в одно и то же время. Если есть, то какая?
е) Получить названия телепередач, транслирующихся в указанное время на разных каналах.
ж) Получить название самой продолжительной передачи, которая идет в понедельник.
з) Получить информацию на каждый день недели о передаче, которая завершает эфир.

Answer 1

а)
const
  n=2;
type
  ped=record
    nazv:string[128];
    den:string[16];
    vr:string[5]; // '12.00'
    channel:string[128];
  end;
var
  tv:array[1..n] of ped;
  i:integer;
  std,stvr:string;
begin
  for i:=1 to n do
    begin
      write('Введите название телепредачи: ');  readln(tv[i].nazv);
      write('Введите день телепредачи: ');  readln(tv[i].den);
      write('Введите время телепредачи: ');  readln(tv[i].vr);
      write('Введите название канала: ');  readln(tv[i].channel);
    end;
  write('Введите день эфира: ');  readln(std);
  write('Введите время эфира: '); readln(stvr);
  for i:=1 to n do
    begin
      if (tv[i].den=std) and (tv[i].vr=stvr) then
        begin
          write('День выхода телепредачи: ', tv[i].nazv,'на канале: ',tv[i].channel,' - ',tv[i].den, ', время выхода - ',tv[i].vr);
          writeln;
        end;
    end;
  readln;
end.