Задача на Паскаль

[WitaliG]

Здравствуйте! Решил задачу по теме «оператор выбора», но очень сомневаюсь, что я правильно решил. Посмотрите, пожалуйста, код и подскажите правильный вариант.

Case10. Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко¬манды: 0 — продолжать движение, 1 — поворот налево, —1 — поворот направо. Дан символ C — исходное направление робота и целое число N — посланная ему команда. Вывести направление робота после выполнения полученной команды.

var
    N :integer;
begin
    readln(N);
    case N of
    1 : writeln('Движение на Север');
    2 : writeln('Движение на Запад');
    3 : writeln('Движение ни Восток');
    4 : writeln('Движение на Юг')
    end; readln end.

С уважением Виталий.

From Stilet; Не вижу уважения. Почему код не выделен был?

[D@rkD@iver]

не совсем правильно, тебе еще надо учесть начальное направление

[cheef]

program yy;
var
N :integer;
begin
readln(N);
case N of
0: writeln('Движение на Север');
1: writeln('Движение на Запад');
-1: writeln('Движение на Восток')
else writeln('Направление задано не правильно!');
end;
readln; 
end.

[Stilet]

1 — поворот налево, —1 — поворот направо.

А робот поймет куда ему поворачивать если получит "1"?
Ябы на месте робота завертелся на месте.

[Serge_Bliznykov]

насколько я могу судить, код (с) cheef (пост #3 ) верно решает поставленную задачу.

[WitaliG]

Спасибо cheef код хорошо работатет, но возникает вопрос: "А как же робот будет двигаться на Юг".
Если не трудно ответьте пожалуйста.

[Serge_Bliznykov]

но возникает вопрос: "А как же робот будет двигаться на Юг".

попробую ответить..

Вы условие задачи внимательно читали?

принимать три цифровые ко¬манды: 0 — продолжать движение, 1 — поворот налево, —1 — поворот направо... C — исходное направление робота и целое число N — посланная ему команда.

Робот стоит лицом на север и вы ему подаёте команду.
Команда может быть - идти прямо, или повернуть (один раз) - налево или команда повернуть направо.
Заметьте, что "развернуться", такой команды нет.
Скажите, после какой (одной команды) робот окажет спиной к Северу (и лицом на Юг) ?
Ответ - такое невозможно.
Нужно как минимум ДВЕ команды поворота.

[WitaliG]

Спасибо Serge_Bliznykov