Задачка интересная, Задачка с применением 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 17:00

[SLAX]

И в той статье есть одно различие там есть два входніх данных исходная ориентация, приказ капитана.
А у меня иходная ориентация и две команды, то есть на выходе оно мне говорит локатор повернуля N1=Юг N2=Запад,
То есть Юго Запад.

var c:char; loc:integer;
...
readln( c )
case c of
  'С':loc:=0;
  'Ю':loc:=2;
  'З':loc:=3;
  'В':loc:=1;
  else writeln('Нераспознано положение локатора');
end;
 

Вот я понял как сделать кейс для исходной ориентации , но как его скрепить с входніми командами, не пойму.
И как то есть для локатора 0,1,2,3 приедется писать по 2 кейса

Или как , мне кажется что тут можно как то спомощью арифметических операций все это провести.
Плиз подскажите

Сообщение отредактировано: volvo - 1.02.2007 23:07