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

Do you think Samsung's Bixby will compete well against other phone AI systems?

Discuss in The Lounge

Poll History