В принципе, можно расписать, что делает эта программа (см. вложение). Так как изначально a[6] = 0, то a[3] = 50 раз к a[5] прибавится 2 * a[4] = 38, получится 38 * 50 + a[5] = 1917, затем значение a[5] будет выведено на экран.
Но проще не мучиться и просто написать программу, выполняющую этот код.
stack = [] transitions = [None] * len(program) for k, op in enumerate(program): if op == '[': stack.append(k) elif op == ']': v = stack.pop() transitions[k] = v + 1 transitions[v] = k + 1
k = 0 while k < len(program): op = program[k] if op == '.': print(array[array_position]) elif op == '>': array_position += 1 elif op == '<': array_position -= 1 elif op == '[' and array[array_position] == 0: k = transitions[k] continue elif op == ']' and array[array_position] != 0: k = transitions[k] continue elif op == '+': array[array_position] += 1 elif op == '-': array[array_position] -= 1 k += 1
В принципе, можно расписать, что делает эта программа (см. вложение). Так как изначально a[6] = 0, то a[3] = 50 раз к a[5] прибавится 2 * a[4] = 38, получится 38 * 50 + a[5] = 1917, затем значение a[5] будет выведено на экран.
Но проще не мучиться и просто написать программу, выполняющую этот код.
stack = [] transitions = [None] * len(program) for k, op in enumerate(program): if op == '[': stack.append(k) elif op == ']': v = stack.pop() transitions[k] = v + 1 transitions[v] = k + 1
k = 0 while k < len(program): op = program[k] if op == '.': print(array[array_position]) elif op == '>': array_position += 1 elif op == '<': array_position -= 1 elif op == '[' and array[array_position] == 0: k = transitions[k] continue elif op == ']' and array[array_position] != 0: k = transitions[k] continue elif op == '+': array[array_position] += 1 elif op == '-': array[array_position] -= 1 k += 1
Объяснение:
procedure Maximum(a, b, c:integer; var max:integer);
begin
if ((a>=b) and (a>=c)) then begin
max:=a;
exit;
end;
if ((b>=a) and (b>=c)) then begin
max:=b;
exit;
end;
if ((c>=a) and (c>=b)) then begin
max:=c;
exit;
end;
end;
var
a1, b1, c1, max1:integer;
begin
a1:=2; b1:=3; c1:=5;
Maximum(a1, b1, c1, max);
writeln(max);
end.