home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG14A.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-04  |  850 b   |  42 lines
  1. PROGRAM PROG14A;
  2. {       Copyright (C), 1988 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Procedure declaration
  5.                  Using procedures
  6.                  Using parameters
  7.                  Counter with error checking
  8.  
  9. }
  10.  
  11. VAR
  12.   Count, Adjusted_Count  : Integer;
  13.   I, J, K                : Integer;
  14.  
  15. PROCEDURE Add(No_1, No_2 : Integer; VAR Sum : Integer);
  16.  
  17. BEGIN
  18.     Sum := No_1 + No_2
  19. END;
  20.  
  21. PROCEDURE Increment(VAR Count : Integer);
  22. BEGIN
  23.   If Count < 32767
  24.     THEN
  25.       Count := Count + 1
  26.     ELSE
  27.       WriteLn('Counter reached upper limit');
  28. END;
  29.  
  30. BEGIN
  31.   Write('Enter count: ');
  32.   ReadLn(Count);
  33.   Add(2, Count, Adjusted_Count);
  34.   WriteLn('Adjusted Count is: ', Adjusted_Count);
  35.  
  36.   FOR I := 1 to 10 DO
  37.     BEGIN
  38.       Increment(Count);
  39.       WriteLn('Count = ', Count);
  40.     END;
  41. END.
  42.