Создать из таблицы С(М,К) таблицу А(М,К) поменяв местами С(2,2) И С(6,3) — QBasic(Бейсик)

disel
1
2
3
|4|-6|0|0|7|5|3|
|0|9|8|-8|5|-6|7|
|6|7|3|6|-4|-6|1|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DATA 4,-6,0,0,7,5,3
DATA 0,9,8,-8,5,-6,7
DATA 6,7,3,6,-4,-6,1
DIM A(7, 3)
CLS
'  Chtenie DATA
FOR iy = 1 TO 3: FOR ix = 1 TO 7
        READ A(ix, iy): PRINT A(ix, iy);
NEXT: PRINT: NEXT: PRINT CHR$(13) + "Result:" + CHR$(13)
'  Menyaem mestami el-ti
SWAP A(2, 2), A(6, 3)
'  Vivod rezultata
FOR iy = 1 TO 3: FOR ix = 1 TO 7
        PRINT A(ix, iy);
NEXT: PRINT: NEXT

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

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

Leave a Comment