Локатор ориентирован на одну из сторон света ("С" — север, "З" — запад, "Ю" — юг, "В" — восток) и может принимать три цифровые команды: 1 — поворот налево, –1 — поворот направо, 2 — поворот на 180 градусов. Дан символ C — исход...
Локатор ориентирован на одну из сторон света ("С" — север, "З" — запад, "Ю" — юг, "В" — восток) и может принимать три цифровые команды: 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.
Не нашли ответ?
Похожие вопросы