Назад на содержание Двумерные массивы в Basic


Общая информация

Ввод массива

Вывод массива

Примеры

Котрольные вопросы

Задания


Примеры

ЗАДАЧА #1. Заполнить два двумерных массива размерностью N на М числами, затем просуммировать соответствующие элементы. Результат занести в третий массив.

Программа Комментарии
10 CLS
20 INPUT "введите через запятую число
                    строк и столбцов ";N,M

30 DIM A(N,M), B(N,M), C(N,M)

40 FOR I=1 TO N
50      FOR J=1 TO M
60           PRINT"введите элемент А(";I;J;")=";
70           INPUT A(I,J)
80      NEXT J
90 NEXT I

100 FOR I=1 TO N
110     FOR J=1 TO M
120         PRINT "введите элемент В(";I;J;")=";
130         INPUT B(I,J)
140     NEXT J
150 NEXT I

160 FOR I=1 TO N
170     FOR J=1 TO M
180         <Процесс сложения>
190     NEXT J
200 NEXT I

210 FOR I=1 TO N
220     FOR J=1 TO M
230         PRINT C(I,J);
240     NEXT J
250     PRINT
260 NEXT I
270 END



резервирование места под массивы


Строки 40-90 заполняют с клавиатуры массив А





Строки 100-150 заполняют с клавиатуры массив В




Строки 160-200 формируют массив С (складываются соответствующие элементы массива А и В )




Печатается массив С


ЗАДАЧА #2. Поменять в таблице 3Х4 местами первый и последний столбцы.

Исходная таблица Измененная таблица
1 2 3 4  
87213
5103
87915
1
2
3
1 2 3 4  
13728
3105
15798
1
2
3

Чтобы переставить местами первый и последний столбцы нужно обменять следующие элементы:

A(1,1) <---> A(1,4)
A(2,1) <---> A(2,4)
A(3,1) <---> A(3,4)
При этом второй индекс всех элементов первого столбца одинаковый 1, второй индекс элементов последнего столбца 4. Значит при обмене нужно организовать цикл для изменения только индекса строк (первого).

Для каждого I от 1 до 3(т.к. всего 3 строки) повторять:
   обменять A(I,1) c A(I,4)
Конец цикла

На начало страницы
Hosted by uCoz