Имеются сведения о программах телепередач на неделю: день недели, время, канал,

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

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


Последние вопросы

Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт