home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH03E2.MOD < prev    next >
Text File  |  1989-01-18  |  549b  |  30 lines
  1.                             (* Chapter 3 - Programming exercise 2 *)
  2. MODULE CH03E2;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6. VAR CardNumber : CARDINAL;
  7.     IntNumber  : INTEGER;
  8.     CharValue  : CHAR;
  9.  
  10. BEGIN
  11.  
  12.    IntNumber := -1;
  13.    CardNumber := IntNumber;  (* Execution error *)
  14.  
  15.    CharValue := 'A';
  16.    CardNumber := CharValue;  (* Compile error *)
  17.  
  18. END CH03E2.
  19.  
  20.  
  21.  
  22.  
  23. (* Result of execution
  24.  
  25. (The programs contains errors. It will not compile or execute.)
  26. (Remove the compile errors to see the executable errors.)
  27.  
  28. *)
  29.  
  30.