008.Ada语言的整数运算

with Ada.Text_IO,Ada.Integer_Text_IO;
use Ada.Text_IO,Ada.Integer_Text_IO;

procedure MoreInts is
   
   Index_1			:Integer;
   Index_2,Index_3,Index_4	:Integer;
   Cat				:Integer :=12;
   Dog				:Integer :=-5;
   Pig,Hog,Sow			:Integer :=1000;
   
begin
   
   Index_1:=Cat+4;		-- index_1 is 16
   Index_2:=Dog-3;		-- index_2 is -8
   Index_3:=Pig*7;		-- index_3 is 7000
   Index_4:=Pig/300;		-- index_4 is 3
   
   Put("Index_1 = ");Put(Index_1);New_Line;
   Put("Index_2 = ");Put(Index_2);New_Line;
   Put("Index_3 = ");Put(Index_3);New_Line;
   Put("Index_4 = ");Put(Index_4);New_Line(2);
   
   Index_1:=5*Cat-Pig/4;	-- index_1 is -190
   Index_2:=(5*Cat)-(Pig/4);	-- index_2 is -190
   Index_3:=Pig mod 3;		-- index_3 is 1
   Index_4:=Pig rem 3;		-- index_4 is 1
   
   Put("Index_1 = ");Put(Index_1);New_Line;
   Put("Index_2 = ");Put(Index_2);New_Line;
   Put("Index_3 = ");Put(Index_3);New_Line;
   Put("Index_4 = ");Put(Index_4);New_Line(2);
   
   Index_1:=abs(Dog);		-- index_1 is 5
   Index_2:=Cat**3;		-- Index_2 is 1728
   Index_3:=(Cat-5)**(abs(Dog)-2); -- index_3 is 343
   Index_4:=-Index_3;		-- Index_4 is -343
   
   Put("Index_1 = ");Put(Index_1);New_Line;
   Put("Index_2 = ");Put(Index_2);New_Line;
   Put("Index_3 = ");Put(Index_3);New_Line;
   Put("Index_4 = ");Put(Index_4);New_Line(2);
   
  end MoreInts;
   
   
   
   

注意：
        mod - 获取第二个运算符的符号。
        rem - 获取第一个运算符的符号。