Two's complement: Difference between revisions
no edit summary
(Add Jakt) |
No edit summary |
||
Line 85:
<syntaxhighlight lang="c">int a = 3;
a = -a;</syntaxhighlight>
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
<syntaxhighlight lang="Delphi">
procedure TwosCompliment(Memo: TMemo);
var N: integer;
begin
N:=123456789;
Memo.Lines.Add(Format('N=%10d $%0.8x',[N,N]));
Memo.Lines.Add('');
Memo.Lines.Add('N:=(N xor $FFFFFFFF)+1');
N:=(N xor $FFFFFFFF)+1;
Memo.Lines.Add('');
Memo.Lines.Add(Format('N=%10d $%0.8x',[N,N]));
end;
</syntaxhighlight>
{{out}}
<pre>
N= 123456789 $075BCD15
N:=(N xor $FFFFFFFF)+1
N=-123456789 $F8A432EB
Elapsed Time: 5.206 ms.
</pre>
=={{header|Forth}}==
| |||