home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / m2t-2.zip / ANSWERS / CH03E1.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  62 lines

  1.                             (* Chapter 3 - Programming exercise 1 *)
  2. MODULE CH03E1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn, WriteCard, Write;
  5.  
  6. VAR Lettera : CHAR;
  7.     Letterz : CHAR;
  8.     Number0 : CHAR;
  9.     Number9 : CHAR;
  10.     La, Lz, N0, N9 : CARDINAL;
  11.  
  12. BEGIN
  13.  
  14.    Lettera := 'a';
  15.    Letterz := 'z';
  16.    Number0 := '0';
  17.    Number9 := '9';
  18.  
  19.    La := ORD(Lettera);
  20.    Lz := ORD(Letterz);
  21.    N0 := ORD(Number0);
  22.    N9 := ORD(Number9);
  23.  
  24.    WriteString("The character ");
  25.    Write(Lettera);
  26.    WriteString(" has the value of ");
  27.    WriteCard(La,2);
  28.    WriteLn;
  29.  
  30.    WriteString("The character ");
  31.    Write(Letterz);
  32.    WriteString(" has the value of ");
  33.    WriteCard(Lz,2);
  34.    WriteLn;
  35.  
  36.    WriteString("The character ");
  37.    Write(Number0);
  38.    WriteString(" has the value of ");
  39.    WriteCard(N0,2);
  40.    WriteLn;
  41.  
  42.    WriteString("The character ");
  43.    Write(Number9);
  44.    WriteString(" has the value of ");
  45.    WriteCard(N9,2);
  46.    WriteLn;
  47.  
  48. END CH03E1.
  49.  
  50.  
  51.  
  52.  
  53. (* Result of execution
  54.  
  55. The character a has the value of 97
  56. The character z has the value of 122
  57. The character 0 has the value of 48
  58. The character 9 has the value of 57
  59.  
  60. *)
  61.  
  62.