Напишите, что выведет на экран следующая программа:

@Анютка98 · Регистрация: 30.09.2015

1 Напишите, что выведет на экран следующая программа:

Pascal

Program V2_Z1;
 
Var A,B:Integer;
 
 
 
Procedure F1(Var X,Y:Integer);
 
Begin
 
Y:=SQR(X);
 
X:=SQR(X)+X;
 
End;
 
 
 
Procedure F2(Var X:Integer; Y:Integer);
 
Begin
 
Y:=SQR(X);
 
X:=SQR(X)+X;
 
End;
 
 
 
Begin
 
A:=1;B:=3;
 
F1(A,B); WriteLn('A=',A,'B=',B);
 
F2(A,B); WriteLn('A=',A,'B=',B);
 
End.

2. Напишите, что выведет на экран следующая программа:

Pascal

Program V1_Z2;
 
Var A,B,A1,B1:Real;
 
 
 
Procedure SD(X,Y:Real; Var P,Q:Real);
 
Begin
 
P:=(X+Y)/2; Q:=(X-Y)/2 ;
 
End;
 
Begin
 
A:=2; B:=-4;
 
SD(A,B,A1,B1); WriteLn('A=',A:4:0,'B=',B:4:0,'A1=',A1:4:0,'B1=',B1:4:0);
 
SD(A,B,B1,A1); WriteLn('A=',A:4:0,'B=',B:4:0,'A1=',A1:4:0,'B1=',B1:4:0);
 
SD(B,A,A1,B1); WriteLn('A=',A:4:0,'B=',B:4:0,'A1=',A1:4:0,'B1=',B1:4:0);
 
End.

ФедосеевПавел · 24.10.2015, 20:40

Анютка98, пора бы и научиться пользоваться компилятором.
На оба вопроса из этой темы, вы сможете получить ответ самостоятельно, выполнив обе программы. Например, в компиляторе PascalABC.NET - online версии http://pascalabc.net/WDE/

ФедосеевПавел Модератор 8291 / 4194 / 1597 Регистрация: 01.02.2015 Сообщений: 13,037 Записей в блоге: 4
	24.10.2015, 20:40	2
	Анютка98, пора бы и научиться пользоваться компилятором. На оба вопроса из этой темы, вы сможете получить ответ самостоятельно, выполнив обе программы. Например, в компиляторе PascalABC.NET - online версии http://pascalabc.net/WDE/ 0

Опции темы