Anonymous user
Arithmetic/Integer: Difference between revisions
Added Delphi example
(Add Seed7 example) |
(Added Delphi example) |
||
Line 458:
[mod: ]P la lb % p sz [sign matches first operand]sz
[pow: ]P la lb ^ p sz</lang>
=={{header|Delphi}}==
<lang Delphi>program IntegerArithmetic;
{$APPTYPE CONSOLE}
uses SysUtils, Math;
var
a, b: Integer;
begin
a := StrToInt(ParamStr(1));
b := StrToInt(ParamStr(2));
WriteLn(Format('%d + %d = %d', [a, b, a + b]));
WriteLn(Format('%d - %d = %d', [a, b, a - b]));
WriteLn(Format('%d * %d = %d', [a, b, a * b]));
WriteLn(Format('%d / %d = %d', [a, b, a div b])); // rounds towards 0
WriteLn(Format('%d %% %d = %d', [a, b, a mod b])); // matches sign of the first operand
WriteLn(Format('%d ^ %d = %d', [a, b, Trunc(Power(a, b))]));
end.</lang>
=={{header|E}}==
| |||