home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / icon / dos / src / tests / numeric.icn < prev    next >
Text File  |  1992-02-09  |  7KB  |  193 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write("integer(2) ----> ",image(integer(2)) | "none")
  5.    write("integer(\"2\") ----> ",image(integer("2")) | "none")
  6.    write("integer(\" 2\") ----> ",image(integer(" 2")) | "none")
  7.    write("integer(\"2 \") ----> ",image(integer("2 ")) | "none")
  8.    write("integer(\"+2\") ----> ",image(integer("+2")) | "none")
  9.    write("integer(\"-2\") ----> ",image(integer("-2")) | "none")
  10.    write("integer(\"- 2\") ----> ",image(integer("- 2")) | "none")
  11.    write("integer(\" -    2 \") ----> ",image(integer(" -    2 ")) | "none")
  12.    write("integer(\"\") ----> ",image(integer("")) | "none")
  13. end
  14.  
  15. procedure p2()
  16.    write("integer(\"--2\") ----> ",image(integer("--2")) | "none")
  17.    write("integer(\" \") ----> ",image(integer(" ")) | "none")
  18.    write("integer(\"-\") ----> ",image(integer("-")) | "none")
  19.    write("integer(\"+\") ----> ",image(integer("+")) | "none")
  20.    write("integer(\"7r4\") ----> ",image(integer("7r4")) | "none")
  21. end
  22.  
  23. procedure p3()
  24.    write("integer(\"4r7\") ----> ",image(integer("4r7")) | "none")
  25.    write("integer(\"4r 7\") ----> ",image(integer("4r 7")) | "none")
  26.    write("integer(\"7r 4\") ----> ",image(integer("7r 4")) | "none")
  27.    write("integer(\"16rff\") ----> ",image(integer("16rff")) | "none")
  28.    write("integer(\"36rcat\") ----> ",image(integer("36rcat")) | "none")
  29.    write("integer(\"36Rcat\") ----> ",image(integer("36Rcat")) | "none")
  30.    write("integer(\"36rCAT\") ----> ",image(integer("36rCAT")) | "none")
  31.    write("integer(\"1r1\") ----> ",image(integer("1r1")) | "none")
  32.    write("integer(\"2r0\") ----> ",image(integer("2r0")) | "none")
  33.    write("integer(integer) ----> ",image(integer(integer)) | "none")
  34.    write("integer := abs ----> ",image(integer := abs) | "none")
  35. end
  36.  
  37. procedure p4()
  38.    write("numeric(2) ----> ",image(numeric(2)) | "none")
  39.    write("numeric(\"2\") ----> ",image(numeric("2")) | "none")
  40.    write("numeric(\" 2\") ----> ",image(numeric(" 2")) | "none")
  41.    write("numeric(\"2 \") ----> ",image(numeric("2 ")) | "none")
  42.    write("numeric(\"+2\") ----> ",image(numeric("+2")) | "none")
  43.    write("numeric(\"-2\") ----> ",image(numeric("-2")) | "none")
  44.    write("numeric(\"- 2\") ----> ",image(numeric("- 2")) | "none")
  45.    write("numeric(\" -    2 \") ----> ",image(numeric(" -    2 ")) | "none")
  46.    write("numeric(\"\") ----> ",image(numeric("")) | "none")
  47. end
  48.  
  49. procedure p5()
  50.    write("numeric(\"--2\") ----> ",image(numeric("--2")) | "none")
  51.    write("numeric(\" \") ----> ",image(numeric(" ")) | "none")
  52.    write("numeric(\"-\") ----> ",image(numeric("-")) | "none")
  53.    write("numeric(\"+\") ----> ",image(numeric("+")) | "none")
  54.    write("numeric(\"7r4\") ----> ",image(numeric("7r4")) | "none")
  55. end
  56.  
  57. procedure p6()
  58.    write("numeric(\"4r7\") ----> ",image(numeric("4r7")) | "none")
  59.    write("numeric(\"4r 7\") ----> ",image(numeric("4r 7")) | "none")
  60.    write("numeric(\"7r 4\") ----> ",image(numeric("7r 4")) | "none")
  61.    write("numeric(\"16rff\") ----> ",image(numeric("16rff")) | "none")
  62.    write("numeric(\"36rcat\") ----> ",image(numeric("36rcat")) | "none")
  63.    write("numeric(\"36Rcat\") ----> ",image(numeric("36Rcat")) | "none")
  64.    write("numeric(\"36rCAT\") ----> ",image(numeric("36rCAT")) | "none")
  65.    write("numeric(\"1r1\") ----> ",image(numeric("1r1")) | "none")
  66.    write("numeric(\"2r0\") ----> ",image(numeric("2r0")) | "none")
  67. end
  68.  
  69. procedure p9()
  70.    write("100 - - 4 ----> ",image(100 - - 4) | "none")
  71.    write("100 --4 ----> ",image(100 --4) | "none")
  72.    write("100- - 4 ----> ",image(100- - 4) | "none")
  73.    write("100 -- 4 ----> ",image(100 -- 4) | "none")
  74.    write("100 - -4 ----> ",image(100 - -4) | "none")
  75. end
  76.  
  77. procedure p10()
  78.    write("abs(1) ----> ",image(abs(1)) | "none")
  79.    write("abs(-1) ----> ",image(abs(-1)) | "none")
  80.    write("abs(0) ----> ",image(abs(0)) | "none")
  81.    write("36 % 7 ----> ",image(36 % 7) | "none")
  82.    write("-36 % 7 ----> ",image(-36 % 7) | "none")
  83.    write("36 % -7 ----> ",image(36 % -7) | "none")
  84.    write("-36 % -7 ----> ",image(-36 % -7) | "none")
  85. end
  86.  
  87. procedure p11()
  88.    write("36 * 9 ----> ",image(36 * 9) | "none")
  89.    write("-36 * 9 ----> ",image(-36 * 9) | "none")
  90.    write("36 * -9 ----> ",image(36 * -9) | "none")
  91.    write("-36 * -9 ----> ",image(-36 * -9) | "none")
  92. end
  93.  
  94. procedure p12()
  95.    write("36 / 9 ----> ",image(36 / 9) | "none")
  96.    write("-36 / 9 ----> ",image(-36 / 9) | "none")
  97.    write("36 / -9 ----> ",image(36 / -9) | "none")
  98.    write("-36 / -9 ----> ",image(-36 / -9) | "none")
  99. end
  100.  
  101. procedure p13()
  102.    write("36 + 9 ----> ",image(36 + 9) | "none")
  103.    write("-36 + 9 ----> ",image(-36 + 9) | "none")
  104.    write("36 + -9 ----> ",image(36 + -9) | "none")
  105.    write("-36 + -9 ----> ",image(-36 + -9) | "none")
  106. end
  107.  
  108. procedure p14()
  109.    write("36 ^ -9 ----> ",image(36 ^ -9) | "none")
  110.    write("1 < 1 ----> ",image(1 < 1) | "none")
  111.    write("1 < 2 ----> ",image(1 < 2) | "none")
  112.    write("1 < 0 ----> ",image(1 < 0) | "none")
  113.    write("-1 < 0 ----> ",image(-1 < 0) | "none")
  114.    write("1 < -2 ----> ",image(1 < -2) | "none")
  115.    write("-1 < -0 ----> ",image(-1 < -0) | "none")
  116. end
  117.  
  118. procedure p15()
  119.    write("1 > 1 ----> ",image(1 > 1) | "none")
  120.    write("1 > 2 ----> ",image(1 > 2) | "none")
  121.    write("1 > 0 ----> ",image(1 > 0) | "none")
  122.    write("-1 > 0 ----> ",image(-1 > 0) | "none")
  123.    write("1 > -2 ----> ",image(1 > -2) | "none")
  124. end
  125.  
  126. procedure p16()
  127.    write("-1 > -0 ----> ",image(-1 > -0) | "none")
  128.    write("1 <= 1 ----> ",image(1 <= 1) | "none")
  129.    write("1 <= 2 ----> ",image(1 <= 2) | "none")
  130.    write("1 <= 0 ----> ",image(1 <= 0) | "none")
  131.    write("-1 <= 0 ----> ",image(-1 <= 0) | "none")
  132. end
  133.  
  134. procedure p17()
  135.    write("1 <= -2 ----> ",image(1 <= -2) | "none")
  136.    write("-1 <= -0 ----> ",image(-1 <= -0) | "none")
  137.    write("1 >= 1 ----> ",image(1 >= 1) | "none")
  138.    write("1 >= 2 ----> ",image(1 >= 2) | "none")
  139.    write("1 >= 0 ----> ",image(1 >= 0) | "none")
  140. end
  141.  
  142. procedure p18()
  143.    write("-1 >= 0 ----> ",image(-1 >= 0) | "none")
  144.    write("1 >= -2 ----> ",image(1 >= -2) | "none")
  145.    write("-1 >= -0 ----> ",image(-1 >= -0) | "none")
  146.    write("1 = 1 ----> ",image(1 = 1) | "none")
  147.    write("1 = 2 ----> ",image(1 = 2) | "none")
  148. end
  149.  
  150. procedure p19()
  151.    write("1 = 0 ----> ",image(1 = 0) | "none")
  152.    write("-1 = 0 ----> ",image(-1 = 0) | "none")
  153.    write("1 = -2 ----> ",image(1 = -2) | "none")
  154.    write("-1 = -0 ----> ",image(-1 = -0) | "none")
  155.    write("1 ~= 1 ----> ",image(1 ~= 1) | "none")
  156. end
  157.  
  158. procedure p20()
  159.    write("1 ~= 2 ----> ",image(1 ~= 2) | "none")
  160.    write("1 ~= 0 ----> ",image(1 ~= 0) | "none")
  161.    write("-1 ~= 0 ----> ",image(-1 ~= 0) | "none")
  162.    write("1 ~= -2 ----> ",image(1 ~= -2) | "none")
  163.    write("-1 ~= -0 ----> ",image(-1 ~= -0) | "none")
  164. end
  165.  
  166. procedure p21()
  167.    write("36 ^ -9 ----> ",image(36 ^ -9) | "none")
  168.    write("-36 ^ -9 ----> ",image(-36 ^ -9) | "none")
  169. end
  170.  
  171. procedure main()
  172.    p1()
  173.    p2()
  174.    p3()
  175.    p4()
  176.    p5()
  177.    p6()
  178.    p9()
  179.    p10()
  180.    p11()
  181.    p12()
  182.    p13()
  183.    p14()
  184.    p15()
  185.    p16()
  186.    p17()
  187.    p18()
  188.    p19()
  189.    p20()
  190.    p21()
  191. end
  192.  
  193.