Массивы (Turbo Pascal) - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Массивы (Turbo Pascal). Доклад-сообщение содержит 43 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Лекция 4

Слайд 2

Описание слайда:

– это структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же тип. – это структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же тип. Массивы описываются следующим образом: = ARRAY [ диапазоны индексов ] OF ;

Слайд 3

Описание слайда:

Одномерные массивы Многомерные массивы (Матрицы)

Слайд 4

Описание слайда:

Перед использованием массив, как и любая переменная, должен быть объявлен в разделе объявления переменных. В общем виде объявление массива выглядит так: Перед использованием массив, как и любая переменная, должен быть объявлен в разделе объявления переменных. В общем виде объявление массива выглядит так: Имя: array [нижний_индекс .. верхний_индекс] of тип где Имя - имя переменной-массива; array - ключевое слово, обозначающее, что переменная является массивом; нижний_индекс и верхний_индекс - целые числа, определяющие диапазон изменения индексов (номеров) элементов массива и, неявно, количество элементов (размер) массива; тип - тип элементов массива.

Слайд 5

Описание слайда:

- вывод массива; - вывод массива; - ввод массива; - сортировка массива; - поиск в массиве заданного элемента;

Слайд 6

Описание слайда:

это вывод на экран значений элементов массива. Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию FOR, переменная-счётчик которой может быть реализована как индекс элемента массива. это вывод на экран значений элементов массива. Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию FOR, переменная-счётчик которой может быть реализована как индекс элемента массива.

Слайд 7

Описание слайда:

var var day: array [1..7] of string [11]; i: integer; begin day [1]:=‘Понедельник’; day [2]:=‘Вторник’; day [3]:=‘Среда’; day [4]:=‘Четверг’; day [5]:=‘Пятница’; day [6]:=‘Суббота’; day [7]:=‘Воскресенье’; for i:= 1 to 7 do writeln (i, ‘ ’, day [i]); end.

Слайд 8

Описание слайда:

Под вводом массива понимается ввод значений элементов массива. Как и вывод массива, ввод удобно реализовать при помощи инструкции FOR. Под вводом массива понимается ввод значений элементов массива. Как и вывод массива, ввод удобно реализовать при помощи инструкции FOR. Случайным образом Ввод с клавиатуры По формуле

Слайд 9

Описание слайда:

Program zadahca1; Program zadahca1; Var A:array[1..15] of integer; i:nteger; Begin Randomize; For i:=1 to 15 do Begin A[i]:=random(27); Write(A[i]:3); End; Readln; End.

Слайд 10

Описание слайда:

Program zadahca2; Program zadahca2; Const n=10; Var A:array[1..n] of integer; i:nteger; Begin For i:=1 to n do Begin Readln(A[i]); Write(A[i]:3); End; Readln; End.

Слайд 11

Описание слайда:

Program zadahca3; Program zadahca3; Var A:array[1..100] of integer; n,i:integer; Begin Writeln(‘введите количество элементов в массиве’); Readln(n); For i:=1 to n do Begin A[i]:=sin(I)+cos(I); Write(A[i]:3); End; Readln; End.

Слайд 12

Описание слайда:

Под сортировкой массива подразумевается процесс перестановки элементов с целью упорядочивания их в соответствии с каким-либо критерием. Например, если имеется массив целых a , то после сортировки по возрастанию должно выполняться условие: Под сортировкой массива подразумевается процесс перестановки элементов с целью упорядочивания их в соответствии с каким-либо критерием. Например, если имеется массив целых a , то после сортировки по возрастанию должно выполняться условие: a [1]

Слайд 13

Описание слайда:

Сортировка выбором Сортировка выбором Сортировка обменом (методом "пузырька") Шейкерная перестановка Сортировка включением Сортировка Хоара

Слайд 14

Описание слайда:

