Структура Case Опции

[Кирилл]

ПОМОГИТЕ пожалуйста написать прогу :

Корабль сначала шел по заданному курсу ( север, восток, юг, запад ). Затем его курс был изменен согласно заданному приказу ( вперед, вправо, назад, влево ). Определить новый курс корабля.

Вх. данные: k - курс корабля
p - приказ капитана

Вых. данные: nk - новый курс

[YnickYM]

......................................

{n-север, s-юг, w-запад, e-восток; vd-вперёд, nd-назад, vl-влево, vp-вправо}
case of k of n: case p of vd: nk:=n; 
                                    nd: nk:=s;   
                                    vl: nk:=w;
                                    vp: nk:=e;
                                    end;
                  s: case p of  vd: nk:=s;
                                     nd: nk:=n;
                                     vl: nk:=e;
                                     vp: nk:=w;
                                     end;
                   w: case p of vd: nk:=w;
                                     nd: nk:=e;
                                     vl: nk:=s;
                                     vp: nk:=n;
                                     end;
                    e: case p of vd: nk:=e;
                                      nd: nk:=w;
                                      vl: nk:=n;
                                      vp: nk:=s;
                                      end; 

..............................................

М

Теги !