Не розбирусь задачей

[Andrey770]

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


вот код, но он не доработан, дальше не вооброжу что писать
подкиньте пару идей))

program one;
uses crt;
var x,y:integer;

begin
clrscr;
writeln('локатор ориентован на север ');

writeln('локатор принемает команды: ');

writeln(''1(поворот налево) -1(поворот направо) 2(поворот на 180 градусов));
writeln('                  введите команду локатору*: ');
readln(x);


if x=-1 then
writeln('локатор ориентован на Запад');
if x=1 then
writeln('локатор ориентован на Восток');
if x=2 then
writeln('локатор ориентован на Юг');
readln;
end.

[__STDC__]

Как вариант можно как-нибудь так сделать:

var
	ch : integer;
	x : real;
	y1, y2 : integer;
BEGIN
	ch := 0;
	x := pi/2;
	writeln('North');
	while (true) do begin
		writeln('Enter command: ');
		readln(ch);
		if (ch = -1) then 
			x := x - pi/2
		else if (ch = 1) then 
			x := x + pi/2
		else if (ch = 2) then 
			x := x + pi
		else break;
		
		y1 := round(sin(x));
		y2 := round(cos(x));
		
		if ((y1 = 1) and (y2 = 0)) then
			writeln('North');
		if ((y1 = 0) and (y2 = 1)) then
			writeln('East');
		if ((y1 = -1) and (y2 = 0)) then
			writeln('South');
		if ((y1 = 0) and (y2 = -1)) then 
			writeln('West');
	end;
END.

[Andrey770]

спасибо сейчас буду что то думать))

[__STDC__]

Сообщение от Andrey770

спасибо сейчас буду что то думать))

в смысле думать? я готовое решение дал.. или пояснить нужно?

[Andrey770]

да, если не трудно
за что отвечает это

y1 := round(sin(x));
y2 := round(cos(x));
?

[__STDC__]

Сообщение от Andrey770

да, если не трудно
за что отвечает это

y1 := round(sin(x));
y2 := round(cos(x));
?

хм.. Программа построена на том факте, что возможно 4 случая ориентировки локатора.. т.е. 4 направляющих вектора с координатами {1,0}, {0,1}, {-1,0},{0,-1}
Соответственно, в приведенных выше строках вычисляются координаты этих самых направляющих векторов..

[Andrey770]

все понятно, разобрался
спасибо !!!
очень помогли

[phomm]

Совсем недавно писал вот что :

procedure DestToCoordDelta(aind: byte; var ay, ax: shortint);
begin
if aind not in [0..7]
  then bedin
  ax := 0;
  ay := 0;
  end;
ay := round(sin(aind*pi/4));
ax := round(cos(aind*pi/4));
end;

Выдает дельту координат для 8 (от 0 до 7) направлений, соответственно единичной окружности. Направление зависит от принятых программистом в программе системы направлений осей Х, У , при чём во всей программе надо сие соблюдать, во избежание косяков. Если экранная (0/0 - верх левый угол) то обход номеров направлений по часовой стрелке, если координатная (0/0 нижний левый угол), то против часовой

[Andrey770]

Спасибо за помощь phomm)