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

[Кирилл]

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

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

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

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

[YnickYM]

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

Хорошо, учту.

[Гость]

Хорошо, учту.

А можно попросить всю программу?!

[YnickYM]

А можно попросить всю программу?!

Yes, of course

var k,p,kn:char;
begin
  readln(k,p);
{n-север, s-юг, w-запад, e-восток; vd-вперёд, nd-назад, vl-влево, vp-вправо}
case 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;
end;
writeln(kn);
readln;
end.
 

Сообщение отредактировано: YnickYM - 30.11.2006 23:49