REM -
DIM M, PI, I, MAX
INPUT M, PI ; M, PI
DIM A(1 TO M), B(1 TO M)
DATA 1.1,-3.5,1.8,0,.75,3.25,0, 2.5,5.25
FOR I = 1 TO M
READ A(I)
NEXT I
MAX=A(1)
FOR I = 1 TO M
IF MAX < A(I) THEN
MAX = A(I)
END IF
NEXT I
PRINT MAX; MAX
FOR I = 1 TO M
IF (-1) ^ I > 0 THEN
B(I) = PI
ELSE B(I) = A(I) / MAX
END IF
PRINT B; I; =;B(I)
NEXT I
END
:
M, PI? 9, 3.14 _
MAX = 5.25 = 1.1, -3.5,1.8,0,.75,3.25, 0, 2.5, 5,25
B1 = -.2095238 :
B2 = 3.14 MAX = 5,25
B3 =.3428571
B4 = 3.14 = 0.21, 3.14,0.34, 3.14, 0.14, 3.14, 0, 3.14, 1
B5 =.1428571
B6 = 3.14
B7 = 0
B8 = 3.14
B9 = 1
3.12. 5
:
: , m n : aij.
kj 0 .
.
': aij → A(I,J), cij → C(I,J), m → M, n → N,
i → I, j →J, kj → K(J).
- +
|
+
- +
|
|