Исполнитель Робот действует на клетчатом поле, между соседними клетками которого могут стоять стены. Робот передвигается по клеткам поля и может выполнять следующие команды, которым присвоены номера:
1 - Вверх
2 - Вниз
3 - Вправо
4 - Влево
При выполнении каждой такой команды Робот перемещается в соседнюю клетку в указанном направлении. Если же в этом направлении между клетками стоит стена, то Робот разрушается.
В какой клетке должен находиться исполнитель Робот, чтобы после выполнения алгоритма 3241 в неё же и вернуться?
260
266
Ответы на вопрос:
Program z18; var a: array [1..1000] of string; i,j,l,min,h: integer; s: string; begin write('введите строку - '); readln(s); l: =s.length; i: = 1; j: = 1; while i < = l do begin while (s[i] < > ' ') and (i < = l) do begin a[j]: =a[j] + s[i]; i: = i + 1; if (i > l) then break; end; j: = j + 1; i: = i + 1; end; i: = 2; min: =a[1].length; while (a[i] < > '') do begin l: =a[i].length; if (l < min) then h: = i; i: = i + 1; end; writeln(a[h]); end. program z19; var a: array [1..1000] of string; i,j,l,min: integer; s: string; begin write('введите строку - '); readln(s); l: =s.length; i: = 1; j: = 1; while i < = l do begin while (s[i] < > ' ') and (i < = l) do begin a[j]: =a[j] + s[i]; i: = i + 1; if (i > l) then break; end; j: = j + 1; i: = i + 1; end; i: = 1; while (a[i] < > '') do begin if ((a[i] = 'мое') or (a[i] = 'мое')) then a[i]: = 'наше'; write(a[i], ' '); i: = i + 1; end; end.
Популярно: Информатика
-
nik180208mailru03.01.2022 11:05
-
Julia133103.05.2022 18:53
-
lavinaalina17.04.2022 04:10
-
uztstdgiDima29.09.2021 01:56
-
Piachenka15003.05.2022 21:32
-
DinamikDj01.07.2022 03:40
-
German122422.09.2020 03:38
-
Roma197107.07.2021 07:14
-
Danyaukos31.10.2021 07:26
-
valerijarukavitsona06.03.2020 01:05