Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y); writeln ('x=', x,'y=', y); p2 (x, y); writeln ('x=', x,'y=', y); end.

Question

Даниил Кондратьев

Информатика

25 июля, 19:16

Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y); writeln ('x=', x,'y=', y); p2 (x, y); writeln ('x=', x,'y=', y); end.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Мадина Калинина · Answer 1

При вызове процедуры p1 со значениями 2, 2 a будет присвоено √2 (1,414213), b - √2+2

(3,414213). а при вызове процедуры p2 a присвоено √2 (1,414213), b - √2+2 (3,414213)

После выполнения операторов writeln на экране появится следующее:

x=1,414213 y=3,414213

x=1,414213 y=3,414213

Строки будут одинаковыми так как значения a и b совпадают. Так как точность вычисления не задана, будет использована точность по умолчанию.