Im stuck and I cant figure out how to finish my assignment.

November 12, 2015 at 20:39:24
Specs: Windows 10
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;
begin

end.


See More: Im stuck and I cant figure out how to finish my assignment.

Report •

#1
November 13, 2015 at 02:04:26
What is your problem? You seem to have written the appropriate Procedures; now you just have to call them from your main program.

Report •
Related Solutions


Ask Question