Radio Shack TRS-80 User Manual page 188

100 D = D +
1
110T=T+R
120
GOTO 70
SAMPLE
RUN FOR
114:
DAY
n
DAILY
RATE
TOTAL
EARNED
1
2
3
5
6
1
.
000000E-02
2E-02
4E-02
8E-02
.
16
.32
1
.000000E-02
3E-02
7E-02
.
15
.
31
.63
ETC
SAMPLE ANSWER FOR
EXERCISE
11-5:
1
REM
*
FIND THE LARGEST AREA
*
5
CLS
10
PRINT "WIRE
FENCE"
."LENGTH"
,
"WIDTH"
."AREA
20
PRINT
" (FEET)"
,
M
(FEET)
30 F =
1000
40 FOR L =
TO 500
STEP
50
50
W
=
(F-2*L)/2
60
A
=
L
*
W
70
PRINT F.L.W,
A
(FEET) (SQ.
FEET)
I
fcfi
186