Дана матрица 6 на 6 и число K (от 1 до 6) столбец с максимальным по модулю элементом в K-ой строке переставить с K-ым столбцом — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DIM A(1 TO 6, 1 TO 6) AS DOUBLE,B AS DOUBLE
DIM K AS INTEGER,I AS INTEGER,J AS INTEGER,L AS INTEGER
  
CLS
  
FOR I=1 TO 6
FOR J=1 TO 6
PRINT "BBEDITE A",I,J
INPUT A(I,J)
NEXT J
NEXT I
  
PRINT "BBEDITE K"
INPUT K
  
B=0
L=1
FOR I=1 TO 6
IF B<ABS(A(I,K)) THEN
B=ABS(A(I,K))
L=I
END IF
NEXT I
  
FOR J=1 TO 6
B=A(L,J)
A(L,J)=A(K,J)
A(K,J)=B
NEXT J
  
FOR I=1 TO 6
FOR J=1 TO 6
PRINT A(I,J)
NEXT J
NEXT I
  
END

Похожие записи/страницы: