Summation loop program in Pascal
- by user2526598
I am having a bit of an issue with this problem. I am taking a Pascal programming class and this problem was in my logic book. I am required to have the user enter a series of (+) numbers and once he/she enters a (-) number, the program should find the sum of all the (+) numbers. I accomplished this, but now I am attempting part two of this problem, which requires me to utilize a nested loop to run the program x amount of times based on the user's input.
The following code is what I have so far and honestly I am stumped:
program summation;
//Define main program's variables
var num, sum, numRun : integer;
//Design procedure that will promt user for number of runs
procedure numRunLoop ( var numRun : integer );
begin
writeln('How many times shall I run this program?');
readln(numRun);
end;
//Design procedure that will sum a series of numbers
//based on user input
procedure numPromptLoop( numRun : integer; var num : integer );
var count : integer;
begin
//Utilize for to establish run limit
for count := 1 to numRun do
begin
//Use repeat to prompt user for numbers
repeat
writeln('Enter a number: ');
readln(num);
//Tells program when to sum
if num >= 0 then
sum := sum + num;
until num < 0;
end;
end;
//Design procedure that will display
procedure addItion( sum : integer );
begin
writeln('The sum is; ', sum);
end;
begin
numRunLoop(numRun);
numPromptloop(numRun, num);
addItion(sum);
readln();
end.
