Основные алгоритмы работы с одномерными массивами (поиск и сортировка) 8 класс 1

Самостоятельная работа 1. Дайте определение следующим понятиям: массив, индекс, элемент массива, одномерный массив. 2. Придумайте свои 5 способов получения случайных чисел. 3. Как, используя функцию random(X), можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100? 2

Поиск в одномерном массиве Поиск – нахождение индекса элемента массива, равного заданной величине. Наиболее простой способ – это простой перебор (последовательно сравниваются элементы массива с образцом до тех пор, пока не будет найден нужный элемент). 3

i := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i i DO BEGIN WRITE() : ARRAY [ ] OF i i ; BEGIN ; : NumberX ; :=:= WRITELN( Массив случайных чисел : NamberX := 0, X X INTEGER RANDOMIZE ; ) Rand [ i ] Random ( 50 ) Rand [ i ] : 4 ; ; READLN() ; END. ; 0 0 WRITELN ; WRITE() ; Введите X : X X NumberX ; FORTO :=:= i i DO :=:= IFTHEN ELSE Rand [ i ] = X NumberX :=:= NumberX + 1 IF NumberX = 0 THEN WRITELN ( В массиве нет числа, X ) ( Число, X в массиве присутствует, NumberX, раз ) да нет Rand [ i ] = X NamberX := NamberX + 1 да нет NamberX = 0 вывод Число X в массиве присутствует NumberX раз вывод Число X в массиве присутствует NumberX раз 4

Результаты выполнения программы Первое выполнение: Массив случайных чисел: Введите X: 5 Число 5 в массиве присутствует 3 раз Второе выполнение программы: Массив случайных чисел: Введите X: 2 В массиве нет числа 2 5

Задача MaxMin. Программа для поиска максимального и минимального элемента массива, с указанием их номеров program maxmin; uses crt; var a: array[1..5] of integer; i, max, nmax, min, nmin: integer; begin clrscr; for i:=1 to 5 do {ввод данных} begin writeln ('Введите значение элемента'); readln (a[i]); end; for i:=1 to 5 do {выдача массива на экран} writeln (a[i]:7); nmax:=1; {задание начальных значений} max:=a[1]; nmin:=1; min:=a[1]; for i:=1 to 5 do {нахождение минимума и максимума} if a[i]>max then begin max:=a[i]; nmax:=i; end; if a[i]<min then begin min:=a[i]; nmin:=i; end; end; writeln ('Максимальный элемент=',max); writeln ('Номер максимального элемента=',nmax); writeln ('Минимальный элемент=',min); writeln ('Номер минимального элемента=',nmin); readln; end. 6

Сортировка массива – это упорядочение по возрастанию/убыванию значений его элементов. Сортировка в одномерном массиве 7

Сортировка методом «пузырька» Сущность метода: Начиная с 1-го или последнего элемента, производится попарное сравнение элементов и, если предыдущий больше последнего, то они меняются местами. for i:=1 to n-1 do for j:=i+1 to n do if f[j]<f[i] then begin a:=f[i]; f[i]:=f[j]; f[j]:=a; end; 8

Сортировка методом выбора Сущность метода: Находится минимальный элемент, затем 1-ый и минимальный меняются местами, затем ищется минимальный со 2- го по последний и 2-ой с минимальным меняются местами и т.д. Задача: Сдвинуть элементы массива влево на одну позицию. uses crt; const n=10; var a: array[1..n] of integer; i, c:integer; begin for i:=1 to n do { заполнение массива и его вы вод на экран} begin a[i]:=random(50); write (a[i]:5); end; c:=a[1]; for i:=1 to n-1 do a[i]:=a[i+1]; a[n]:=c; writeln; for i:=1 to n do write(a[i]:5); readln; end. 9

Задача. Из массива a составить массив b, который содержит только чётные элементы массива a. 10

Домашнее задание Дан целочисленный массив А(n), где n=10, заполненный случайными числами в интервале [-50;50]. Найти произведение чисел, кратных 10 и сумму положительных элементов. Вывести на экран исходный массив и полученные результаты. 11