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

[-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 22:26

[-Eni-]

в общем получилось так
Сначала вычисляется значение f(a) = 1 и помещается в стек, потом опять береться значение и помещается так же в этот же стек оно равно 6.. а дальше ) все как по маслу.. подставляется первое значение из стека, а потом второе... то есть получается такая фиговина - writeln('Ответ = ', 6 - 1);
откуда и выходит пятерочка, а не минус пятерачка ))))

всем спасибо