home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG043.ARC / PROG12.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  512b  |  28 lines
  1. PROGRAM PROG12;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Error detection
  5.                  Using a predefined function
  6.  
  7. }
  8.  
  9. VAR
  10.   No : Integer;
  11.  
  12. FUNCTION Cube(Number:Integer) : Integer;
  13.  
  14. BEGIN
  15.   If (Number < -32) OR (Number > 31)
  16.     THEN
  17.       Cube := 0
  18.     ELSE
  19.       Cube := Number * Number * Number;
  20. END;
  21.  
  22.  
  23. BEGIN
  24.   Write('Enter a number: ');
  25.   ReadLn(No);
  26.   WriteLn('The cube is: ', Cube(No) );
  27. END.
  28.