Цель занятия: оценить понимание электронной лекции, умений определять, заполнять и распечатывать одномерные массивы, программировать простейшие операции обработки одномерных массивов. Таким образом, настоящее занятие – продолжение и развитие первого занятия по одномерным массивам.
Контрольные вопросы для проведения занятия.
*Что есть одномерный массив, привести примеры использования индексированных переменных в других дисциплинах.
*Какой оператор ОПРЕДЕЛЯЕТ массивы?
*Способы присвоения значений элементам массива.
*Как вывести элементы массива на печать?
*Как можно классифицировать задачи по обработке одномерных массивов.
Итак, массив можно определить, спросив у пользователя количество элементов, или определить их количество в операторе DIM:
DIM х(12), у(20). В тренировочных упражнениях будем присваивать значения элементам массива случайные значения, взятые из интервала (а; b) Значения a и b лучше задавать оператором LET.
Запомните! Прежде чем решать задачу на обработку массива, его сначала необходимо ОПРЕДЕЛИТЬ, ПРИСВОИТЬ ЗНАЧЕНИЯ ЕГО ЭЛЕМЕНТАМ, РАСПЕЧАТАТЬ. И только затем в новом цикле приступать к его обработке, т.у. решению задачи.
Условно классифицируем типовые задачи на обработку одномерных массивов.
-поиск и вывод элементов массива по какому-либо условию
-замена элементов массива по какому-либо признаку
-подсчет количества элементов по какому-либо признаку
-суммирование элементов массива по какому-либо признаку
Теперь рассмотрите программы, прокомментируйте их работу, подробно объясните каждую строку. В целях сокращения объема разработки настоящего занятия в некоторых строках через двоеточие помещено более чем более одного оператора. Вы же, вводя программы в память ЭВМ, каждый оператор размещайте в отдельной строке, в таком случае программа будет легче читаться, в ней лучше находить ошибки.
SCREEN 9: COLOR 14, 1: CLS
RANDOMIZE TIMER
'*Из букв своей фамилии сформировать символьный массив. Распечатать его
'*слева на право и с права на лево
'SCREEN 9: COLOR 14, 1: CLS : LOCATE 10, 30
'DATA Р,о,м,а,с,ь
'DIM a$(6)
'FOR i = 1 TO 6:'READ a$(i): 'PRINT a$(i);
'NEXT i
'PRINT : PRINT :
'FOR i = 6 TO 1 STEP -1
'PRINT a$(i);
'NEXT i
'*Дан массив. Напечатать индексы и количество элементов, равных 0
'*Если таких нет, сделать соответствующее сообщение
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'a = -5: b = 5
'DIM x(n)
'FOR i = 1 TO n
'x(i) = CINT(a + (b - a) * RND): 'PRINT x(i);
'NEXT i:'PRINT
'k = 0
'FOR i = 1 TO n
'IF x(i) = 0 THEN 'k = k + 1:'PRINT "x("; i; ")="; x(i)
'NEXT i
'IF k > 0 THEN PRINT "Нулевых элементов"; k; ELSE PRINT "Нулевых элементов нет"
'*Определить и вывести на печать, первое отрицательное значение массива
'*b(n) вместе с индексом. Массив содержит положительные и отрицательные
'*элементы.
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'a = -3: b = 3
'DIM x(n)
'FOR i = 1 TO n
'x(i) = CINT(a + (b - a) * RND): PRINT x(i);
'NEXT i: 'PRINT
'FOR i = 1 TO n
'IF x(i) < 0 THEN
'PRINT "x("; i; ")="; x(i)
'i = n: '**Обратите внимание на эту строку!
'END IF
'NEXT i
'PRINT "Это первый отрицательный элемент"
'*Информация о среднесуточной температуре за месяц хранится в массиве
'*Определить среднемесячную температуру, количество дней, когда
'*температура была ниже нуля.
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'DIM a(30)
'a = -5: b = 20
's = 0: '*Обнуляем сумму для подсчета средней температуры за месяц
't = 0: '* Обнуляем счетчик для подсчета дней когда температура ниже нуля
'FOR i = 1 TO 30: a(i) = INT(a + (b - a) * RND)
's = s + a(i): 'PRINT a(i);
'NEXT i: 'PRINT
'cr = s / 30
'FOR i = 1 TO 30
'IF a(i) < 0 THEN t = t + 1
'NEXT i: PRINT
'PRINT "В месяце "; t; " дней имели температуру ниже нуля"
'PRINT "Среднемесячная температура равна "; cr
'*В распечатке массива выделить отдельными цветами максимальный и
'*минимальный элементы.
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'DIM a(n)
'a = -9: 'b = 13
'max = a(1): min = a(1)
'FOR i = 1 TO n: a(i) = INT(a + (b - a) * RND)
'PRINT a(i);
'NEXT i: PRINT
'FOR i = 1 TO n
'IF a(i) > max THEN max = a(i)
'IF a(i) < min THEN min = a(i)
'NEXT i
'FOR i = 1 TO n
'IF a(i) = max THEN COLOR 15
'IF a(i) = min THEN COLOR 10
'PRINT a(i);
'COLOR 14
'NEXT i
'*В произвольном массиве подсчитать количество нечетных элементов,
'*имеющих четные индексы
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'DIM a(n)
'a = -9: 'b = 13
'k = 0
'FOR i = 1 TO n: 'a(i) = INT(a + (b - a) * RND)
'PRINT a(i);
'NEXT i: PRINT
'FOR i = 1 TO n
'IF (a(i) / 2 <> a(i) \ 2) AND (i / 2 = i \ 2) THEN k = k + 1
'NEXT i
'PRINT "Количество нечетных элементов имеющих четные индексы равно "; k
'*Вывести суммы элементов с четными и нечетными индексами
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'DIM a(n)
'a = -9: b = 13
'k = 0: '*Обнуляем сумму элементов с четными индексами
't = 0: '*Обнуляем сумму элементов с нечетными индексами
'FOR i = 1 TO n: 'a(i) = INT(a + (b - a) * RND)
'PRINT a(i);
'NEXT i: PRINT
'FOR i = 1 TO n
'IF i / 2 = i \ 2 THEN k = k + a(i)
'IF i / 2 <> i \ 2 THEN t = t + a(i)
'NEXT i
'PRINT "Сумма элементов с четными индексами равна "; k
'PRINT "Сумма элементов с нечетными индексами равна "; t
'*Дан одномерный массив a(n). Вывести на печать значения, индексы и
'*количество отрицательных элементов
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'DIM a(n)
'a = -9: b = 13: k = 0
'FOR i = 1 TO n: a(i) = INT(a + (b - a) * RND)
'PRINT a(i);
'NEXT i
'PRINT
'FOR i = 1 TO n
'IF a(i) < 0 THEN PRINT "x("; i; ") = "; a(i): k = k + 1
'NEXT i
'PRINT "Кол-во отрицательных элементов равно "; k
'*Вывести на печать равные элементы массива вместе с их индексами
'SCREEN 9: COLOR 14, 1: CLS
'RANDOMIZE TIMER
'INPUT "Сколько элементов в Вашем массиве"; n
'DIM a(n)
'FOR i = 1 TO n: 'a(i) = INT(10 * RND + 1): PRINT a(i);
