В этой презентации даны программы с применением подпрограмм- процедур. Постарайтесь самостоятельно ответить на вопрос, что появится на экране в результате работы этих программ, а затем сверьтесь с ответами. ТЕСТЫ

PROGRAM vlzl; uses crt; VAR a,b: integer; PROCEDURE fl(x,y: integer); BEGIN y:=2*x + 3; END; PROCEDURE f2(var x,y: integer); BEGIN y:=3*x+1; END; BEGIN clrscr; a:=1; b:=3; fl(a,b); Writeln('a=',a,' b=',b); f2(a,b); Writeln('a=',a,' b=',b); END. a=1 b=3 a=1 b=4

PROGRAM vlz2; uses crt; VAR a,b,al,bl:real; PROCEDURE sd(x,y:real; var p,q:real); BEGIN P:=(x + y)/2; q:=(x - y)/2; END; BEGIN clrscr; a:=2; b:=-4; sd(a,b,al,bl); Writeln('a=',a,' b=',b,' al=',al,' bl=',bl); sd(a,b,bl,al); Writeln('a=',a,' b=',b,' al-',al,' bl=',bl); sd(b,a,al,bl); Writeln('a=',a,' b=',b,' al=', al,' bl-',bl); END. a=2 b= -4 a1= -1 b1=3 a=2 b= -4 a1=3 b1= -1 a=2 b= -4 a1=-1 b1= -3