home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p3 / tst / records2.out.bak < prev    next >
Text File  |  2005-10-24  |  876b  |  132 lines
  1. i
  2. integer
  3. 0
  4. VAR
  5. Complex
  6. r
  7. real
  8. i
  9. real
  10. TYPE
  11. Pair
  12. first
  13. Complex
  14. second
  15. Complex
  16. TYPE
  17. c
  18. Complex
  19. Complex
  20. r
  21. 0.0
  22. i
  23. 0.0
  24. VAR
  25. p
  26. Pair
  27. Pair
  28. first
  29. Complex
  30. r
  31. 0.0
  32. i
  33. 0.0
  34. second
  35. Complex
  36. r
  37. 0.0
  38. i
  39. 0.0
  40. VAR
  41. print
  42. PROCEDURE
  43. WRITE
  44. "    ("
  45. c
  46. r
  47. ", "
  48. c
  49. i
  50. ")"
  51. ENDWRITE
  52. c
  53. r
  54. ASSIGN
  55. 1.0
  56. ENDASSIGN
  57. c
  58. i
  59. ASSIGN
  60. 0.0
  61. ENDASSIGN
  62. p
  63. first
  64. ASSIGN
  65. c
  66. ENDASSIGN
  67. c
  68. r
  69. ASSIGN
  70. 0.0
  71. ENDASSIGN
  72. c
  73. i
  74. ASSIGN
  75. 1.0
  76. ENDASSIGN
  77. p
  78. second
  79. ASSIGN
  80. c
  81. ENDASSIGN
  82. c
  83. ASSIGN
  84. p
  85. first
  86. ENDASSIGN
  87. WRITE
  88. "The first complex number should be (1.0, 0.0):"
  89. ENDWRITE
  90. print
  91. CALL
  92. ENDCALL
  93. c
  94. ASSIGN
  95. p
  96. second
  97. ENDASSIGN
  98. WRITE
  99. "The second complex number should be (0.0, 1.0):"
  100. ENDWRITE
  101. print
  102. CALL
  103. ENDCALL
  104. IF
  105. p
  106. first
  107. r
  108. p
  109. second
  110. r
  111. NEQ
  112. THEN
  113. WRITE
  114. "and these two complex numbers are not equal!"
  115. ENDWRITE
  116. ELSEIF
  117. p
  118. first
  119. i
  120. p
  121. second
  122. i
  123. NEQ
  124. WRITE
  125. "and these two complex numbers are not equal!"
  126. ENDWRITE
  127. ELSE
  128. WRITE
  129. "and these two complex numbers are equal?"
  130. ENDWRITE
  131. ENDIF
  132.