ЛАБОРАТОРНАЯ РАБОТА № 7
Тема: Обработка массивов в программе на Pascal
Цель работы: Изучение возможностей обработки одномерных массивов
Пояснения к работе
Массив, как и таблица, представляет собой совокупность пронумерованных однотипных значений, имеющих общее имя. Элементы массива обозначаются переменными с индексами. Массив, хранящий линейную таблицу, называется одномерным.
Описание одномерного массива:
Var
<имя_массива> : ARRAY [<размер массива>] OF <тип массива>;
Пример:
Var
MAS : ARRAY [1..10] OF Integer;
Описание массива определяет, во-первых, размещение массива в памяти, во-вторых, правила его дальнейшего использования в программе.
Обращение к отдельному элементу массива производится при помощи указания имени массива и квадратных скобках индекса конкретного элемента. В качестве индекса может употребляться любое выражение соответствующего типа.
Например, MAS[5], MAS[i], MAS[m div 2].
Пример выполнения работы:
Условие
В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить общее количество осадков за месяц
|
Var
I, S : Integer;
Mas : Array[1..31] of Integer;
Begin
For I:=1 to 31 Do
Readln(Mas[i]);
S:=0;
For I:=1 to 31 Do
S:=S+Mas[i];
Writeln(S);
End.
|
Условие:
Массив из 10 элементов заполнить случайными значениями. Определить максимальное значение
|
Var
I, max : Integer;
Mas : Array[1..10] of Integer;
Begin
For I:=1 to 10 Do
Mas[i]:=Random(100);
Max:=mas[1];
For I:=2 to 10 Do
If Mas[i]>Max Then Max:=Mas[i];
Writeln(‘max=’,Max);
End.
|
Условие:
Массив из 8 элементов заполнить случайными значениями поменять местами значения первого и последнего элемента массива Массив вывести
|
Var
I, В : Integer;
Mas : Array[1..8] of Integer;
Begin
For I:=1 to 8 Do
Mas[i]:=Random(100);
B:=Mas[1];
Mas[1]:=Mas[8];
Mas[8]:=B;
For I:=1 to 8 Do
Writeln( Mas[i]);
End.
|
Контрольные вопросы
Что такое массив?
Какие массивы существуют?
Как объявляется одномерный массив?
Как обратится к элементу одномерного массива?
Варианты к лабораторной работе №7
(ваш номер по журналу соответствует номеру варианта)
№
|
Задание 1 Одномерный массив N элементов заполнить случайными значениями, вывести его на экран.
|
Задание 2 Одномерный массив 8 элементов заполнить значениями с клавиатуры.
|
Задание 3 Одномерный массив 12 элементов заполнить случайными положительными и отрицательными значениями.
|
1
|
N=8. Ввести К. Подсчитать и вывести количество элементов массива, равных К.
|
Сформировать второй массив из положительных элементов первого массива.
|
Определить, является ли массив унимодальным, (т.е. содержит ли он элементы только одного знака).
|
2
|
N=10 Все отрицательные элементы массива заменить нулем.
|
Определить какая сумма элементов больше, расположенная до максимального элемента или после.
|
От каждого элемента массива вычесть среднее арифметическое всех элементов массива.
|
3
|
N=12 Все элементы массива, значения которых кратны 5, увеличить в 2 раза. Массив вывести
|
Определить, образуют ли элементы массива неубывающую последовательность.
|
Определить произведение четных по значению элементов, стоящих на нечетных номерах.
|
4
|
N=7 Определить сумму положительных элементов массива.
|
Вывести два самых минимальных элемента массива.
|
Переставить местами первый положительный элемент с последним отрицательным.
|
5
|
N=12 Подсчитать и вывести количество нулевых элементов массива.
|
Определить в какой половине массива находится максимальный элемент.
|
Сформировать второй массив, разместив в нем элементы первого массива, значения которых оканчиваются на 7.
|
6
|
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и последующего).
|
Определить количество простых чисел в массиве.
|
Найти элемент, наиболее близкий к среднему значению всех элементов массива.
|
7
|
N=8 Определить количество элементов массива, значения которых = первому элементу.
|
Найти сумму минимального и максимального элементов.
|
Сформировать второй массив, разместив в нем элементы первого массива со сдвигом на 2 позиции вправо.
|
8
|
N=12 Найти среднее арифметическое значение отрицательных элементов массива.
|
Сдвинуть элементы массива на одну позицию влево, первый элемент переместить на последнее место.
|
Каждый третий элемент массива заменить полусуммой двух предыдущих элементов.
|
9
|
N=14 Ввести К. Вывести номера элементов массива, равных К.
|
Определить содержит ли массив элементы, равные минимальному элементу.
|
Вывести номера локальных максимумов, т.е. таких Ai, что
A i-1 < Ai >A i+1
|
10
|
N=10 Определить сколько раз в массиве меняется знак.
|
Определить наибольший общий делитель для всех элементов массива.
|
Определить, какой элемент, максимальный или минимальный, расположен ближе к первому элементу.
|
11
|
N=12 Ввести число К Определить количество элементов массива, значения которых больше K.
|
Все элементы массива увеличить в 3 раза. Массив вывести.
|
Определить максимальное значение сред положительных элементов массива.
|
12
|
N=15 Определить количество нечетных значений в массиве.
|
Поменять местами минимальный и максимальный элементы массива.
|
Даны два одномерных массива одинаковой размерности. Найти их скалярное произведение.
|
13
|
N=20 Каждый элемент массива заменить его квадратом. Массив вывести.
|
Вывести первый и второй максимум.
|
Пусть первый массив А. сформировать массив В по следующему правилу В[1]=A=[1], B[2]=A[12], B[3]=A[2], B[4]=A[11]…
|
14
|
N=15 Первый отрицательный элемент заменить нулем. Массив вывести
|
Найти среднее арифметическое первых подряд идущих положительных элементов
|
Поменять местами первый элемент массива с минимальным элементом
|
15
|
N=18 Все отрицательные элементы массива заменить значением первого элемента.
|
Исходный массив упорядочен по убыванию Ввести число К и вставить его в массив, не нарушая упорядоченности.
|
Найти номера первого и последнего нулевого элемента.
|
16
|
N=20 Определить сумму отрицательных элементов массива.
|
Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место.
|
Все положительные элементы исходного массива записать во второй массив, все отрицательные элементы – в третий массив
|
17
|
N=15 Определить, каких элементов больше положительных или отрицательных элементов массива
|
В массиве хранятся оценки, выставленные спортсмену судьями. Определить балл, идущий спортсмену в зачет по олимпийской системе (средний балл без учета максимального и минимального).
|
Определить, образуют ли элементы, стоящие на нечетных номерах, убывающую последовательность.
|
18
|
N=8 Все отрицательные элементы массива заменить его абсолютным значением.
|
Определить количество элементов массива, которые равны первому элементу
|
Определить в какой половине массива находится минимум.
|
19
|
N=10 Определить количество элементов массива, значения которых = последнему элементу.
|
Определить среднее арифметическое четных значений.
|
Сформировать второй массив из отрицательных элементов первого массива.
|
20
|
N=12 Подсчитать и вывести количество отрицательных элементов массива.
|
Определить образуют ли элементы массива геометрическую прогрессию.
|
Вывести номер минимального элемента.
|
21
|
N=18 Все элементы с нечетными номерами заменить их квадратами.
|
Определить содержит ли массив элементы, равные максимальному элементу.
|
Найти номер первого и последнего положительного элемента.
|
22
|
N=20 Все положительные элементы увеличить на 1.
|
Определить образуют ли элементы массива арифметическую прогрессию.
|
Определить, является ли массив пилообразным, т.е. выполняется ли условие A1 < A2 > A3 < A4 > A5…
|
23
|
N=16 Каждый элемент, значение которого меньше 10, заменить его квадратом.
|
Поменять местами две половинки массива (1-5, 2-6, 3-7, 4-8)
|
Определить произведение нечетных по значению элементов, стоящих на четных номерах.
|
24
|
N=14 Ввести число К. Все положительные элементы массива увеличить на К.
|
Определить упорядочены ли элементы массива вывести одно из сообщений «по возрастанию», «по убыванию», «не упорядочен».
|
Вычислить сумму тех элементов массива, чьи значения совпадают с их порядковым номером
|
25
|
N=12 Определить среднее арифметическое значение элементов массива.
|
Определить, содержит ли массив два соседних четных элемента
|
Из элементов первого массива сформировать второй массив по правилу: B[I]=A[1]+A[2]+…+A[I]
|
26
|
N=12 Найти сумму четных элементов.
|
Определить, сколько раз в массиве меняется знак.
|
Определить минимальное значение сред отрицательных элементов массива.
|
27
|
N=8 Все отрицательные элементы уменьшить на 1. Массив вывести.
|
Поменять местами значения соседние элементы (1-2, 3-4, …)
|
Определить, образуют ли элементы, стоящие на четных номерах, возрастающую последовательность.
|
28
|
N=9 Выполнить симметричное отображение массива.
|
Исходный массив упорядочен по возрастанию Ввести число К и вставить его в массив, не нарушая упорядоченности.
|
Определить количество различных элементов в массиве
(например, дано 2 4 3 2 4 7 4 6 , результат 5).
|
29
|
N=20 Определить количество четных значений в массиве.
|
Определить, образуют ли элементы массива убывающую последовательность.
|
Поменять местами второй элемент массива с максимальным элементом.
|
30
|
N=22 Все элементы с нечетными номерами увеличить в 2 раза. Измененный массив вывести.
|
В массиве хранятся оценки студента. Определить количество 4 и 5
|
Сформировать второй массив, разместив в нем элементы первого массива, значения которых оканчиваются на 0.
|
31
|
N=12 Ввести число К Определить количество элементов массива, значения которых меньше K .
|
Вывести элементы массива, расположенные после максимального элемента.
|
Все элементы с нечетными номерами разделить нацело на первый элемент.
|
32
|
N=10 Все элементы с четными номерами заменить нулем. Измененный массив вывести.
|
В массиве хранятся оценки студента. Определить количество неудовлетворительных оценок.
|
Определить среднее арифметическое значение элементов, которые кратны 5.
|
|
