Задачка интересная, Задачка с применением Case Опции

[SLAX]

И вот сама задачка.

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

ну вот пример как я делал только не доделал

program case;
var N1,N2:integer;
StN1:string[150];
StN2:string[150];
begin
writeln ('Допустим локатор ориентирован исходно на восток и тогда');
readln(N1,N2);
case N1 of

1:StN1:=('');
-1:StN1:=('');
2:StN1:=('');
end;

case N2 of 

1:StN2=('');
-1:StN2:=('');
2:StN2:=('');
end;
writeln('1= ',stn1,' 2= ',stn2);
readln;
end. 

 

В єтой программе я не могу понять как сделать что пользователь вводил исходное значение локатора,
не пойму скольже тогда будет ветвей кейса.

Искал у вас на форуме и не нашел похожей , подскажите пожалуйста. как написать блок схема.
Ну знаете там вот пример 1) входніе данные
2)блок вывода
3) блок ввода
4) блок сравения да----------------------------
нет |
| |
| то тогда какиета действия.
end.

Только все єто мне надо для кейс.

P.S. Пожалуйтса если не трудно могли бы выложить как тут надо проводить тогда сравненние в коде ну или хотя бы структура как это все организовать.

Сообщение отредактировано: SLAX - 13.12.2006 21:00