Программа - раздел Образование, Методические указания Изучаем тему Массивы: Метод Cls
Input "введи Размер Матрицы " ; N,m
Dim A(N +...
CLS
INPUT "введи размер матрицы " ; n,m
DIM A(n + 1, m)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO m
'Ввод элементов матрицы
INPUT A(i,j)
NEXT j, i
FOR i = 1 TO n
'Задание начального значения счетчика нулей в каждой строке матрицы
L = 0
FOR j = 1 TO m
'Определение количества нулей в каждой строке матрицы
IF A(i,j) = 0 THEN L = L + 1
NEXT j
'Определение номера строки, где все элементы равны нулю
IF L = S THEN K = i : EXIT FOR
NEXT i
'Сдвиг всех строк на одну позицию вниз, начиная со строки, где все элементы равны нулю
FOR i = n TO K + 1 STEP –1
FOR j = 1 TO m
A(i+1, j) = A(i, j)
NEXT j, i
'Вставка нулей после строки, где все элементы нулевые
FOR j = 1 TO m
A(K + 1, j) = 0
NEXT j
n = n + 1
FOR i = 1 TO n
FOR j = 1 TO m
PRINT A(i,j);
NEXT j
PRINT
NEXT i
END
Все темы данного раздела:
Предварительные сведения
Если в программе используется группа однотипных переменных, то такую группу однородных объектов удобно представить в виде массива переменных. Отдельные переменные в массиве называются элементами, п
Индекс элемента массива
А ( 1 ) = 0.5
Имя массива Значение элемента массива
Рис 1. Структура массива
Объявление массива
Каждый массив, используемый в программе, должен быть заранее объявлен оператором DIM (если размер массива не предполагается менять) или REDIM (если размер массива будет меняться). П
Ввод и вывод элементов массива
Присвоить значения элементам массива можно различными способами.
Ø С помощью оператора присвоения.
B(1) = 1
B(2) = 10
B(3
Исполнение алгоритма
Чтобы проверить оканчивается ли число на число 0, необходимо вычислить остаток от деления данного числа на 10. Если остаток равен 0, то это целый десяток.
i
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элемент
Программа
CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m)
PRINT "введи матрицу"
'Цикл по строкам матрицы
FOR i = 1 TO n
'Цикл по
Задачи для дополнительного решения
Задача 1.Дан массив. Напечатать все неотрицательные элементы.
Задача 2.Дан массив целых чисел. Напечатать все четные элементы.
Исполнение алгоритма
i
Проверка условия
S
A(1)>0 (истина)
Программа
CLS
INPUT "введи размер массива " ; n
DIM A%(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элемен
Программа
CLS
INPUT "введи размер массива " ; n
DIM A%(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
Задачи для дополнительного решения
Задача 1.Дан массив. Найти сумму элементов массива, значение которых не превышает 20.
Задача 2.Дан массив чисел. Найти сумму элементов мас
Программная реализация
Для нахождения максимального значения
Для нахождения минимального значения
MAX = A(1)
K = 1
FOR I = 2 TO n
IF A(i)
Исполнение алгоритма
i
Проверка условия
max
K
Массив
=А(1)=3
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элемент
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
Задачи для дополнительного решения
Задача 1*.Дан массив чисел. Подсчитать количество элементов имеющих наименьшее значение.
Задача 2.Задана последовательность чис
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
FOR i = 1 TO n
INPUT A(i)
NEXT i
'Поиск позици
Задачи для дополнительного решения
Задача 1.Известно, что в массиве имеются элементы, равные 5. Определить номер первого из них.
Задача 2.Известно, что в массиве имеются нул
Исполнение алгоритма
i
Проверка условия
K
(счетчик вхождений)
Третий элемент, принадлежащий (a,b)
L
(номер элемента, принадлежащего (a,b
Задачи для дополнительного решения
Задача 1.Дан массив. Поменять местами третий четный элемент массива и максимальный элементы.
Задача 2.В последовательности B из n чисел по
Удаление элемента из массива
Алгоритм решения
Допустим, требуется удалить элемент под номером К из массива А, состоящего из N элементов. Для этого необходимо сдвинуть влево на одну позицию все элементы, следующие за э
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элемент
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
Задачи для дополнительного решения
Задача 1.Дан массив чисел. Удалить все элементы между элементами по номерами m1 и m2.
Задача 2.В последовательности из 10 чисел удалить первый и второй ну
Исполнение алгоритма
Нахождение минимального значения
i
Проверка условия
min
=
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n + 1)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
Программа
CLS
INPUT "введи размер массива " ; n
DIM A(n + 2)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
Задачи для дополнительного решения
Задача 1.Дан массив чисел. Вставить два максимальных значения в массив в третью позицию массива.
Задача 2.В последовательности из 10 чисел. Вставить перв
Алгоритм решения
Для вычисления суммы (произведения или количества) элементов некоторой строки i необходимо организовать цикл для перебора всех элементов данной строки. Поэтому параметром этого цикла следует выбрат
Программная реализация
для подсчета суммы элементов
для подсчета произведения элементов
в каждой строке
FOR i = 1 TO n
S =
Исполнение алгоритма
i
j
Проверка условия
S
Массив В
Программа
CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m)
PRINT "введи матрицу"
'Цикл по строкам матрицы
FOR i = 1 TO n
'Цикл по
Программа
CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m), В(m)
PRINT "введи матрицу"
FOR j = 1 TO m
FOR i = 1 TO n
'Ввод элемен
Задачи для дополнительного решения
Задача 1.Дан двумерный массив целых чисел. В каждой его строке найти количество четных элементов.
Задача 2*.Дан двумерный массив целых чисел. В каждой его
Алгоритм решения
Для нахождения максимального (минимального) элемента некоторой строки с номером i необходимо допустить, что первый элемент текущей строки является наибольшим (наименьшим), и организовать цикл для п
Программная реализация
для нахождения максимального значения
для нахождения минимального значения
в каждой строке
Исполнение алгоритма
i
j
Проверка условия
MAX
K
(номер MAX)
Матрица
Программа
CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m)
PRINT "введи матрицу"
'Цикл по строкам матрицы
FOR i = 1 TO n
'Цикл по
Программа
CLS
INPUT "введи размер матрицы " ; n, m
DIM A(n, m), В(m)
PRINT "введи матрицу"
FOR j = 1 TO m
FOR i = 1 TO n
'Ввод элемен
Задачи для дополнительного решения
Задача 1.Дан двумерный массив целых чисел. В каждой его строке заменить любой минимальный элемент на максимальный.
Задача 2.Дан двумерный массив целых чис
Исполнение алгоритма
j
i
Проверка условия
Первый отрицательный элемент
K
(номер первого отрицательного)
Массив В
Задачи для дополнительного решения
Задача 1.Дан двумерный массив целых чисел. В каждой его строке найти первый отрицательный элемент (принять, что отрицательные элементы есть в каждой строке).
Алгоритм решения
Условием главной диагонали является равенство индексов по строкам и столбцам j = i. Из этого следуя, условием нахождения элемента над главной диагональю является i < j, под главной диагональю i
Исполнение алгоритма
i
j
Проверка условия для определения главной диагонали
Проверка условия для нахождения MAX
MAX
K
(номер
Программа
CLS
INPUT "введи размер матрицы " ; n
DIM A(n, n)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO n
'Ввод матрицы с клави
Задачи для дополнительного решения
Задача 1.В массиве записаны целые числа. Определить сумму элементов главной диагонали массива, больших 20.
Задача 2.В массиве записаны целые числа. Опред
Исполнение алгоритма
Нахождение минимального элемента побочной диагонали
i
j
Проверка условия для определения побочной диагонали
Программа
CLS
INPUT "введи размер матрицы " ; n
DIM A(n, n)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO n
'Ввод элементов матри
Задачи для дополнительного решения
Задача 1.Дан двумерный массив целых чисел. Удалить из него первый из столбцов, количество нулей, в котором равно заданному числу.
Задача 2.Дан двумерный м
Включение строки или столбца в матрицу
Алгоритм решения
Допустим, что необходимо включить массив В в строку (столбец) по номером К. В этом случае перед включением, все строки, начиная с К строки, необходимо сдви
Исполнение алгоритма
i
j
Сдвиг
Массив
n
&n
Программа
CLS
INPUT "введи размер матрицы " ; n,m
DIM A(n + 1, m)
PRINT "введи матрицу"
FOR i = 1 TO n
FOR j = 1 TO m
'Ввод элементов
Задачи для дополнительного решения
Задача 1.Дан двумерный массив целых чисел. Вставить в него строку из нулей после первой строки, в которой количество положительных элементов равно количеству отрица
Новости и инфо для студентов