Индивидуальные задания

1. Поля шахматной доски характеризуются записью

Type

Pole=record

           Ver: 1..8;                 {вертикальные координаты}

             Hor: (a,b,c,d,e,f,g,h); {горизонтальные координаты}

           end;

Вывести шахматную доску, пометив крестиками все поля, которые «бьет» ферзь, стоящий на поле с координатами Ver_i и Hor_i, и ноликами все остальные поля.

2. Поля шахматной доски характеризуются записью (см. задание 1)

Var Figura:Pole;

Вывести сообщение может ли конь за один ход перейти с поля Figura_i на поле Figura_j.

3. Type

Karta=record

              m: (piki,trefi,bubni,chervi);                                            {масть}

              d:(shest,sem,vosem,devjat,desjat,valet,dama,korol,tuz); {достоинство}

           end;

Var k1,k2:Karta;

Вывести сообщение «бьет» ли карта k1, карту k2, с учетом того, что масть m_i   является козырной.

4. В магазине формируется список лиц, записавшихся на покупку товара повышенного спроса. Каждая запись этого списка содержит: порядковый номер, Ф.И.О., домашний адрес покупателя и дату постановки на учет. Удалить из списка все повторные записи, проверяя Ф.И.О. и домашний адрес.