Massive calculation fail [solved]

[Gizd]

We all(i think) know that (a-b) = -(b-a), all except soldat server, which also creates non-arithmetic sequences out of arithmetic sequence formulas...

Code: [Select]

B= 6;
A= ( 693 / (B-1) );

i: byte;
j: single;
k: single;

k:= -600;
for i:= 0 to (B - 1) do begin
  [...]
  j:= k - (i * A);
  WriteLnFile([...],IntToStr(i) + ': ' + FloatToStr(j));
 
  if ( -( (i * A) - k ) ) = (k - (i * A)) then WriteLnFile('soldat can haz maths');
 
  [...]
end;

  OUTPUT IN FILE:
0: -600
soldat can haz maths
1: -738
soldat can haz maths
2: -620
3: -758
4: -640
5: -778

I just don't know what else to say... help?

[VirtualTT]

Code: (pascal) [Select]

i: longint;

[Gizd]

Oh right, I forgot about variable types influencing calculation in unpredictable ways. Thanks.

[Falcon`]

is that only my feeling or there are really part of lolcode inside of it?

[VirtualTT]

check this out:

Code: (pascal) [Select]

procedure ActivateServer();
var
i: integer;
begin
i:= 214;
writeln(inttostr(i) + ' shl=' + inttostr(i shl 1) + ' *2=' + inttostr(i * 2) + ' shr=' + inttostr(i shr 1) + ' /2=' + inttostr(i / 2));
i:= i * -1;
writeln(inttostr(i) + ' shl=' + inttostr(i shl 1) + ' *2=' + inttostr(i * 2) + ' shr=' + inttostr(i shr 1) + ' /2=' + inttostr(i / 2));
end;output:

Code: [Select]

214 shl=428 *2=428 shr=107 /2=107
-214 shl=-428 *2=-428 shr=2147483541 /2=-107My guess is that it always treats value as unsigned.