Delphi

[~ Veronika ~]

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

[BDA]

Обозначим:
север-north-N
восток-east-E
юг-south-S
запад-west-W

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  s='NESW';

var
  c:char;
  b,n,i,k:integer;


begin
  write('Vvedite napravlenie: ');
  readln(c);
  b:=pos(c,s)-1;
  write('Vvedite kol-vo komand: ');
  readln(n);
  for i:=1 to n do
  begin
    read(k);
    case k of
    2:b:=(b+3) mod 4;//b-1
    3:b:=(b+1) mod 4;
    end;
  end;
  writeln;
  write('Napravlenie: ',s[b+1]);
  readln;
  readln;
end.