Advertisement
Guest User

Untitled

a guest
Jan 5th, 2016
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ada 0.70 KB | None | 0 0
  1. pragma Assertion_Policy(Check);
  2.  
  3. package body Calculator is
  4.   function Addition(
  5.     Input1 : in Integer;
  6.     Input2 : in Integer)
  7.       return Integer is
  8.   begin
  9.     return Input1 + Input2;
  10.   end Addition;
  11.  
  12.   function Subtraction(
  13.     Input1 : in Integer;
  14.     Input2 : in Integer)
  15.       return Integer is
  16.   begin
  17.     return Input1 - Input2;
  18.   end Subtraction;
  19.  
  20.   function Multiplication(
  21.     Input1 : in Integer;
  22.     Input2 : in Integer)
  23.       return Integer is
  24.   begin
  25.     return Input1 * Input2;
  26.   end Multiplication;
  27.  
  28.   function Division(
  29.     Input1 : in Integer;
  30.     Input2 : in Integer)
  31.       return Integer is
  32.   begin
  33.     return Input1 / Input2;
  34.   end Division;
  35. end Calculator;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement