Casio FX-795P User Manual

230
CHAPTER 8 Convenient DATA BANK Function
1008
110
120
130
140
159
1000
10108
18028
1630
READH $,$
F=1
GOSUB 1000: PRINT $
GOTO 98
|F F=@ THEN PRINT “No Data !!"
GOTO 280
FOR J=1 TO 3
BEEP 1: BEEP @
NEXT J
RETURN
197 bytes
® Variables Table
Variable name
Contents
I
Control variable for the FOR ~ NEXT loop
F
Flag
variable
(F
=
1
when
the
pertinent
person
exists.
F
=
0
if
the
pertinent
person
does
not
exist.)
Z$(1) ~ ZS(3)
Stores the name entered.
$
For reading data
@ Execution Example
Operation
(vood (9) JL JN
8-9 Application to Tabular Calculations
Vertical and horizontal tabular calculations as shown below are frequently
required in practical calculations. Although this type of calculation was carried
out using the array (see page 102), tabular calculations can be simplified further
by considering the DATA BANK as being one large table.
n m Product A | Product B { Product C | Product D Horizontal
Branch X 5329 4280 3602 2310
Branch Y 2682 6313 4203 1128
Branch Z 5113 3229 5176 965
Vertical total
© Outline of the Program
Since the size of the table will be requested when this program is executed, enter
the number of horizontal items (m) and then the number of vertical items (n).
Enter data; one column at a time vertically from the top. “Calculation” is dis-
played and calculation starts after all data are input. When calculation is over,
the results are displayed in the order of vertical total and horizontal total.
©@ Program List
1@ BEEP : INPUT "(m x n)",A,B: ERAS
E F: DIM F(A+1,BH1)
2@ FOR C=1 TOA
3@ FOR D=1 TO B
4@ PRINT "C"SC3"x"s3DE")"G
5@ BEEP : INPUT F(C,D)
6O S="N"+ STRS(D)+", "+ STRS(F(C,D))
7@ |F A=C THEN $=$+",9"
8@ WRITEH $
9@ NEXT D
100 WRITEH "M"+ STRS(C)+",6"
11@ NEXT C
120 PRINT "Calculation";
vy4® FOR C=1 TO Bt1
150 F(A+1,C)=0 231

Casio FX-795P Specifications

General

Brand	Casio
Model	FX-795P
Category	Desktop
Language	English