Область дії означень та побічний ефект, Детальна інформація

Неявне ps.a:=b 1 5 2 5 ?

ps.t:=ps.a+ps.b 1 5 2 5 6

ps.b:=ps.t-ps.b 5 5 2 5 6

ps.a:=ps.t-ps.b 5 5 2 1 6

c:=ps.t 5 5 6 1 6

writeln(a, b, c) 5 5 6    

Суміщення імен a і ps.b в одній колонці вказує, що цим іменам зіставлена та сама ділянка пам'яті. У результаті виконання буде надруковано 5 5 6.

Задачі

7.1.* Укажіть помилкове використання імен у програмі:

program AB(input, output);

function A : integer;

function B : integer;

function A : integer;

begin A:=1 end

begin A := 2; B := A end;

begin A := 3 end;

begin writeln(A); writeln(B) end.

7.2. Імітувати виконання програми:

program (input, output);

var a, b : integer;

procedure badswap(var a : integer; t : integer);

var d : integer;

begin

d := t; t := a; a := d

end;

begin

a := 1; b := 3;

badswap(a, b);

writeln(a, b)

end.