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

How long do you think until flying cars or taxis are common?

Discuss in The Lounge

Poll History