CASE

[drikusik#]

Локатор ориентирован на одну из сторон ("С"- север, "З"- запад, "Ю"- юг, "В"- восток) и может принимать 3 цифровые команды поворота:
1 - поворот на лево
-1 - поворот на право
2 - поворот на 180 градусов
Дан символ С - исходная ориентация локатора. И целые числа N1 и N2 - две посланные команды. Вывести ориентацию локатора после выполнения этих команд.

помогите пожалуйста
на дельфи

[ManU]

если ничего не напутал то так

Way:=6;
way:=way+n1+n2;
case way mod 4:
0:    showmessage('Юг');
1:    showmessage('Восток');
2:    showmessage('Север');
3:    showmessage('Запад');
end;

[drikusik#]

не смогли бы вы написать по подробнее пожалуйста, потому что ничего в этом не понимаю:-((

[Nowar]

procedure changeOrientation(C: char; N1,N2: integer);
var
  orientation: integer;
begin
  case C of
    'С': orientation:=0;
    'З': orientation:=1;
    'Ю': orientation:=2;
    'В': orientation:=3;
    else begin
           ShowMessage('Неизвестная ориентация');
           exit;
         end;
  end;
  orientation:=(orientation+4+N1+N2) mod 4;
  case orientation of
    0:  ShowMessage('Север');
    1:  ShowMessage('Запад');
    2:  ShowMessage('Юг');
    3:  ShowMessage('Восток');
  end;
end;

[ilnar]

Отправь пожалуйста готовую, если можно!!!((((((((