4. Разработка программ модульной структуры

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

Program p; Unit u1;

Uses u1; INTERFACE

Var f, a: real; Procedure P1 (f: real);

begin IMPLEMENTATION

a:=20; Procedure P1;

f:=40; var a,с:real;

P1(a); begin

Write(‘f=’,f:6:2) ; с:=60; a:=50; f:=f+c;

Write(‘ a=’,a:6:2); writeln(‘f=’,f:6:2,’a=’,a:6:2);

End. End; end.

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

Program p; Unit u1;

Uses u1; INTERFACE

Var f,a: real; Procedure P1(f:real);

begin IMPLEMENTATION

a:=20; Procedure P1(F);

f:=40; var с:real;

P1(a); begin

Writeln(‘f=’,f:6:2) с:=60; f:=f+c;

End. Writeln(‘f=’,f:6:2); end; end.

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

Program p; Unit u1;

Uses u1; INTERFACE

Var f,a: real; Procedure P1(f:real);

begin IMPLEMENTATION

a:=20; Procedure P1;

f:=40; var с:real;

P1(a); begin

Writeln(‘f=’,f:6:2) с:=60; f:=f+c;

End. Writeln(‘f=’,f:6:2); end; end.

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

Program p; Unit u1;

Uses u1; INTERFACE

Var f,a: string; Procedure P1(f.,a: string);

begin IMPLEMENTATION

a:=’50 ’; Procedure P1;

f:=’страниц ’; begin

P1(f,a ); f:=f+’ всего’;

Writeln (a,f); f:=f+a;

end. Writeln (a,f); end; end.

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

Program p; Unit us;

Uses us; INTERFACE

Var Procedure P1(c,f: string[7]);

f,c: string[7]; IMPLEMENTATION

begin Procedure P1;

P1(c,f ); begin

Write(‘решена ’,c, f); c:=’трудная’;

end. f:=’ задача’;

end; end.