Program Sort_Vybor1; var A:array[1..100] of integer; N,i,m,k,x : integer; begin write('количество элементов массива '); read(N); for i:=1 to n do read(A[i]); for k:=n downto 2 do { k - количество элементов для поиска max } begin m:=1; { m - место max } for i:=2 to k do if A[i]>A[m] then m:=i; {меняем местами элементы с номером m и номером k} x:=A[m]; A[m]:=A[k]; A[k]:=x; end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 15

Описание слайда:

Program Sort_Obmen1; Program Sort_Obmen1; var A: array[1..100] of integer; N,i,k,x : integer; begin write('количество элементов массива '); read(N); for i:=1 to n do read(A[i]); for k:=n-1 downto 1 do {k - количество сравниваемых пар} for i:=1 to k do if A[i]>A[i+1] then {меняем местами соседние элементы} begin x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 16

Описание слайда:

Program Sort_Obmen2; Program Sort_Obmen2; var A: array[1..100] of integer; N,i,k,x : integer; p: boolean; begin write('количество элементов массива '); read(N); for i:=1 to n do read(A[i]); k:=n-1; {количество пар при первом проходе} p:=true; {логическая переменная p истинна, если были перестановки, т.е. нужно продолжать сортировку} while p do begin p:=false;

Слайд 17

Описание слайда:

{Начало нового прохода. Пока перестановок не было.} {Начало нового прохода. Пока перестановок не было.} for i:=1 to k do if A[i]>A[i+1] then begin x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; {меняем элементы местами} p:=true; {и запоминаем факт перестановки} end; k:=k-1; {уменьшаем количество пар для следующего прохода} end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 18

Описание слайда:

Program Sort_Obmen3; Program Sort_Obmen3; var A: array[1..100] of integer; N,i,k,x,m : integer; begin write('количество элементов массива '); read (N); for i:=1 to n do read(A[i]); k:=n-1; {количество пар при первом проходе} while k>0 do begin m:=0;

Слайд 19

Описание слайда:

{пока перестановок на этом проходе нет, место равно 0} {пока перестановок на этом проходе нет, место равно 0} for i:=1 to k do if A[i]>A[i+1] then begin x:=A[i]; A[i]:=A[i+1]; A[i+1]:=x; {меняем элементы местами} m:=i; {и запоминаем место перестановки} end; k:=m-1; {количество пар зависит от места последней перестановки} end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 20

Описание слайда:

Program Shaker; Program Shaker; var A: array[1..100] of integer; N,i,k,x,j,d : integer; begin write('количество элементов массива '); read(N); for i:=1 to n do read(A[i]); d:=1; i:=0; for k:=n-1 downto 1 do {k - количество сравниваемых пар } begin i:=i+d; for j:=1 to k do

Слайд 21

Описание слайда:

begin begin if (A[i]-A[i+d])*d>0 then {меняем местами соседние элементы} begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end; i:=i+d; end; d:=-d; {меняем направление движения на противоположное} end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 22

Описание слайда:

Program Sort_Include1; Program Sort_Include1; var A: array[1..100] of integer; N,i,k,x : integer; begin write('количество элементов массива '); read(N); read(A[1]); {for i:=1 to n do read(A[i]);} {k - количество элементов в упорядоченной части массива} for k:=1 to n-1 do begin read(x); {x:=A[k+1];} i:=k; while (i>0)and(A[i]>x) do begin A[i+1]:=A[i]; i:=i-1; end; A[i+1]:=x; end; for i:=1 to n do write(A[i],' '); {упорядоченный массив} end.

Слайд 23

