d_lib.LST 288 B

1234567891011121314
  1. Listing:
  2. 1 DEFINITION MODULE DLib;
  3. 2 CONST step = 5;
  4. 3 VAR counter : INTEGER;
  5. 4 TYPE Vec = ARRAY [0 .. 3] OF INTEGER;
  6. 5 TYPE Point = RECORD x, y : INTEGER END;
  7. 6 PROCEDURE Add(n : INTEGER);
  8. 7 PROCEDURE Get() : INTEGER;
  9. 8 END DLib.
  10. 0 errors