5. Разработка программ модульной структуры (с несколькими процедурами)

5.55. После выполнения программы на экран будет выведено …

Program CH; Unit u_v;

Uses u_v; INTERFACE

Var Procedure P1(f:real);

f,a: real; Procedure P2 ( var f:real);

begin IMPLEMENTATION

a:=20; Procedure P1;

f:=2; begin

P1(a); P2(a); f:=f+1; end;

write(‘f=’,f:6:2) ; Procedure P2 ( var f::real);

writeln(‘ a=’,a:8:2); begin

End. f:=sqr (f);

end; end.

5.56. После выполнения программы на экран будет выведено …проверить

Program CH; Unit u_an;

Uses u_an; Interface

Var Procedure P1(n:real);

n,a: real; Procedure P2 (var n: real);

begin Implementation

a:=3.5; Procedure P1;

n:=-1.5; begin

P1(a); P2(n); n:=n+1; end;

writeln(‘a’,a:6:2) ; Procedure P2 ;

Writeln(‘n=’,n:6:2); begin

End. n=sqr (n);

end; end.

5.57. После выполнения программы на экран будет выведено …

Program Pr48; Unit u_48;

Uses u_48; Interface

Var Procedure P1(var k:integer);

k,a: real; Procedure P2 (var k:integerl);

begin Implementation

a:=1; Procedure P1;

k:= -2; begin

P1(a); P2(k); inc(k); end;

write(‘a=’,a) ; Procedure P2 ;

Writeln(‘ k=’,k); begin

End. k:=sqr (k);

end; end.

5.58. После выполнения программы на экран будет выведено …

Program Pr49; Unit u_49;

Uses u_49; Interface

Var Procedure P1(var k:integer);

k,a: real; Procedure P2 (var k:integerl);

begin Implementation

a:=1; Procedure P1;

k:= -2; begin

P1(k); P2(k); inc(k); end;

write(‘a=’,a) ; Procedure P2 ;

Writeln(‘ k=’,k); begin

End. k:=sqr (k);

end; end.