Читайте также:
|
Дана матрица чисел. Удалить все столбцы, где есть нули.
Программа
CLS
INPUT "введи размер матрицы "; n,m
DIM A(n, m), B(m)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO m
'Ввод элементов матрицы
INPUT A(i,j)
NEXT j, i
FOR j = 1 TO m
FOR i = 1 TO n
'Нахождение нулевого элемента в каждом столбце матрицы
IF A(i,j) = 0 THEN flag = 1
NEXT i
'Если в столбце нулевой элемент найден, то номер столбца запоминается в массиве В
IF flag = 1 THEN L = L + 1: B(L) = j
flag = 0
NEXT j
C = 0
FOR z = 1 TO L
FOR j = B(z - C) TO m – 1
FOR i = 1 TO n
A(i,j) = A(i, j + 1)
NEXT i,j
C = C + 1
m = m – 1
NEXT z
FOR i = 1 TO n
FOR j = 1 TO m
'Вывод элементов матрицы
PRINT A(i,j);
NEXT j
NEXT i
END
Задачи для дополнительного решения
Задача 1. Дан двумерный массив целых чисел. Удалить из него первый из столбцов, количество нулей, в котором равно заданному числу.
Задача 2. Дан двумерный массив. Удалить строку и столбец, на пересечении которых расположен наименьший по модулю элемент массива.
Задача 3*. Дан двумерный массив. Удалить из него первую из строк, сумма элементов которых не превышает заданное число.
Задача 4. Дан двумерный массив. Удалить из него две строки, одна из которых расположена перед s1-й строкой, а вторая — перед s2-й.
Задача 5. Дан двумерный массив. Удалить из него все столбцы с s1-гопо s2-й (s1 < s2).
Дата добавления: 2015-07-11; просмотров: 55 | Нарушение авторских прав