PPL PRINT Function
07-26-2015, 10:51 AM
Post: #1
 smp Senior Member Posts: 463 Joined: Jul 2015
PPL PRINT Function
I am on my third day with my new Prime, and I'm loving it.

To try out PPL for the first time, I entered one of my favorite programs - how many ways to make \$1.00 from change. It's a simple set of four nested FOR-NEXT statements with a test in the middle for whether or not the current combination of pennies, nickels, dimes and quarters add up to 100.

In the middle, I like to also print out those combinations that add up to 100. Usually, something like this: P: w N: x D: y Q: z all on one line for each combination.

I have not yet found how to make the PPL PRINT function print anything more than one thing on a line, so I am getting this instead:
P: w
N: x
D: y
Q: z

This is not very display friendly as everything is run together vertically.

Can anyone tell me how to PRINT more than one thing on a line?

Code:
EXPORT Dollar() BEGIN PRINT(); C:=0; FOR P FROM 0 TO 100 STEP 5 DO FOR N FROM 0 TO 20 DO FOR D FROM 0 TO 10 DO FOR Q FROM 0 TO 4 DO IF P+(N*5)+(D*10)+(Q*25)=100 THEN C:=C+1; PRINT("P:" +P); PRINT("N:" +N); PRINT("D:" +D); PRINT("Q:" +Q) END; END; END; END; END; MSGBOX("ways_to_make_a_dollar="+C) END;