Помогите с задачей Опции

[-Eni-]

вот такой код

Код

var  a:integer;

function f(x:integer):integer;
begin
  f:=x;
  x:=6;
end;

begin
  a:=1;
  writeln('Ответ = ',f(a)-f(a));
end.  

Имхо сдесь получается так - Ответ = -5 НО!!!! после выполнения на экране появляется иное Ответ = 5....
=)
помагите чем могите )

!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Сообщение отредактировано: klem4 - 26.11.2007 18:26

[-Eni-]

Видимо, 5 получается потому что выражение f(a)-f(a) считается именно с конца....
Осталось доказать теперь это...

[Malice]

Видимо, 5 получается потому что выражение f(a)-f(a) считается именно с конца....

Да именно так, похоже он и делает.. Доказать просто, например добавив еще 1 параметр:

var a:integer;
function f( var x:integer; b:byte):integer;
begin
write (b);
f:=x;
x:=6;
end;
begin
a:=1;
writeln (f(a,1)-f(a,2));
end.

будет 215. Смысл такого порядка выполнения - вычисляется второе выражение, результат кладется в стек. Вычиляется первое и сразу из результата вычитает то что в стеке было.. Т.е. как бы компилятор соптимизировал