Програмирование на языке Basic. Федоряка Н.И. - 32 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

32
tablum
1 2 3 4 5 6 7 8 9
1
2
3
4
5
6
7
8
9
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
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
               tablum
               1 2 3         4     5    6    7    8    9
           1   1 2 3         4    5    6    7    8    9
           2   2 4 6         8    10   12   14   16   18
           3   3 6 9         12   15   18   21   24   27
           4   4 8 12        16   20   24   28   32   36
           5   5 10 15       20   25   30   35   40   45
           6   6 12 18       24   30   36   42   48   54
           7   7 14 21       28   35   42   49   56   63
           8   8 16 24       32   40   48   56   64   72
           9   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

         32


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы