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

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

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

Leave a Comment