freepascal.ru

Код: Выделить всё

var
        a:string;
        i:integer;

        function f1(b:string):integer;
        begin
                inc(i);
                writeln('f#',i);
                f1:=ord(b[1]);
                writeln(chr(f1));
                delete(a,1,1);
                writeln
        end;

        procedure p1(a,b,c:integer);
        begin
                writeln(chr(a));
                writeln(chr(b));
                writeln(chr(c))
        end;

begin
        i:=0;
        readln(a);
        p1(f1(a),f1(a),f1(a));
        readln
end.


Код: Выделить всё

var
  t1,t2,t3: integer;
begin
  t1:=f1(a);
  t2:=f1(a);
  t3:=f1(a);
  p1(t1,t2,t3);
end;


Ro_jA писал(а):Непонятно, почему в документации ни слова на этот счет.

Remark: The order in which expressions of the same precedence are evaluated is not guaranteed to be left-to-right. In general, no assumptions on which expression is evaluated first should be made in such a case. The compiler will decide which expression to evaluate first based on optimization rules. Thus, in the following expression:

a := g(3) + f(2);
f(2) may be executed before g(3). This behaviour is distinctly different from Delphi or Turbo Pascal.

If one expression must be executed before the other, it is necessary to split up the statement using temporary results:

e1 := g(3);
a := e1 + f(2);

Mirage писал(а):Т.к. он неопределенный в общем случае.