Пример 3. Расчет элементов массива по формуле
Составить программу
для задания элементов массива х(7)
по формуле
и вывода их на экран.
Задача условно делится на два блока: ввод элементов массива и вывод их на экран. При вводе элементы массива рассчитываются по формуле, поэтому вместо ввода с клавиатуры здесь используется оператор присваивания элементу массива соответствующего значения.
REM Расчет и вывод элементов массива
CLS
DIM x(7)
FOR i = 1 TO 7
x(i)=SIN(i)
NEXT i
PRINT "Вывод элементов массива"
FOR i = 1 TO 7
PRINT x(i);
NEXT i
END
Пример 4. Нахождение максимального элемента массива и его номера
Поиск максимального элемента выполняется по следующему алгоритму:
За максимум принимается первый элемент массива.
Берется второй элемент и сравнивается с максимумом, если он оказывается больше, то за максимум берется второй элемент и фиксируется его номер, в противном случае максимум не меняется.
Берется третий элемент и процедура повторяется, пока не будет исследован последний элемент массива.
REM Нахождение наибольшего элемента массива и его номера
CLS
INPUT "Введите число элементов массива", n
DIM mas(n) AS INTEGER
FOR i = 1 TO n
INPUT "Введите элемент массива", mas(i)
NEXT i
PRINT "Вывод массива"
FOR i = 1 TO n
PRINT mas(i);
NEXT i
max = mas(1)
nomer = 1
FOR i = 1 TO n
IF mas(i) >max THEN
max =mas(i)
nomer = i
END IF
NEXT i
PRINT "Максимальный элемент: ", max, " с номером ", nomer
END
Важно!
Задачи на минимум решаются аналогично: за минимум принимается первый элемент, затем остальные элементы массива сравниваются с минимумом. Если какой-либо из них окажется МЕНЬШЕ минимального, то минимум меняется.
Пример 5. Нахождение суммы элементов массива
Составить программу нахождения суммы положительных элементов одномерного массива С.
REM Нахождение суммы элементов массива
CLS
INPUT "Введите число элементов массива", n
DIM c(n) AS INTEGER
s=0
FOR i = 1 TO n
INPUT "Введите элемент массива", c(i)
IF c(i)>0 THEN
s=s+ c(i)
END IF
NEXT i
PRINT "Сумма положительных элементов массива равна", s
END
Пример 6. Нахождение количества элементов массива
Составить программу нахождения количества элементов одномерного массива Х, совпадающих с первым элементом массива.
При решении задач подобного типа используется дополнительная переменная целого типа, которая является счетчиком элементов массива и которой сначала присваивается значение 0.
REM Нахождение количества элементов массива
CLS
INPUT "Введите число элементов массива", n
DIM x(n) AS INTEGER
kol=0
FOR i = 1 TO n
INPUT "Введите элемент массива", x(i)
NEXT i
FOR i = 1 TO n
IF x(i)=x(1) THEN
kol=kol + 1
END IF
NEXT i
PRINT "Количество элементов массива, совпадающих с первым, равно", kol
END
Задание 1. Решение задач по теме Номера задач задает преподаватель!
Составьте программу вывода на экран 15 значений элементов массива А, которые рассчитываются по формуле
.Составьте программу вывода на экран 20 значений элементов массива Х, которые рассчитываются по формуле
.Составьте программу вычисления значений функции
в точках
для произвольного значения а.Составить программу вычисления произведения элементов массива В, если массив состоит из 5 элементов, введенных с клавиатуры.
Составить программу вычисления произведения элементов массива Х, больших 5, если массив состоит из 7 элементов, введенных с клавиатуры. В случае отсутствия таких элементов вывести сообщение на экран.
Составить программу вычисления суммы отрицательных элементов массива В, если массив состоит из 10 элементов, введенных с клавиатуры.
Составить программу вычисления суммы элементов массива А с четными индексами, если массив состоит из 7 элементов, введенных с клавиатуры.
Составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов, которые рассчитываются по формуле
.Составьте программу для нахождения максимального по модулю элемента массива Х, состоящего из 8 элементов, введенных с клавиатуры.
Составить программу вычисления среднего арифметического значения элементов массива Z с нечетными индексами.
Составить программу вычисления произведения нечетных элементов массива С, если массив состоит из 11 элементов, введенных с клавиатуры.
Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b).
Вычислить среднее геометрическое элементов вектора У(k), кратных трем.
Определить, кратна ли сумма элементов вектора A(x) семи.
В векторе D(m) определить количество четных элементов.
В векторе У(k) поменять местами первый и минимальный элементы.
Из вектора С(n) сформировать вектор А, содержащий четные элементы вектора С и вектор В, содержащий нечетные элементы.
Найти среднее геометрическое элементов массива С[k] с четными индексами.
В массиве x(n) поменять местами минимальный и последний элементы.
В векторе Т(к) заменить все его элементы, стоящие после максимального, нулями.
Найти среднеквадратичное элементов вектора A(n). s=(a[1]*a[1]+a[2]*a[2]+...+a[n]*a[n])/n.
Элементы вектора В, удовлетворяющие условию B[i]>10, переписать в массив х, а элементы, удовлетворяющие условию B[i] <= 10, переписать в массив У.
В векторе Z(m) определить сумму нечетных элементов.
Определить индексы четных элементов массива А(к).
Определить, кратна ли сумма элементов массива D(12) числу 5.