Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Основные алгоритмы работы с одномерными массивами (поиск и сортировка) 8 класс 1
2
Самостоятельная работа 1. Дайте определение следующим понятиям: массив, индекс, элемент массива, одномерный массив. 2. Придумайте свои 5 способов получения случайных чисел. 3. Как, используя функцию random(X), можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100? 2
3
Поиск в одномерном массиве Поиск – нахождение индекса элемента массива, равного заданной величине. Наиболее простой способ – это простой перебор (последовательно сравниваются элементы массива с образцом до тех пор, пока не будет найден нужный элемент). 3
4
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
![i := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i i 1 1 20 DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i i ; BEGIN ; : NumberX ; :=:= WRITELN( Массив случайных чисел : NamberX := 0, X X INTEGER RANDOMIZE ; ) Rand [ i](http://images.myshared.ru/19/1236570/slide_4.jpg "i := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i i 1 1 20 DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i i ; BEGIN ; : NumberX ; :=:= WRITELN( Массив случайных чисел : NamberX := 0, X X INTEGER RANDOMIZE ; ) Rand [ i")
5
Результаты выполнения программы Первое выполнение: Массив случайных чисел: Введите X: 5 Число 5 в массиве присутствует 3 раз Второе выполнение программы: Массив случайных чисел: Введите X: 2 В массиве нет числа 2 5
6
Задача 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]
7
Сортировка массива – это упорядочение по возрастанию/убыванию значений его элементов. Сортировка в одномерном массиве 7
8
Сортировка методом «пузырька» Сущность метода: Начиная с 1-го или последнего элемента, производится попарное сравнение элементов и, если предыдущий больше последнего, то они меняются местами. for i:=1 to n-1 do for j:=i+1 to n do if f[j]![Сортировка методом «пузырька» Сущность метода: Начиная с 1-го или последнего элемента, производится попарное сравнение элементов и, если предыдущий больше последнего, то они меняются местами. for i:=1 to n-1 do for j:=i+1 to n do if f[j]<f[i] then be](http://images.myshared.ru/19/1236570/slide_8.jpg "Сортировка методом «пузырька» Сущность метода: Начиная с 1-го или последнего элемента, производится попарное сравнение элементов и, если предыдущий больше последнего, то они меняются местами. for i:=1 to n-1 do for j:=i+1 to n do if f[j]<f[i] then be")
9
Сортировка методом выбора Сущность метода: Находится минимальный элемент, затем 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
10
Задача. Из массива a составить массив b, который содержит только чётные элементы массива a. 10
11
Домашнее задание Дан целочисленный массив А(n), где n=10, заполненный случайными числами в интервале [-50;50]. Найти произведение чисел, кратных 10 и сумму положительных элементов. Вывести на экран исходный массив и полученные результаты. 11
![Домашнее задание Дан целочисленный массив А(n), где n=10, заполненный случайными числами в интервале [-50;50]. Найти произведение чисел, кратных 10 и сумму положительных элементов. Вывести на экран исходный массив и полученные результаты. 11](http://images.myshared.ru/19/1236570/slide_11.jpg "Домашнее задание Дан целочисленный массив А(n), где n=10, заполненный случайными числами в интервале [-50;50]. Найти произведение чисел, кратных 10 и сумму положительных элементов. Вывести на экран исходный массив и полученные результаты. 11")
Еще похожие презентации в нашем архиве:
![I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.](/thumbs/19/1200635/big_thumb.jpg "I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.")
![A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] Двумерный массив можно представить.](/thumbs/6/640025/big_thumb.jpg "A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5] Двумерный массив можно представить.")
![Поиск максимального и минимального элемента линейного массива на языке Turbo Pascal. Program poisk; Const n=10; Type mass=array[1..n] of integer; Var a:mass;](/thumbs/19/1206755/big_thumb.jpg "Поиск максимального и минимального элемента линейного массива на языке Turbo Pascal. Program poisk; Const n=10; Type mass=array[1..n] of integer; Var a:mass;")
![Шутилина Л.А., Lshutilina@yandex.ru. A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]](/thumbs/6/723134/big_thumb.jpg "Шутилина Л.А., Lshutilina@yandex.ru. A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]")
![PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.](/thumbs/6/682838/big_thumb.jpg "PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.")
![PROGRAM example1; CONST N = 8; M = 10; VAR a : ARRAY [ 1.. N, 1.. M ] of INTEGER; i, j : INTEGER; BEGIN FOR i := 1 TO N DO FOR j := 1 TO M DO a[ i, j ]](/thumbs/4/97932/big_thumb.jpg "PROGRAM example1; CONST N = 8; M = 10; VAR a : ARRAY [ 1.. N, 1.. M ] of INTEGER; i, j : INTEGER; BEGIN FOR i := 1 TO N DO FOR j := 1 TO M DO a[ i, j ]")
![Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.](/thumbs/6/535442/big_thumb.jpg "Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.")
