Опубликовано 03.01.2018 по предмету Информатика от Гость

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

Ответ оставил Гость

Const
destinations = СЗЮВСЗЮВСЗЮВ; {Предварительно сформированная строка ориентаций}
var
C : char;
N1, N2, Position : integer;
begin
write(Исходная ориентация локатора: );
readln(C);
write(Первая команда поворота: );
readln(N1);
write(Вторая команда поворота: );
readln(N2);
Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления}
Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
writeln(Конечная ориентация: , destinations[Position]);
end.