$Program Quick_Sort; Program Quick_Sort; var A:array[1..100] of integer; N,i : integer; {В процедуру передаются левая и правая границы сортируемого...$

Описание слайда:

Program Quick_Sort; Program Quick_Sort; var A:array[1..100] of integer; N,i : integer; {В процедуру передаются левая и правая границы сортируемого фрагмента} procedure QSort(L,R:integer); var X,y,i,j:integer; begin X:=A[(L+R) div 2]; i:=L; j:=R; while i

Слайд 24

Описание слайда:

if i

Слайд 25

Описание слайда:

Наиболее простой - это алгоритм перебора. Поиск осуществляется последовательным сравнением элементов массива с образцом до тех пор, пока не будет найден элемент, равный образцу, или не будут проверены все элементы. Алгоритм простого перебора применяется, если элементы массива не упорядочены. Наиболее простой - это алгоритм перебора. Поиск осуществляется последовательным сравнением элементов массива с образцом до тех пор, пока не будет найден элемент, равный образцу, или не будут проверены все элементы. Алгоритм простого перебора применяется, если элементы массива не упорядочены.

Слайд 26

Описание слайда:

Max:=a[1]; nMax:=1; For i:=1 to n do Begin If a[i]>Max then begin Max:=a[i]; nMax:=i; End;

Слайд 27

Описание слайда:

Num:=0; Num:=0; Sum:=0; For i:=1 to n do If a[i] mod 2=0 then begin Num:=Num+1; Sum:=Sum+a[i]; End;

Слайд 28

Описание слайда:

Num:=0; Sum:=0; Sr:=0; For i:=1 to n do if a[i] mod 2=0 then Begin Num:=Num+1; Sum:=Sum+a[i]; End; Sr:=Sum/Num;

Слайд 29

Описание слайда:

j:=0; j:=0; For i:=1 to n If a[i] mod 2 = 0 then Begin j:=j+1; b[j]:=a[i]; End;

Слайд 30

Описание слайда:

Конструкция (n div 2)+(n mod 2) означает номер центрального элемента массива ( для массива с нечетной длинной) или номер последнего элемента первой половины массива (для массива с четной длиной) Конструкция (n div 2)+(n mod 2) означает номер центрального элемента массива ( для массива с нечетной длинной) или номер последнего элемента первой половины массива (для массива с четной длиной) For i:=1 to (n div 2)+(n mod 2) do Begin k:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=k; End;

Слайд 31

Описание слайда:

Способ организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен, называется двумерным массивом или матрицей. Способ организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен, называется двумерным массивом или матрицей.

Слайд 32

Описание слайда:

Const n=20; m=30; Type MyArray2 = array [1..n] of array [1..m] of integer; Var A : MyArray2;

Слайд 33

Описание слайда:

Еще более краткое описание массива А можно получить, указывая имя массива и диапазоны изменения индексов для каждой размерности массива Еще более краткое описание массива А можно получить, указывая имя массива и диапазоны изменения индексов для каждой размерности массива Const n=20; m=30; Type MyArray2 = array [1..n, 1..m] of integer; Var A : MyArray2;

Слайд 34

Описание слайда:

удобно использовать объявление массива в разделе описания переменных удобно использовать объявление массива в разделе описания переменных Const n=20; m=30; Var A : array [1..n, 1..m] of integer; Или Var A : array [1..5, 1..3] of integer;

Слайд 35

Описание слайда:

A [i,j] – обращение к элементу A [i,j] – обращение к элементу Первый индекс - это номер строки, а второй - номер столбца, где расположен элемент массива.

Слайд 36

Описание слайда:

For i:=1 to n do For i:=1 to n do Begin For j:=1 to m do Begin Write(a[i,j]:5); End; Writeln; End;

Слайд 37

Описание слайда:

Если номер строки совпадает с номером столбца (i=j), это означает что элемент лежит на главной диагонали, Если номер строки совпадает с номером столбца (i=j), это означает что элемент лежит на главной диагонали, Если номер строки превышает номер столбца (i>j), это означает что элемент находится ниже главной диагонали, Если номер столбца больше номера строки (i

Слайд 38

Описание слайда:

Элемент лежит на побочной диагонали, если его индексы удовлетворяют равенству i+j-1=n, Элемент лежит на побочной диагонали, если его индексы удовлетворяют равенству i+j-1=n, Элемент находится над побочной диагональю если его индексы удовлетворяют неравенству i+jn+1.