Дан символ C — исходное направление робота и целое число N — посланная ему команда. Вывести направление робота после выполнения полученной команды — Pascal(Паскаль)

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

Program Case10;

Var
  N: Integer;
  C: Char;

Begin
  WriteLn('Введите направление («С» — север, «З» — запад, «Ю» — юг, «В» — восток):');
  ReadLn(C);
  WriteLn('Введите команду (0 — продолжать движение, 1 — поворот налево, -1 — поворот направо):');
  ReadLn(N);
  Case C Of
    'С':
      Write('направление - север, ');
    'З':
      Write('направление - запад, ');
    'Ю':
      Write('направление - юг, ');
    'В':
      Write('направление - восток, ');
  End;

  Case N Of
    0:
      WriteLn('продолжает движение');
    1:
      WriteLn('повернул налево');
    -1:
      WriteLn('повернул направо');
  End;

End.

Leave a Comment

2 + 3 =