view ply-3.8/example/BASIC/sales.bas @ 9538:780c4584c9fd

<shachaf> sled bin/hlnp//s/hg log/revset=tip:0 \\& ! (9071 | 9070 | 5897 | 5895)\\nhg log -r "$revset"/
author HackBot
date Sun, 30 Oct 2016 10:55:40 +0000
parents 343ff337a19b
children
line wrap: on
line source

10 FOR I = 1 TO 3
20 READ P(I)
30 NEXT I
40 FOR I = 1 TO 3
50 FOR J = 1 TO 5
60 READ S(I,J)
70 NEXT J
80 NEXT I
90 FOR J = 1 TO 5
100 LET S = 0
110 FOR I = 1 TO 3
120 LET S = S + P(I) * S(I,J)
130 NEXT I
140 PRINT "TOTAL SALES FOR SALESMAN"J, "$"S
150 NEXT J
200 DATA 1.25, 4.30, 2.50
210 DATA 40, 20, 37, 29, 42
220 DATA 10, 16, 3, 21, 8
230 DATA 35, 47, 29, 16, 33
300 END