Языки программирования - Кузьмин
.docКонтрольные вопросы по дисциплине «Языки программирования»
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var1;
var
a, b, c : integer;
procedure p1( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-3--+---+
a:=11; ------+-11--+-3--+---+
b:=12; ------+-11--+12---+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-2--+---+
a:=21; ------+-21--+-2--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-21--+-21--+-12--+
a:=31; ------+-31--+-31--+-12--+
b:=32; ------+-32--+-32--+-12--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-32--+-63--+
a:=41; ------+-41--+-32--+-63--+
b:=42; ------+-41--+-42--+-63--+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=1; ------+-1--+---+---+
b:=2; ------+-1--+-2--+---+
c:=3; ------+-1--+-2--+-3--+
p1(a,c); ------+-1--+-2--+-12--+
p2; ------+-21--+-22--+-12--+
p3(a); ------+-32--+-22--+-64--+
p4(a) ------+-42--+-22--+-83--+
end. { var1 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var2;
var
a, b, c : integer;
procedure p1(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-4--+-6--+
a:=11; ------+-11--+-4--+-6--+
b:=12; ------+-11--+-12--+-6--+
c:=a+b; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2(a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-12--+-23--+---+
a:=21; ------+-21--+-23--+---+
b:=22; ------+-21--+--22-+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-12--+-5--+---+
a:=31; ------+-31--+-5--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-31--+-31--+-22--+
a:=41; ------+-41--+-41--+-22--+
b:=42; ------+-42--+-42--+-22--+
c:=a+b; ------+-42--+-42--+-84--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=4; ------+-4--+---+---+
b:=5; ------+-4--+-5--+---+
c:=6; ------+-4--+-5--+-6--+
p1(a); ------+-12--+-5--+-23--+
p2(a,c); ------+-12--+-5--+-22--+
p3; ------+-31--+-32--+-22--+
p4(a) ------+-42--+-32--+-84--+
end. { var2 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var3;
var
a, b, c : integer;
procedure p1;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-3--+-4--+---+
a:=11; ------+-11--+-4--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-11--+-5--+
a:=21; ------+-21--+-11--+-5--+
b:=22; ------+-21--+-22--+-5--+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-22--+-22--+-43--+
a:=31; ------+-31--+-31--+-43--+
b:=32; ------+-32--+-32--+-43--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-32--+-64--+---+
a:=41; ------+-41--+-64--+---+
b:=42; ------+-41--+-42--+---+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=3; ------+-3--+---+---+
b:=4; ------+-3--+-4--+---+
c:=5; ------+-3--+-4--+-5--+
p1; ------+-11--+-12--+-5--+
p2(a); ------+-22--+-12--+-43--+
p3(a); ------+-32--+-12--+-64--+
p4(a,c) ------+-32--+-12--+-42--+
end. { var3 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var4;
var
u, v, w : integer;
procedure p1(var v : integer );
var
u : integer; ¦ u ¦ v ¦ w ¦
begin ------+---+-4--+-6--+
u:=11; ------+-11--+-4--+-6--+
v:=12; ------+-11--+-12--+-6--+
w:=u+v; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2( u : integer; var v : integer );
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-12--+-23--+---+
u:=21; ------+-21--+-23--+---+
v:=22; ------+-21--+-22--+---+
w:=u+v; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3;
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-12--+-5--+---+
u:=31; ------+-31--+-5--+---+
v:=32; ------+-31--+-32--+---+
w:=u+v; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var v : integer );
¦ u ¦ v ¦ w ¦
begin ------+-31--+-31--+-22--+
u:=41; ------+-41--+-41--+-22--+
v:=42; ------+-42--+-42--+-22--+
w:=u+v; ------+-42--+-42--+-84--+
end; { p4 }
¦ u ¦ v ¦ w ¦
begin ------+---+---+---+
u:=4; ------+-4--+---+---+
v:=5; ------+-4--+-5--+---+
w:=6; ------+-4--+-5--+-6--+
p1(u); ------+-12--+-5--+-23--+
p2(u,w); ------+-12--+-5--+-22--+
p3; ------+-31--+-32--+-22--+
p4(u) ------+-42--+-32--+-84--+
end. { var4 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var5;
var
x,
y,
z : integer;
procedure p1;
var
z : integer; ¦ x ¦ y ¦ z ¦
begin ------+-3--+-4--+---+
x:=11; ------+-11--+-4--+---+
y:=12; ------+-11--+-12--+---+
z:=x+y; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2(var y : integer );
var
x : integer; ¦ x ¦ y ¦ z ¦
begin ------+---+-11--+-5--+
x:=21; ------+-21--+-11--+-5--+
y:=22; ------+-21--+-22--+-5--+
z:=x+y; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var y : integer );
¦ x ¦ y ¦ z ¦
begin ------+-22--+-22--+-43--+
x:=31; ------+-31--+-31--+-43--+
y:=32; ------+-32--+-32--+-43--+
z:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4( x : integer; var y : integer );
var
z : integer; ¦ x ¦ y ¦ z ¦
begin ------+-32--+-64--+---+
x:=41; ------+-41--+-64--+---+
y:=42; ------+-41--+-42--+---+
z:=x+y; ------+-41--+-42--+-83--+
end; { p4 }
¦ x ¦ y ¦ z ¦
begin ------+---+---+---+
x:=3; ------+-3--+---+---+
y:=4; ------+-3--+-4--+---+
z:=5; ------+-3--+-4--+-5--+
p1; ------+-11--+-12--+-5--+
p2(x); ------+-22--+-12--+-43--+
p3(x); ------+-32--+-12--+-64--+
p4(x,z) ------+-32--+-12--+-42--+
end. { var5 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var6;
var
p, q, r : integer;
procedure p1(p : integer; var q : integer );
var
r : integer; ¦ p ¦ q ¦ r ¦
begin ------+-1--+-3--+---+
p:=11; ------+-11--+-3--+---+
q:=12; ------+-11--+-12--+---+
r:=p+q; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2;
var
r : integer; ¦ p ¦ q ¦ r ¦
begin ------+-1--+-2--+---+
p:=21; ------+-21--+-2--+---+
q:=22; ------+-21--+-22--+---+
r:=p+q; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var q : integer );
¦ p ¦ q ¦ r ¦
begin ------+-21--+-21--+-12--+
p:=31; ------+-31--+-31--+-12--+
q:=32; ------+-32--+-32--+-12--+
r:=p+q; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var q : integer );
var
p : integer; ¦ p ¦ q ¦ r ¦
begin ------+---+-32--+-64--+
p:=41; ------+-41--+-32--+-64--+
q:=42; ------+-41--+-42--+-64--+
r:=p+q; ------+-41--+-42--+-83--+
end; { p4 }
¦ p ¦ q ¦ r ¦
begin ------+---+---+---+
p:=1; ------+-1--+---+---+
q:=2; ------+-1--+-2--+---+
r:=3; ------+-1--+-2--+-3--+
p1(p,r); ------+-1--+-2--+-12--+
p2; ------+-21--+-22--+-12--+
p3(p); ------+-32--+-22--+-64--+
p4(p) ------+-42--+-22--+-83--+
end. { var6 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var7;
var
a, b, c : integer;
procedure p1( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-3--+---+
a:=11; ------+-11--+-3--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-2--+---+
a:=21; ------+-21--+-2--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-21--+-21--+-12--+
a:=31; ------+-31--+-31--+-12--+
b:=32; ------+-32--+-32--+-12--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-32--+-64--+
a:=41; ------+-41--+-32--+-64--+
b:=42; ------+-41--+-42--+-64--+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=1; ------+-1--+---+---+
b:=2; ------+-1--+-2--+---+
c:=3; ------+-1--+-2--+-3--+
p1(a,c); ------+-1--+-2--+-12--+
p2; ------+-21--+-22--+-12--+
p3(a); ------+-32--+-22--+-64--+
p4(a) ------+-42--+-22--+-83--+
end. { var7 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var8;
var
a, b, c : integer;
procedure p1(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-4--+-6--+
a:=11; ------+-11--+-4--+-6--+
b:=12; ------+-11--+-12--+-6--+
c:=a+b; ------+-11--+-12--+-23--+
end; { p1 }
procedure p2( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-12--+-23--+---+
a:=21; ------+-21--+-23--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-12--+-5--+---+
a:=31; ------+-31--+-5--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-31--+-31--+-22--+
a:=41; ------+-41--+-41--+-22--+
b:=42; ------+-42--+-42--+-22--+
c:=a+b; ------+-42--+-42--+-84--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=4; ------+-4--+---+---+
b:=5; ------+-4--+-5--+---+
c:=6; ------+-4--+-5--+-6--+
p1(a); ------+-12--+-5--+-23--+
p2(a,c); ------+-12--+-5--+-22--+
p3; ------+31---+-32--+-22--+
p4(a) ------+-42--+-32--+-84--+
end. { var8 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var9;
var
a, b, c : integer;
procedure p1( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-3--+---+
a:=21; ------+-21--+-3--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-2--+---+
a:=11; ------+-11--+-2--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-11--+-11--+-22--+
a:=31; ------+-31--+-31--+-22--+
b:=32; ------+-32--+-32--+-22--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-32--+-64--+
a:=41; ------+-41--+-32--+-64--+
b:=42; ------+-41--+-42--+-64--+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=1; ------+-1--+---+---+
b:=2; ------+-1--+-2--+---+
c:=3; ------+-1--+-2--+-3--+
p1(a,c); ------+-1--+-2--+-22--+
p2; ------+-11--+-12--+-22--+
p3(a); ------+-32--+-12--+-64--+
p4(a) ------+-42--+-12--+-83--+
end. { var9 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var10;
var
a, b, c : integer;
procedure p1(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-4--+-6--+
a:=21; ------+-21--+-4--+-6--+
b:=22; ------+-21--+-22--+-6--+
c:=a+b; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-22--+-43--+---+
a:=11; ------+-11--+-43--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-22--+-5--+---+
a:=31; ------+-31--+-5--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-31--+-31--+-12--+
a:=41; ------+-41--+-41--+-12--+
b:=42; ------+-42--+-42--+-12--+
c:=a+b; ------+-42--+-42--+-84--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=4; ------+-4--+---+---+
b:=5; ------+-4--+-5--+---+
c:=6; ------+-4--+-5--+-6--+
p1(a); ------+-22--+-5--+-43--+
p2(a,c); ------+-22--+-5--+-12--+
p3; ------+-31--+-32--+-12--+
p4(a) ------+-42--+-32--+-84--+
end. { var10 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var11;
var
a, b, c : integer;
procedure p1;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-3--+-4--+---+
a:=21; ------+-21--+-4--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-21--+-5--+
a:=11; ------+-11--+-21--+-5--+
b:=12; ------+-11--+-12--+-5--+
c:=a+b; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-12--+-12--+-23--+
a:=31; ------+-31--+-31--+-23--+
b:=32; ------+-32--+-32--+-23--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-32--+-64--+---+
a:=41; ------+-41--+-64--+---+
b:=42; ------+-41--+-42--+---+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=3; ------+-3--+---+---+
b:=4; ------+-3--+-4--+---+
c:=5; ------+-3--+-4--+-5--+
p1; ------+-21--+-22--+-5--+
p2(a); ------+-12--+-22--+-23--+
p3(a); ------+-32--+-22--+-64--+
p4(a,c) ------+-32--+-22--+-42--+
end. { var11 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var12;
var
u, v, w : integer;
procedure p1(var v : integer );
var
u : integer; ¦ u ¦ v ¦ w ¦
begin ------+---+-4--+-6--+
u:=21; ------+-21--+-4--+-6--+
v:=22; ------+-21--+-22--+-6--+
w:=u+v; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2( u : integer; var v : integer );
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-22--+-43--+---+
u:=11; ------+-11--+-43--+---+
v:=12; ------+-11--+-12--+---+
w:=u+v; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3;
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-22--+-5--+---+
u:=31; ------+-31--+-5--+---+
v:=32; ------+-31--+-32--+---+
w:=u+v; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var v : integer );
¦ u ¦ v ¦ w ¦
begin ------+-31--+-31--+-12--+
u:=41; ------+-41--+-41--+-12--+
v:=42; ------+-42--+-42--+-12--+
w:=u+v; ------+-42--+-42--+-84--+
end; { p4 }
¦ u ¦ v ¦ w ¦
begin ------+---+---+---+
u:=4; ------+-4--+---+---+
v:=5; ------+-4--+-5--+---+
w:=6; ------+-4--+-5--+-6--+
p1(u); ------+-22--+-5--+-43--+
p2(u,w); ------+-22--+-5--+-12--+
p3; ------+-31--+-32--+-12--+
p4(u) ------+-42--+-32--+-84--+
end. { var12 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var13;
var
x, y, z : integer;
procedure p1;
var
z : integer; ¦ x ¦ y ¦ z ¦
begin ------+-3--+-4--+---+
x:=21; ------+-21--+-4--+---+
y:=22; ------+-21--+-22--+---+
z:=x+y; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2(var y : integer );
var
x : integer; ¦ x ¦ y ¦ z ¦
begin ------+---+-21--+-5--+
x:=11; ------+-11--+-21--+-5--+
y:=12; ------+-11--+-12--+-5--+
z:=x+y; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3(var y : integer );
¦ x ¦ y ¦ z ¦
begin ------+-12--+-12--+-23--+
x:=31; ------+-31--+-31--+-23--+
y:=32; ------+-32--+-32--+-23--+
z:=x+y; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4( x : integer; var y : integer );
var
z : integer; ¦ x ¦ y ¦ z ¦
begin ------+-32--+-64--+---+
x:=41; ------+-41--+--64-+---+
y:=42; ------+-41--+-42--+---+
z:=x+y; ------+-41--+-42--+-83--+
end; { p4 }
¦ x ¦ y ¦ z ¦
begin ------+---+---+---+
x:=3; ------+-3--+---+---+
y:=4; ------+-3--+-4--+---+
z:=5; ------+-3--+-4--+-5--+
p1; ------+-21--+-22--+-5--+
p2(x); ------+-12--+-22--+-23--+
p3(x); ------+-32--+-22--+-64--+
p4(x,z) ------+-32--+-22--+-42--+
end. { var13 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var14;
var
p, q, r : integer;
procedure p1( p : integer; var q : integer );
var
r : integer; ¦ p ¦ q ¦ r ¦
begin ------+-1--+-3--+---+
p:=21; ------+-21--+-3--+---+
q:=22; ------+-21--+-22--+---+
r:=p+q; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2;
var
r : integer; ¦ p ¦ q ¦ r ¦
begin ------+-1--+-2--+---+
p:=11; ------+-11--+-2--+---+
q:=12; ------+-11--+-12--+---+
r:=p+q; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3(var q : integer );
¦ p ¦ q ¦ r ¦
begin ------+-11--+-11--+-22--+
p:=31; ------+-31--+-31--+-22--+
q:=32; ------+-32--+-32--+-22--+
r:=p+q; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var q : integer );
var
p : integer; ¦ p ¦ q ¦ r ¦
begin ------+---+-32--+-64--+
p:=41; ------+-41--+-32--+-64--+
q:=42; ------+-41--+-42--+-64--+
r:=p+q; ------+-41--+-42--+-83--+
end; { p4 }
¦ p ¦ q ¦ r ¦
begin ------+---+---+---+
p:=1; ------+-1--+---+---+
q:=2; ------+-1--+-2--+---+
r:=3; ------+-1--+-2--+-3--+
p1(p,r); ------+-1--+-2--+-22--+
p2; ------+-11--+-12--+-22--+
p3(p); ------+-32--+-12--+-64--+
p4(p) ------+-42--+-12--+-83--+
end. { var14 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var15;
var
a, b, c : integer;
procedure p1( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-3--+---+
a:=21; ------+-21--+-3--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-2--+---+
a:=11; ------+-11--+-2--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-11--+-11--+-22--+
a:=31; ------+-31--+-31--+-22--+
b:=32; ------+-32--+-32--+-22--+
c:=a+b; ------+-32--+-32--+-64--+
end; { p3 }
procedure p4(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-32--+-64--+
a:=41; ------+-41--+-32--+-64--+
b:=42; ------+-41--+-42--+-64--+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=1; ------+-1--+---+---+
b:=2; ------+-1--+-2--+---+
c:=3; ------+-1--+-2--+-3--+
p1(a,c); ------+-1--+-2--+-22--+
p2; ------+-11--+-12--+-22--+
p3(a); ------+-32--+-12--+-64--+
p4(a) ------+-42--+-12--+-83--+
end. { var15 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var16;
var
a, b, c : integer;
procedure p1(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-4--+-6--+
a:=21; ------+-21--+-4--+-6--+
b:=22; ------+-21--+-22--+-6--+
c:=a+b; ------+-21--+-22--+-43--+
end; { p1 }
procedure p2( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-22--+-43--+---+
a:=11; ------+-11--+-43--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p2 }
procedure p3;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-22--+-5--+---+
a:=31; ------+-31--+-5--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p3 }
procedure p4(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-31--+-31--+-12--+
a:=41; ------+-41--+-41--+-12--+
b:=42; ------+-42--+-42--+-12--+
c:=a+b; ------+-42--+-42--+-84--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=4; ------+-4--+---+---+
b:=5; ------+-4--+-5--+---+
c:=6; ------+-4--+-5--+-6--+
p1(a); ------+-22--+-5--+-43--+
p2(a,c); ------+-22--+-5--+-12--+
p3; ------+-31--+-32--+-12--+
p4(a) ------+-42--+-32--+-84--+
end. { var16 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var17;
var
a, b, c : integer;
procedure p1( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-3--+---+
a:=31; ------+-31--+--3-+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p1 }
procedure p2;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-1--+-2--+---+
a:=21; ------+-21--+-2--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-21--+-21--+-32--+
a:=11; ------+-11--+-11--+-32--+
b:=12; ------+-12--+-12--+-32--+
c:=a+b; ------+-12--+-12--+-24--+
end; { p3 }
procedure p4(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-12--+-24--+
a:=41; ------+-41--+-12--+-24--+
b:=42; ------+-41--+-42--+-24--+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=1; ------+-1--+---+---+
b:=2; ------+-1--+-2--+---+
c:=3; ------+-1--+-2--+-3--+
p1(a,c); ------+-1--+-2--+-32--+
p2; ------+-21--+-22--+-32--+
p3(a); ------+-12--+-22--+-24--+
p4(a) ------+-42--+-22--+-83--+
end. { var17}
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var18;
var
a, b, c : integer;
procedure p1( a : integer);
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-4--+-5--+---+
a:=31; ------+-31--+-5--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p1 }
procedure p2( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-4--+-6--+---+
a:=21; ------+-21--+-6--+---+
b:=22; ------+-21--+-22--+---+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-4--+-32--+---+
a:=11; ------+-11--+-32--+---+
b:=12; ------+-11--+-12--+---+
c:=a+b; ------+-11--+-12--+-23--+
end; { p3 }
procedure p4(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-11--+-11--+-22--+
a:=41; ------+-41--+-41--+-22--+
b:=42; ------+-42--+-42--+-22--+
c:=a+b; ------+-42--+-42--+-84--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=4; ------+-4--+---+---+
b:=5; ------+-4--+-5--+---+
c:=6; ------+-4--+-5--+-6--+
p1(a); ------+-4--+-32--+-6--+
p2(a,c); ------+-4--+-32--+-22--+
p3; ------+-11--+-12--+-22--+
p4(a) ------+-42--+-12--+-84--+
end. { var18 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var19;
var
a, b, c : integer;
procedure p1;
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-3--+-4--+---+
a:=31; ------+-31--+-4--+---+
b:=32; ------+-31--+-32--+---+
c:=a+b; ------+-31--+-32--+-63--+
end; { p1 }
procedure p2(var b : integer );
var
a : integer; ¦ a ¦ b ¦ c ¦
begin ------+---+-31--+-5--+
a:=21; ------+-21--+-31--+-5--+
b:=22; ------+-21--+-22--+-5--+
c:=a+b; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3(var b : integer );
¦ a ¦ b ¦ c ¦
begin ------+-22--+-22--+-43--+
a:=11; ------+-11--+-11--+-43--+
b:=12; ------+-12--+-12--+-43--+
c:=a+b; ------+-12--+-12--+-24--+
end; { p3 }
procedure p4( a : integer; var b : integer );
var
c : integer; ¦ a ¦ b ¦ c ¦
begin ------+-12--+-24--+---+
a:=41; ------+-41--+-24--+---+
b:=42; ------+-41--+-42--+---+
c:=a+b; ------+-41--+-42--+-83--+
end; { p4 }
¦ a ¦ b ¦ c ¦
begin ------+---+---+---+
a:=3; ------+-3--+---+---+
b:=4; ------+-3--+-4--+---+
c:=5; ------+-3--+-4--+-5--+
p1; ------+-31--+-32--+-5--+
p2(a); ------+-22--+-32--+-43--+
p3(a); ------+-12--+-32--+-24--+
p4(a,c) ------+-12--+-32--+-42--+
end. { var19 }
-
Определить (с учетом области видимости) и зафиксировать текущие значения всех переменных после выполнения каждого оператора в основном блоке и в каждой из процедур. Внутри каждой из процедур обязательно должны отдельной строкой фиксироваться значения указанных переменных на момент входа в процедуру.
program var20;
var
u, v, w : integer;
procedure p1(var v : integer );
var
u : integer; ¦ u ¦ v ¦ w ¦
begin ------+---+-4--+-6--+
u:=31; ------+-31--+-4--+-6--+
v:=32; ------+-31--+-32--+-6--+
w:=u+v; ------+-31--+-32--+-63--+
end; { p1 }
procedure p2( u : integer; var v : integer );
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-32--+-63--+---+
u:=21; ------+-21--+-63--+---+
v:=22; ------+-21--+-22--+---+
w:=u+v; ------+-21--+-22--+-43--+
end; { p2 }
procedure p3;
var
w : integer; ¦ u ¦ v ¦ w ¦
begin ------+-32--+-5--+---+
u:=11; ------+-11--+-5--+---+
v:=12; ------+-11--+-12--+---+
w:=u+v; ------+-11--+-12--+-23--+
end; { p3 }
procedure p4(var v : integer );
¦ u ¦ v ¦ w ¦