Процедура

@Anna362 · Регистрация: 23.12.2018

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста!
Почему программа выводит на экран 1 10 15? Как она считает?

Pascal

program Prog;
var x,y,z: integer;
procedure F(var x: integer);
begin
  z:=x+y;
  y:=z+x;
  x:=z+y;
end;
 
begin
  x:=1;
  y:=2;
  z:=3;
    F(z);
      writeln(x:3,y:3,z:3);
end.

@21m3 · 28.12.2018, 22:49

Если кратко. В программе объявлены 3 глобальные переменные x, y, z соответственно равные 1, 2 и 3.
Значению переменной z присваивается сумма x и y, потом y становится равной сумме икса и уже нового z, и после, иксу присваивается сумма двух получившихся только что значений. После чего все три числа выводятся в консоль.
Кстати, в функцию не нужно передавать параметр, он уже задан как глобальная переменная, это только съедает немного памяти и запутывает читающих твой код

@Anna362 · 29.12.2018, 10:58 **[ТС]**

если z присваивается сумма x и y, то z=1+2=3
потом y становится равной сумме икса и уже нового z: y=1+3=4
иксу присваивается сумма двух получившихся только что значений: x=3+4=7
тогда на печать должно быть 7 4 3, а получается 1 10 15

@Puporev · 29.12.2018, 11:07

Вам написали

Сообщение от 21m3

в функцию не нужно передавать параметр, он уже задан как глобальная переменная,

Уберите и выведет 7 4 3.

Добавлено через 5 минут
А если с параметрами, то так.

Pascal

procedure F(var x,y,z:integer);
begin
  z:=x+y;
  y:=z+x;
  x:=z+y;
end;
var x,y,z: integer;
begin
  x:=1;
  y:=2;
  z:=3;
  F(x,y,z);
  writeln(x:3,y:3,z:3);
end.

@Anna362 · 29.12.2018, 11:26 **[ТС]**

Зачем мне убирать, если в результате итог меняется?
Вопрос был в том, как он считает 1 10 15
а результат 7 4 3 должен получиться, если следовать вашей логике, что неправильно.
Если убрать var, оставить procedure F(x: integer), то результат 1 8 5

Добавлено через 18 минут
Не надо в коде ничего менять. Как он считает именно при этом коде?

@Puporev · 29.12.2018, 11:37

F(z)
x=1//не меняется
//вместо х будет z
z=z+y=3+2=5
y=z+z=5+5=10
z=z+5+10=15
ответ 1 10 15

@Anna362 · 29.12.2018, 13:53 **[ТС]**

Спасибо! Попробую на разных вариантах.

@21m3 0 / 0 / 0 Регистрация: 27.11.2018 Сообщений: 13
	28.12.2018, 22:49	2
	Если кратко. В программе объявлены 3 глобальные переменные x, y, z соответственно равные 1, 2 и 3. Значению переменной z присваивается сумма x и y, потом y становится равной сумме икса и уже нового z, и после, иксу присваивается сумма двух получившихся только что значений. После чего все три числа выводятся в консоль. Кстати, в функцию не нужно передавать параметр, он уже задан как глобальная переменная, это только съедает немного памяти и запутывает читающих твой код 0

@Anna362 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 9
	29.12.2018, 10:58 [ТС]	3
	если z присваивается сумма x и y, то z=1+2=3 потом y становится равной сумме икса и уже нового z: y=1+3=4 иксу присваивается сумма двух получившихся только что значений: x=3+4=7 тогда на печать должно быть 7 4 3, а получается 1 10 15 0

@Anna362 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 9
	29.12.2018, 11:26 [ТС]	5
	Зачем мне убирать, если в результате итог меняется? Вопрос был в том, как он считает 1 10 15 а результат 7 4 3 должен получиться, если следовать вашей логике, что неправильно. Если убрать var, оставить procedure F(x: integer), то результат 1 8 5 Добавлено через 18 минут Не надо в коде ничего менять. Как он считает именно при этом коде? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.12.2018, 11:37	6
	Сообщение было отмечено ZX Spectrum-128 как решение Решение F(z) x=1//не меняется //вместо х будет z z=z+y=3+2=5 y=z+z=5+5=10 z=z+5+10=15 ответ 1 10 15 0

@Anna362 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 9
	29.12.2018, 13:53 [ТС]	7
	Спасибо! Попробую на разных вариантах. 0

Процедура

Решение