home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PASTUT34 / PROC.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-03  |  2KB  |  45 lines
  1. program ProcedureDemo;
  2.  
  3. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  4. { Program to illustrate the use of a procedure with parameters.        }
  5. { The procedure simply creates a Times Table for the entered value of  }
  6. { the multiplicand, or base, for the range of multiplier values also   }
  7. { entered by the user. The procedure is called TimesTable and has the  }
  8. { three parameters: BaseValue, Lower and Upper.                        }
  9. {                                                                      }
  10. { PROC.PAS  -> PROC.EXE      R Shaw            13.1.93                 }
  11. {______________________________________________________________________}
  12.  
  13. uses Crt;        {The Crt unit contains the procedure to clear the screen.}
  14.  
  15. var
  16.    Base, LowLimit, TopLimit, i : integer;
  17.  
  18. procedure TimesTable(BaseValue,Lower,Upper: integer);
  19. begin
  20.    writeln;
  21.    writeln(BaseValue,' Times Table');
  22.    writeln;
  23.    For i:=Lower to Upper do writeln(BaseValue:2,' * ',i:2,' = ',BaseValue*i:5);
  24. end;
  25.  
  26. {Main}
  27.  
  28. begin
  29.    ClrScr;
  30.    writeln('MULTIPLICATION TABLE FOR SELECTED MULTIPLICAND AND RANGE OF MULTIPLIERS.');
  31.    writeln;
  32.    writeln('Please enter the data for multiplicand or base value and multipliers.');
  33.    writeln('when requested and press the ENTER key after each entry (all < 100).');
  34.    writeln;
  35.    write('Multiplicand    : ');
  36.    readln(Base);
  37.    write('Lower multiplier: ');
  38.    readln(LowLimit);
  39.    write('Upper multiplier: ');
  40.    readln(TopLimit);
  41.    TimesTable(Base,LowLimit,TopLimit);
  42.    writeln;
  43.    write('Press any key to conclude.');
  44.    repeat until keypressed;
  45. end.