Arithmetic/Integer: Difference between revisions

Content added Content deleted
(Vedit macro language)
No edit summary
Line 4: Line 4:


=={{header|Ada}}==
=={{header|Ada}}==
<ada> with Ada.Text_Io;
<ada>with Ada.Text_Io;
with Ada.Integer_Text_IO;
with Ada.Integer_Text_IO;

procedure Integer_Arithmetic is
procedure Integer_Arithmetic is
use Ada.Text_IO;
use Ada.Text_IO;
use Ada.Integer_Text_Io;
use Ada.Integer_Text_Io;

A, B : Integer;
A, B : Integer;
begin
begin
Get(A);
Get(A);
Get(B);
Get(B);
Put_Line("a+b = " & Integer'Image(A + B));
Put_Line("a+b = " & Integer'Image(A + B));
Put_Line("a-b = " & Integer'Image(A - B));
Put_Line("a-b = " & Integer'Image(A - B));
Put_Line("a*b = " & Integer'Image(A * B));
Put_Line("a*b = " & Integer'Image(A * B));
Put_Line("a/b = " & Integer'Image(A / B) & ", remainder " & Integer'Image(A mod B));
Put_Line("a/b = " & Integer'Image(A / B) & ", remainder " & Integer'Image(A mod B));
end Integer_Arithmetic;</ada>
end Integer_Arithmetic;</ada>


=={{header|AWK}}==
=={{header|AWK}}==
Line 39: Line 39:


=={{header|C}}==
=={{header|C}}==
#include <stdio.h>
<c>#include <stdio.h>
#include <stdlib.h>
#include <stdlib.h>

int main(int argc, char *argv[])
int main(int argc, char *argv[])
{
{
int a, b;
int a, b;
if (argc < 3) exit(1);
if (argc < 3) exit(1);
b = atoi(argv[--argc]);
b = atoi(argv[--argc]);
if (b == 0) exit(2);
if (b == 0) exit(2);
a = atoi(argv[--argc]);
a = atoi(argv[--argc]);
printf("a+b = %d\n", a+b);
printf("a+b = %d\n", a+b);
printf("a-b = %d\n", a-b);
printf("a-b = %d\n", a-b);
printf("a*b = %d\n", a*b);
printf("a*b = %d\n", a*b);
printf("a/b = %d\n", a/b);
printf("a/b = %d\n", a/b);
printf("a%%b = %d\n", a%b);
printf("a%%b = %d\n", a%b);
return 0;
return 0;
}</c>
}


=={{header|C++}}==
=={{header|C++}}==
#include <iostream>
<cpp>#include <iostream>

int main()
int main()
{
{
int a, b;
int a, b;
std::cin >> a >> b;
std::cin >> a >> b;
std::cout << "a+b = " << a+b << "\n";
std::cout << "a+b = " << a+b << "\n";
std::cout << "a-b = " << a-b << "\n";
std::cout << "a-b = " << a-b << "\n";
std::cout << "a*b = " << a*b << "\n";
std::cout << "a*b = " << a*b << "\n";
std::cout << "a/b = " << a/b << ", remainder " << a%b << "\n";
std::cout << "a/b = " << a/b << ", remainder " << a%b << "\n";
return 0;
return 0;
}</cpp>
}


=={{header|C sharp|C#}}==
=={{header|C sharp|C#}}==
using System;
<csharp>using System;

class Program
class Program
{
{
static void Main(string[] args)
static void Main(string[] args)
{
{
int a, b;
int a, b;
if (args.Length < 2)
if (args.Length < 2)
return;
return;
b = Convert.ToInt32(args[1]);
b = Convert.ToInt32(args[1]);
if (b == 0)
if (b == 0)
return;
return;
a = Convert.ToInt32(args[0]);
a = Convert.ToInt32(args[0]);
Console.WriteLine("a + b = {0}", a + b);
Console.WriteLine("a + b = {0}", a + b);
Console.WriteLine("a - b = {0}", a - b);
Console.WriteLine("a - b = {0}", a - b);
Console.WriteLine("a * b = {0}", a * b);
Console.WriteLine("a * b = {0}", a * b);
Console.WriteLine("a / b = {0}", a / b);
Console.WriteLine("a / b = {0}", a / b);
Console.WriteLine("a % b = {0}", a % b);
Console.WriteLine("a % b = {0}", a % b);
}
}
}</csharp>
}


=={{header|Common Lisp}}==
=={{header|Common Lisp}}==


(defun arithmetic ()
<lisp>(defun arithmetic ()
(let ((a (read *query-io*)) (b (read *query-io*)))
(let ((a (read *query-io*)) (b (read *query-io*)))
(format t "a + b = ~a~%" (+ a b))
(format t "a + b = ~a~%" (+ a b))
(format t "a - b = ~a~%" (- a b))
(format t "a - b = ~a~%" (- a b))
(format t "a * b = ~a~%" (* a b))
(format t "a * b = ~a~%" (* a b))
(format t "a / b = ~a~%" (/ a b))
(format t "a / b = ~a~%" (/ a b))
(format t "a % b = ~a~%" (mod a b))))
(format t "a % b = ~a~%" (mod a b))))</lisp>


=={{header|D}}==
=={{header|D}}==


import std.stdio, std.string;
<d>import std.stdio, std.string;

void main()
void main()
{
{
auto a = readln().atoi(), b = readln().atoi();
auto a = readln().atoi(), b = readln().atoi();
writefln("a + b = ", a+b);
writefln("a + b = ", a+b);
writefln("a - b = ", a-b);
writefln("a - b = ", a-b);
writefln("a * b = ", a*b);
writefln("a * b = ", a*b);
writefln("a / b = ", a/b);
writefln("a / b = ", a/b);
writefln("a % b = ", a%b);
writefln("a % b = ", a%b);
}</d>
}

=={{header|DOS Batch File}}==
=={{header|DOS Batch File}}==
<pre>@set /P A=Enter 1st Number :
<pre>@set /P A=Enter 1st Number :
Line 168: Line 169:


main = do
main = do
as <- getLine
a <- readLn :: IO Integer
bs <- getLine
b <- readLn :: IO Integer
let
a :: Integer
a = read as
b :: Integer
b = read bs
putStrLn $ "a + b = " ++ show (a + b)
putStrLn $ "a + b = " ++ show (a + b)
putStrLn $ "a - b = " ++ show (a - b)
putStrLn $ "a - b = " ++ show (a - b)
Line 188: Line 184:


=={{header|Java}}==
=={{header|Java}}==
import java.util.Scanner;
<java>import java.util.Scanner;

public static void main(String[] args){
public static void main(String[] args){
Scanner sc = new Scanner(System.in);
Scanner sc = new Scanner(System.in);
int a = sc.nextInt();
int a = sc.nextInt();
int b = sc.nextInt();
int b = sc.nextInt();
int sum = a + b;//integer addition is discouraged in print statements due to confusion with String concatenation
int sum = a + b;//integer addition is discouraged in print statements due to confusion with String concatenation
System.out.println("a + b = " + sum);
System.out.println("a + b = " + sum);
System.out.println("a - b = " + (a - b));
System.out.println("a - b = " + (a - b));
System.out.println("a * b = " + (a * b));
System.out.println("a * b = " + (a * b));
System.out.println("quotient of a / b = " + (a / b));//integer division truncates decimal places
System.out.println("quotient of a / b = " + (a / b));//integer division truncates decimal places
System.out.println("remainder of a / b = " + (a % b));
System.out.println("remainder of a / b = " + (a % b));
}</java>
}


=={{header|Logo}}==
=={{header|Logo}}==
Line 239: Line 235:


=={{header|OCaml}}==
=={{header|OCaml}}==
let _ =
<ocaml>let _ =
let a = read_int ()
let a = read_int ()
and b = read_int () in
and b = read_int () in

Printf.printf "a + b = %d\n" (a + b);
Printf.printf "a + b = %d\n" (a + b);
Printf.printf "a - b = %d\n" (a - b);
Printf.printf "a - b = %d\n" (a - b);
Printf.printf "a * b = %d\n" (a * b);
Printf.printf "a * b = %d\n" (a * b);
Printf.printf "a / b = %d\n" (a / b);
Printf.printf "a / b = %d\n" (a / b);
Printf.printf "a mod b = %d\n" (a mod b)
Printf.printf "a mod b = %d\n" (a mod b)</ocaml>


=={{header|Pascal}}==
=={{header|Pascal}}==
Line 265: Line 261:
=={{header|Perl}}==
=={{header|Perl}}==
{{works with|Perl|5.x}}
{{works with|Perl|5.x}}
my $a = <>;
<perl>my $a = <>;
my $b = <>;
my $b = <>;

print
print
"sum: ", $a + $b, "\n",
"sum: ", $a + $b, "\n",
"difference: ", $a - $b, "\n",
"difference: ", $a - $b, "\n",
"product: ", $a * $b, "\n",
"product: ", $a * $b, "\n",
"integer quotient: ", int($a / $b), "\n",
"integer quotient: ", int($a / $b), "\n",
"remainder: ", $a % $b, "\n"
"remainder: ", $a % $b, "\n"
;
;</perl>


=={{header|Pop11}}==
=={{header|Pop11}}==
Line 292: Line 288:
=={{header|Python}}==
=={{header|Python}}==


x = int(raw_input("Number 1: "))
<python>x = int(raw_input("Number 1: "))
y = int(raw_input("Number 2: "))
y = int(raw_input("Number 2: "))

print "Sum: %d" % (x + y)
print "Sum: %d" % (x + y)
print "Difference: %d" % (x - y)
print "Difference: %d" % (x - y)
print "Product: %d" % (x * y)
print "Product: %d" % (x * y)
print "Quotient: %d" % (x / y) # or x // y for newer python versions.
print "Quotient: %d" % (x / y) # or x // y for newer python versions.
print "Remainder: %d" % (x % y)
print "Remainder: %d" % (x % y)

## Only used to keep the display up when the program ends
## Only used to keep the display up when the program ends
raw_input( )
raw_input( )</python>


=={{header|Raven}}==
=={{header|Raven}}==
Line 317: Line 313:
=={{header|Ruby}}==
=={{header|Ruby}}==


puts 'Enter x and y'
<ruby>puts 'Enter x and y'
x=gets.to_i
x=gets.to_i
y=gets.to_i
y=gets.to_i

puts "Sum: #{x+y}",
puts "Sum: #{x+y}",
"Difference: #{x-y}",
"Difference: #{x-y}",
"Product: #{x*y}",
"Product: #{x*y}",
"Quotient: #{x/y}",
"Quotient: #{x/y}",
"Remainder: #{x%y}"
"Remainder: #{x%y}"</ruby>


=={{header|Scheme}}==
=={{header|Scheme}}==


(define (arithmetic x y)
<scheme>(define (arithmetic x y)
(for-each (lambda (op)
(for-each (lambda (op)
(write (list op x y))
(write (list op x y))
(display " => ")
(display " => ")
(write ((eval op) x y))
(write ((eval op) x y))
(write-char #\newline))
(write-char #\newline))
'(+ - * / quotient remainder modulo max min gcd lcm)))
'(+ - * / quotient remainder modulo max min gcd lcm)))
(arithmetic 8 12)
(arithmetic 8 12)</scheme>
prints this:
prints this: