Создать двумерный массив размером N*M. (Размеры N и M вводятся с клавиатуры. Данные в массив вводятся произвольно. Вид вводимой в массив информации — символьный) — 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
38
39
40
41
42
43
44
45
CLS
  
OPTION BASE 1
  
INPUT "M=", m
INPUT "N=", n
  
DIM x(m, n) AS STRING
  
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT "x("; i; ", "; j; ")= ";
    INPUT "", x(i, j)
  NEXT j
NEXT i
  
INPUT "I=", i
INPUT "K=", k
  
IF i <= m AND i <= n AND k <= m AND k <= n THEN
  DIM tmp AS STRING
  tmp = x(i, k)
  
  x(i, k) = x(k, i)
  x(k, i) = tmp
  
  FOR i = 1 TO m
    FOR j = 1 TO n
      PRINT "("; i; ","; j; ")="; x(i, j);
      PRINT ""
    NEXT j
  NEXT i
ELSE
  PRINT "Incorrect params"
END IF
  
PRINT ""
IF m = n THEN
  PRINT "Main diagonal:"
  FOR d = 1 TO m
    PRINT x(d, d); ",";
  NEXT d
ELSE
  PRINT "Matrix is not square. Main diagonal is null";
END IF

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

Leave a Comment