| |
Начало » Конспекты школьника » Часть 1 » [Учимся программировать][Двумерные массивы]
Учимся программировать!
Конспекты школьника.
Массивы. Двумерные массивы.
Двумерные массивы можно представить себе
как таблицы, в ячейках которых хранятся
значения элементов массива, а индексы
элементов массива являются номерами строк
и столбцов.
Объявляются двумерные массивы так же, как
переменные и одномерные массивы. Например,
целочисленный числовой массив, содержащий 3
строк и 4 столбца объявляется следующим
образом:
DIM tabl(3 ,4)
DIM tabl(3 ,4) AS INTEGER
tabl
|
|
|
|
| 2 |
7 |
8 |
3 |
| 22 |
1 |
3 |
34 |
| 5 |
56 |
9 |
777 |
|
DIM tabl1(1 TO 3 ,1 TO 4) AS INTEGER
tabl1
|
|
|
|
| 2 |
7 |
8 |
3 |
| 22 |
1 |
3 |
34 |
| 5 |
56 |
9 |
777 |
|
С помощью двумерного массива 9х9 и двух
вложенных циклов можно легко составить
программу, реализующую таблицу умножения.
Сомножителями будут значения индексов
строк и столбцов, а их произведения будут
значениями элементов массива.
DIM tablum(1 TO 9 ,1 TO 9) AS INTEGER
tablum
|
|
|
|
| 1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
| 2 |
4 |
6 |
8 |
10 |
12 |
14 |
16 |
18 |
| 3 |
6 |
9 |
12 |
15 |
18 |
21 |
24 |
27 |
| 4 |
8 |
12 |
16 |
20 |
24 |
28 |
32 |
36 |
| 5 |
10 |
15 |
20 |
25 |
30 |
35 |
40 |
45 |
| 6 |
12 |
18 |
24 |
30 |
36 |
42 |
48 |
54 |
| 7 |
14 |
21 |
28 |
35 |
42 |
49 |
56 |
63 |
| 8 |
16 |
24 |
32 |
40 |
48 |
56 |
64 |
72 |
| 9 |
18 |
27 |
36 |
45 |
54 |
63 |
72 |
81 |
|
REM Таблица умножения
DIM tabum(1 TO 9, 1 TO 9) AS INTEGER
REM Заполнение массива - создание таблицы
умножения
FOR I=1 TO 9
FOR J=1 TO 9
tabum(I, J)=I*J
NEXT J
NEXT I
REM Вывод массива на экран в виде таблицы
FOR I=1 TO 9
FOR J=1 TO 9
PRINT tabum(I,J);
NEXT J
PRINT
NEXT I
END
Пример: В таблице 3х4 вычислить количество
отрицательных элементов, сумму четных
элементов, произведение элементов второй
строки.
REM вычислить количество...
DIM tabl(1 TO 3, 1 TO 4) AS INTEGER
REM Заполнение массива
FOR I=1 TO 3
FOR J=1 TO 4
INPUT "Введите элемент массива:", tabl(I, J)
NEXT J
NEXT I
REM Вывод массива на экран в виде таблицы
CLS
FOR I=1 TO 3
FOR J=1 TO 4
PRINT tabl(I,J);
NEXT J
PRINT
NEXT I
REM требуемые вычисления
k=0
s=0
p=1
FOR I=1 TO 3
FOR J=1 TO 4
IF tabl(I, J)<0 THEN k=k+1
IF tabl(I, J) MOD 2 = 0 THEN s=s+tabl(I, J)
IF I=2 THEN p=p*tabl(I, J)
NEXT J
NEXT I
PRINT
PRINT "результ:"
PRINT "отрицательных элементов: ", k
PRINT "сумма четных элементов: ", s
PRINT "произведение элементов второй
строки: ",p
END
предыдущий урок
:: содержание :: следующий
урок
|
|
|
|
