информатика1ё / wesna / labor1 / 19в
.docЗадание 19
Каждую строку матрицы А (5,5) расставить в порядке возрастания. Упорядочение строк оформить как подгруппу FUNCTION или SUB.
Подпрограмма типа GOSUB
Cls
Dim c (5,5), x (5), y (5)
DATA 6, 11, 2, 8, 1
DATA 13,15,21,19,9
DATA 4,2,6,1,8
DATA 9,6,8,1,5
DATA 3,1,5,4
FOR I = 1 TO 5
FOR j=1 TO 5
READ C(I, j)
PRINT C(I, j);
NEXT j
NEXT I
FOR I = 1 TO 5
FOR j=1 TO 5
X (I, j ) = C(I, j)
NEXT j
GOSUB mv
NEXT I
END
MV: t=0
FOR ki = 1 to 4
xmax = x (ki)
jmax = ki
FOR kj = ki + 1 TO 5
IF x (k j) < xmax THEN
xmax = x (kj)
jmax = kj
END IF
NEXT kj
x ( j max) = x ( k i)
x (k i) = xmax
next ki
for ki = 1 to 5
print x (ki);
next ki
RETURN
Подпрограмма типа SUB
CLS
DECLARE SUB vozr ! x (x1 ( ))
Dim c (5,5), x (5), y (5)
DATA 6, 11, 2, 8, 1
DATA 13,15,21,19,9
DATA 4,2,6,1,8
DATA 9,6,8,1,5
DATA 3,1,5,4
FOR I = 1 TO 5
FOR j=1 TO 5
READ C(I, j)
PRINT C(I, j);
NEXT j
NEXT I
FOR I = 1 TO 5
FOR j=1 TO 5
X ( j ) = C(I, j)
NEXT j
CALL vozr ( x ( ))
NEXT I
END
SUB vozr (x ! ( ))
t=0
FOR ki = 1 to 4
xmax = x (ki)
jmax = ki
FOR kj = ki + 1 TO 5
IF x (k j) < xmax THEN
xmax = x (kj)
jmax = kj
END IF
NEXT kj
x ( j max) = x ( k i)
x (k i) = xmax
next ki
for ki = 1 to 5
print x (ki);
next ki
END SUB
Подпрограмма типа FUNCTION
CLS
DECLARE FUNCTION vozr ! (x ! ( ))
Dim c (5,5), x (5), y (5)
DATA 6, 11, 2, 8, 1
DATA 13,15,21,19,9
DATA 4,2,6,1,8
DATA 9,6,8,1,5
DATA 3,1,5,4
FOR I = 1 TO 5
FOR j=1 TO 5
READ C(I, j)
PRINT C(I, j);
NEXT j
NEXT I
FOR I = 1 TO 5
FOR j=1 TO 5
X (j ) = C(I, j)
NEXT j
T = SUM
NEXT I
END
t=0
FOR ki = 1 to 4
xmax = x (ki)
jmax = ki
FOR kj = ki + 1 TO 5
IF x (k j) < xmax THEN
xmax = x (kj)
jmax = kj
END IF
NEXT kj
x ( j max) = x ( k i)
x (k i) = xmax
next ki
for ki = 1 to 5
print x (ki);
next ki
SUM = xmax
END FUNCTION