2 готовые задачи по Программированию на тему Программирование на Pascal

1) Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые команды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот направо. Вывести направление робота после выполнения полученной команды.
Program Robot;
var str:string;
    c:char;
    k:integer;
    f:boolean;
begin
    write('Введите начальное направление (С, З, Ю, В): ');
    readln(str);
    while (str<>'С')and(str<>'З')and(str<>'Ю')and(str<>'В') do //считываем начальное положение,учитывая возможные ошибки входных данных
    begin
      write('Ошибка ввода! Введите начальное направление (С, З, Ю, В): ');
      readln(str);
    end;
    writeln('Введите команду:');
    writeln('0 - продолжать движениие;');
    writeln('1 - поворот налево;');
    writeln('-1 - поворот направо.');
    write('Ваш выбор: ');
    f:=false;
    while(f=false) do //считываем команду роботу,учитывая возможные ошибки входных данных
    try
      read(k);
      while ((k<>-1)and(k<>0)and(k<>1)) do
      begin
        write('Ошибка ввода. Введите команду (-1, 0, 1):');
        read(k);
      end;
      f:=true;
    except write('Ошибка ввода. Введите команду (-1, 0, 1):');
    end;
    c:=str[1]; //определяем начальное положение робота
    if (k=0) then writeln('Направление робота после команды: ', c); //если была команда продолжать движение,выводим то же направление на экран
    if (k=1) then //обрабатываем поворот налево
    case c of 
    'С': writeln('Направление робота после команды: З');
    'З': writeln('Направление робота после команды: Ю');
    'В': writeln('Направление робота после команды: С');
    'Ю': writeln('Направление робота после команды: В');
    end;
    if (k=-1) then //обрабатываем поворот направо
    case c of
    'С': writeln('Направление робота после команды: В');
    'З': writeln('Направление робота после команды: С');
    'В': writeln('Направление робота после команды: Ю');
    'Ю': writeln('Направление робота после команды: З');
    end;
end.

2) Локатор ориентирован на одну из сторон света («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и может принимать три цифровые команды поворота: 1 — поворот налево, −1 — поворот направо, 2 — поворот на 180°. Вывести направление робота после выполнения полученной команды.
Program Lokator;
var str:string;
    c:char;
    k:integer;
    f:boolean;
begin
    write('Введите начальное направление (С, З, Ю, В): ');
    readln(str);
    while (str<>'С')and(str<>'З')and(str<>'Ю')and(str<>'В') do //считываем начальное положение,учитывая возможные ошибки входных данных
    begin
      write('Ошибка ввода! Введите начальное направление (С, З, Ю, В): ');
      readln(str);
    end;
    writeln('Введите команду:');
    writeln('1 - поворот налево;');
    writeln('-1 - поворот направо;');
    writeln('2 - поворот на 180°.');
    write('Ваш выбор: ');
    f:=false;
    while(f=false) do //считываем команду,учитывая возможные ошибки входных данных
    try
      read(k);
      while ((k<>-1)and(k<>1)and(k<>2)) do
      begin
        write('Ошибка ввода. Введите команду (-1, 1, 2):');
        read(k);
      end;
      f:=true;
    except write('Ошибка ввода. Введите команду (-1, 1, 2):');
    end;
    c:=str[1]; //определяем начальное положение
    if (k=1) then //обрабатываем поворот налево
    case c of 
    'С': writeln('Направление робота после команды: З');
    'З': writeln('Направление робота после команды: Ю');
    'В': writeln('Направление робота после команды: С');
    'Ю': writeln('Направление робота после команды: В');
    end;
    if (k=-1) then //обрабатываем поворот направо
    case c of
    'С': writeln('Направление робота после команды: В');
    'З': writeln('Направление робота после команды: С');
    'В': writeln('Направление робота после команды: Ю');
    'Ю': writeln('Направление робота после команды: З');
    end;
    if (k=2) then //обрабатываем поворот на 180
    case c of
    'С': writeln('Направление робота после команды: Ю');
    'З': writeln('Направление робота после команды: В');
    'В': writeln('Направление робота после команды: З');
    'Ю': writeln('Направление робота после команды: С');
    end;
end.