Assignments | -= / +=

Smart pascal source code


{ unit1.pas }
procedure ShowMsgIJ;
begin
   WriteLn(IntToStr(i)+' / '+IntToStr(j));
end;

var
  i : Integer = 0;
  j : Integer = 1;
  
Begin
ShowMsgIJ;

i:=i;
j:=j;

ShowMsgIJ;

i:=i-1;
j:=j+1;

ShowMsgIJ;

i:=i-j;
j:=j+i;

ShowMsgIJ;

i:=-i;
j:=j+j;

ShowMsgIJ;

{
   0 / 1
   0 / 1
  -1 / 2
  -3 / -1
   3 / -2

}

      var i = 0;
      var j = 1;
      function ShowMsgIJ() {
         WriteLn((i.toString()+" \/ "+j.toString()));
      };
      ShowMsgIJ();
      i = i;
      j = j;
      ShowMsgIJ();
      i-=1;
      j+=1;
      ShowMsgIJ();
      i-=j;
      j+=i;
      ShowMsgIJ();
      i = -i;
      j+=j;
      ShowMsgIJ();