view ply-3.8/example/BASIC/sales.bas @ 12114:9c7bd01f6d39 draft

<fizzie> sled /hackenv/bin/mislearn//s|tmflry/|$HACKENV/tmflry/|
author HackEso <hackeso@esolangs.org>
date Sat, 16 Nov 2019 22:48:35 +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