В массиве поменять местами элементы строки 2-й и элемента a-34 — 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
CLS
m = 10
n = 10
 ' Ручной ввод(можно откомментировать)
 'INPUT "Vvedite kol-vo stolbcov:"; m
 'INPUT "Vvedite kol-vo strok:"; n
DIM A(m, n) AS INTEGER
  '  Заполняем матрицу и на экран ее
  RANDOMIZE TIMER
  FOR iy = 1 TO n: FOR ix = 1 TO m
    A(ix, iy) = RND * 50: PRINT A(ix, iy);
  NEXT: PRINT : NEXT
  '  Ищем строку с элементом равным 34
  FOR iy = 1 TO n: FOR ix = 1 TO m
    IF A(ix, iy) = 34 THEN
       PRINT "Stroka s elementom = 34 naidena"
       PRINT "Menyaem stroki 2 i"; iy
       FOR j = 1 TO m
         SWAP A(j, iy), A(j, 2)
       NEXT
        ' Вывод матрицы
       FOR iy2 = 1 TO n: FOR ix2 = 1 TO m
          IF iy2 = 2 OR iy2 = iy THEN COLOR 10 ELSE COLOR 7
          PRINT A(ix2, iy2);
       NEXT: PRINT : NEXT
       END
    END IF
  NEXT: NEXT
PRINT "Stroka s elementom = 34 ne naidena!"

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment