I need help finishing a multiplication table using Pascal. I dont know how difficult this will be to read because of copy/paste formatting. Any help is greatly appreciated VAR

topbound : integer {get top bound from user};

leftbound : integer {get left bound from user};

number : integer {sum of multiplied bounds};

bounds : integer {find bounds of table};{ }

{Procedure: Intro }

{Purpose: Introduction}

{ }

PROCEDURE Intro;

BEGIN

writeln ('Welcome to the Multiplication Table program.');

END;{ }

{Procedure: Get Bounds }

{Purpose: Get Bounds from user}

{ }

PROCEDURE GetBounds (VAR tb, lb : integer);

BEGIN

writeln ('Please enter the top bound:');

readln (tb);

writeln;

writeln ('Please enter the left bound:');

readln (lb);

writeln;

END;

{ }

{Procedure: Print Table }

{Purpose: Print multiplication table using input}

{ }

PROCEDURE PrintTable (tob, leb : integer; VAR bo, num : integer);

BEGIN

FOR bo := (tob) to (leb)

DO BEGIN

num := (tob * leb);

END;END;

beginend.

What is your problem? You seem to have written the appropriate Procedures; now you just have to call them from your main program.

Ask Your Question

Weekly Poll