Программа. FOR I=1 TO 4 ' задание индексов (номеров) строк с 1-й по 4-ю

CLS

DIM А[4,4]: S=0: t=0

FOR I=1 TO 4 ' ввод

FOR J=1 TO 4 ' всех

INPUT A[I,J] ' элементов

NEXT J ' массива

NEXT I ' в ОЗУ

FOR I=1 TO 4 ' задание индексов (номеров) строк с 1-й по 4-ю

FOR J=2 TO 3 ' задание номеров столбцов, только 2-го и 3-го

IF A[I,J] < 0 THEN S=S+A[I,J]: t=t+1 ' вычисл. суммы отриц.

' эл-тов A[I,J] массива и их количества t

NEXT J

NEXT I

?"S="; S, "t="; t ' вывод S и t

END

Описание программы:

После объявления размерности массива оператором DIM А[4,4] задаются начальное значение суммы отрицательных элементов (S=0) и счётчика t элементов в сумме (t=0).

Блок ввода выполнен аналогично, как и в примере 3 для всех элементов матрицы. В блоке выполнения для отбора из всей матрицы только элементов 2-го и 3-го столбцов цикл выборки организован для индексов I=1…4 и J = 2 и

3. Если элемент A[I,J] < 0, то он прибавляется к предыдущей сумме S и t увеличивается на 1, если =0 или положительный, то выполняется переход к следующему элементу.

Пример 5 Найти максимальный и минимальный элементы четвёртой строки массива А[4,4] из примера 3.

Программа

CLS

DIM А[4,4]

FOR I=1 TO 4 ' ввод

FOR J=1 TO 4 ' всех

INPUT A[I,J] ' элементов

NEXT J ' массива

NEXT I ' в ОЗУ

max = А[4,1] ' присвоение переменной max значения элемента A[4,1]

min= А[4,1] ' присвоение переменной min значения элемента A[4,1]

FOR J=1 TO 4 ' задание номеров столбцов 1…4

IF A[4,J] > max THEN max = A[4,J] ' сравнение max с текущим A[4,J]

и присвоение max его значения, если оно > max

IF A[4,J] < min THEN min = A[4,J] ' сравнение min с текущим A[4,J]

NEXT J ' и присвоение min его значения, если оно < min

?"max="; max,?"min="; min ' вывод на экран max и min

END

Описание программы:

Программа аналогична предыдущей, но в блоке обработки зафиксирована строка 4 с помощью переменной A[4,J] (цикл по I не нужен), а элементы строки перебираются с помощью цикла по J. Для определения максимального элемента 4-й строки введена переменная max, которой присвоено значение А[4,1] - первого элемента в 4-й строке (может быть присвоено значение любого элемента этой строки). Далее новой переменной min присваивается значение того же А[4,1] (может быть любой элемент строки). В цикле FOR… элементы 4-й строки перебираются и, если какой-то из них окажется больше, чем max, то переменной max присваивается его значение. В следующей строке элементы проверяются на минимум - если какой-то из них окажется меньше, чем min, то переменной min присваивается его значение По окончании цикла значения max и min распечатываются на экране.

Лекция 7. Базы и банки данных

7.1 Классификация баз данных.

7.2 Виды моделей данных.

7.3 Нормализация отношений. Виды связей.