🗊Презентация Массивы в Паскале

Категория: Устройства и комплектующие
Нажмите для полного просмотра!
Массивы в Паскале, слайд №1Массивы в Паскале, слайд №2Массивы в Паскале, слайд №3Массивы в Паскале, слайд №4Массивы в Паскале, слайд №5Массивы в Паскале, слайд №6Массивы в Паскале, слайд №7Массивы в Паскале, слайд №8Массивы в Паскале, слайд №9Массивы в Паскале, слайд №10Массивы в Паскале, слайд №11Массивы в Паскале, слайд №12Массивы в Паскале, слайд №13Массивы в Паскале, слайд №14Массивы в Паскале, слайд №15Массивы в Паскале, слайд №16
Скачать
Вы можете ознакомиться и скачать презентацию на тему Массивы в Паскале. Доклад-сообщение содержит 16 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

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

Слайд 1


Массивы в Паскале.
Описание слайда:
Массивы в Паскале.

Слайд 2


Одномерные массивы Массив – это именованная группа однотипных данных, хранящихся в последовательных ячейках памяти. Каждая ячейка содержит элемент массива. Элементы нумеруются по порядку. Порядковый номер элемента массива называется индексом этого элемента.
Описание слайда:
Одномерные массивы Массив – это именованная группа однотипных данных, хранящихся в последовательных ячейках памяти. Каждая ячейка содержит элемент массива. Элементы нумеруются по порядку. Порядковый номер элемента массива называется индексом этого элемента.

Слайд 3


Способы создания массивов В разделе TYPE: Type        Имя типа = Array [диапазон ] Of  тип элементов; Var        Имя переменной: имя типа;
Описание слайда:
Способы создания массивов В разделе TYPE: Type        Имя типа = Array [диапазон ] Of  тип элементов; Var        Имя переменной: имя типа;

Слайд 4


Ввод и вывод одномерных массивов Введем одномерный массив Х, состоящий из 30 элементов. Т.е. необходимо ввести некую последовательность элементов Х1, Х2, …, Х30. Пусть i – индекс (порядковый номер) элемента в массиве Х. Тогда Хi – i-й элемент массива Х, где i = 1, 2, …, 30. Для ввода массива можно использовать любой цикл.
Описание слайда:
Ввод и вывод одномерных массивов Введем одномерный массив Х, состоящий из 30 элементов. Т.е. необходимо ввести некую последовательность элементов Х1, Х2, …, Х30. Пусть i – индекс (порядковый номер) элемента в массиве Х. Тогда Хi – i-й элемент массива Х, где i = 1, 2, …, 30. Для ввода массива можно использовать любой цикл.

Слайд 5


1 - цикл с предусловием Var i: byte;      X: array [1..30] of Integer; Begin      i := 1;      While i <= 30 Do          Begin             Read (X[i]); i := i + 1           End;        End. Можно ввести с клавиатуры элементы следующим образом: -7 _ 4 _ -2 _ 0 _ 12 _ -1 _ -5 _  9 _ 11 _ -3 _ -5 _ … _15, то есть через пробел ввести в строчку и нажать клавишу Enter. Можно было ввести элементы в столбец,   отделяя элементы клавишей Enter, то есть каждый элемент с новой экранной строки: -7 Enter  4 Enter -2 Enter   …   …   …  15 Enter
Описание слайда:
1 - цикл с предусловием Var i: byte;      X: array [1..30] of Integer; Begin      i := 1;      While i <= 30 Do          Begin             Read (X[i]); i := i + 1           End;        End. Можно ввести с клавиатуры элементы следующим образом: -7 _ 4 _ -2 _ 0 _ 12 _ -1 _ -5 _  9 _ 11 _ -3 _ -5 _ … _15, то есть через пробел ввести в строчку и нажать клавишу Enter. Можно было ввести элементы в столбец,   отделяя элементы клавишей Enter, то есть каждый элемент с новой экранной строки: -7 Enter  4 Enter -2 Enter   …   …   …  15 Enter

Слайд 6


2 - цикл с постусловием Program Primer_2; Var i: integer;      X: array [1..30] of Integer; Begin      i := 1;      Repeat            Read (X[i]); i := i + 1      Until i > 30;        Readln End.
Описание слайда:
2 - цикл с постусловием Program Primer_2; Var i: integer;      X: array [1..30] of Integer; Begin      i := 1;      Repeat            Read (X[i]); i := i + 1      Until i > 30;        Readln End.

Слайд 7


3 - цикл с параметром Var i: integer;      X: array [1..30] of Integer; Begin      For i := 1 To 30 Do Read (X[i]);   End.
Описание слайда:
3 - цикл с параметром Var i: integer;      X: array [1..30] of Integer; Begin      For i := 1 To 30 Do Read (X[i]);   End.

Слайд 8


Задача 1. Дан целочисленный одномерный массив, состоящий из n элементов. Найти сумму и произведение нечетных элементов, кратных 3. Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента массива; Ai – i-й элемент массива A; s – сумма нечетных элементов массива, кратных 3; p – произведение нечетных элементов массива, кратных 3. Входные данные: n, A. Выходные данные: s, p.
Описание слайда:
Задача 1. Дан целочисленный одномерный массив, состоящий из n элементов. Найти сумму и произведение нечетных элементов, кратных 3. Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента массива; Ai – i-й элемент массива A; s – сумма нечетных элементов массива, кратных 3; p – произведение нечетных элементов массива, кратных 3. Входные данные: n, A. Выходные данные: s, p.

Слайд 9


Var A: Array[1..20] Of Integer; Var A: Array[1..20] Of Integer;       i, n, s, p: Integer; Begin      Write (‘n=’); Readln (n);      For i:=1 To n Do Readln (A[i]);   {ввод массива}      s:= 0;  p:=1;      For i:=1 To n Do   {обработка массива}       If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then       begin           s:=s+A[i];  p:= p*A[i]       end;       Writeln (‘s=’, s, ‘p=’, p);       Readln End.
Описание слайда:
Var A: Array[1..20] Of Integer; Var A: Array[1..20] Of Integer;       i, n, s, p: Integer; Begin      Write (‘n=’); Readln (n);      For i:=1 To n Do Readln (A[i]);   {ввод массива}      s:= 0;  p:=1;      For i:=1 To n Do   {обработка массива}       If (A[i] mod 2 <>0) and (A[i] mod 3 = 0) Then       begin           s:=s+A[i];  p:= p*A[i]       end;       Writeln (‘s=’, s, ‘p=’, p);       Readln End.

Слайд 10


Задача 2. Найти номер последнего отрицательного элемента массива. Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента массива; Ai – i-й элемент массива A; m – номер последнего отрицательного элемента массива. Входные данные: n, A. Выходные данные: m. Последний отрицательный элемент массива – это первый отрицательный элемент, который встретится при просмотре массива с конца.
Описание слайда:
Задача 2. Найти номер последнего отрицательного элемента массива. Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента массива; Ai – i-й элемент массива A; m – номер последнего отрицательного элемента массива. Входные данные: n, A. Выходные данные: m. Последний отрицательный элемент массива – это первый отрицательный элемент, который встретится при просмотре массива с конца.

Слайд 11


Const n=10; Const n=10; Var A: Array[1..n] Of Integer;       i, m: Integer;  Begin       For i:=1 To n Do Readln (A[i]);   {ввод массива}       m := 0;  i:=n;       While  (i >= 1) and (A[i] >=0) Do  i:=i-1;    m:=i;      Writeln (‘m=’, m);      Readln      End.
Описание слайда:
Const n=10; Const n=10; Var A: Array[1..n] Of Integer;       i, m: Integer;  Begin       For i:=1 To n Do Readln (A[i]);   {ввод массива}       m := 0;  i:=n;       While  (i >= 1) and (A[i] >=0) Do  i:=i-1;    m:=i;      Writeln (‘m=’, m);      Readln      End.

Слайд 12


const m = 10;   var A: array[1..m] of integer; i, j, k: integer;   begin randomize;   write ('Исходный массив: '); for i := 1 to m do begin A[i] := random(256); write (A[i]:4); end; writeln;     for i := 1 to m-1 do for j := 1 to m-i do if A[j] > A[j+1] then begin k := A[j]; A[j] := A[j+1]; A[j+1] := k end;   write ('Отсортированный массив: '); for i := 1 to m do write (A[i]:4);   end.
Описание слайда:
const m = 10;   var A: array[1..m] of integer; i, j, k: integer;   begin randomize;   write ('Исходный массив: '); for i := 1 to m do begin A[i] := random(256); write (A[i]:4); end; writeln;     for i := 1 to m-1 do for j := 1 to m-i do if A[j] > A[j+1] then begin k := A[j]; A[j] := A[j+1]; A[j+1] := k end;   write ('Отсортированный массив: '); for i := 1 to m do write (A[i]:4);   end.

Слайд 13


Двумерные массивы Их можно описать как таблицу, в ячейках которой располагаются значения. Для обращения к данным массива указывается номера их строк и столбцов. Часто табличные массивы называют матрицами.
Описание слайда:
Двумерные массивы Их можно описать как таблицу, в ячейках которой располагаются значения. Для обращения к данным массива указывается номера их строк и столбцов. Часто табличные массивы называют матрицами.

Слайд 14


1 вариант – описание массива через раздел type: const M = 10; N = 5; type matrix = array [1..M, 1..N] of integer; var a: matrix;
Описание слайда:
1 вариант – описание массива через раздел type: const M = 10; N = 5; type matrix = array [1..M, 1..N] of integer; var a: matrix;

Слайд 15


Обращение к элементам Для обращения к элементу двухмерного массива необходимо указать имя массива и в квадратных скобках через запятую – значения двух индексов (первый указывает номер строки, а второй – номер столбца), на пересечение которых стоит элемент (например, a[i,2]:=6). допустимо разделение индексов с помощью квадратных скобок (например, a[i][5]:= 7).
Описание слайда:
Обращение к элементам Для обращения к элементу двухмерного массива необходимо указать имя массива и в квадратных скобках через запятую – значения двух индексов (первый указывает номер строки, а второй – номер столбца), на пересечение которых стоит элемент (например, a[i,2]:=6). допустимо разделение индексов с помощью квадратных скобок (например, a[i][5]:= 7).

Слайд 16


Пример: Ввести массив (3х5), а затем вывести элементы на экран в виде таблицы. var matrix: array[1..3,1..5] of integer; i, j: integer;   begin writeln ('Введите 15 чисел: ');   for i := 1 to 3 do for j := 1 to 5 do read (matrix[i,j]);   for i := 1 to 3 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end;   readln end.
Описание слайда:
Пример: Ввести массив (3х5), а затем вывести элементы на экран в виде таблицы. var matrix: array[1..3,1..5] of integer; i, j: integer;   begin writeln ('Введите 15 чисел: ');   for i := 1 to 3 do for j := 1 to 5 do read (matrix[i,j]);   for i := 1 to 3 do begin for j := 1 to 5 do write (matrix[i,j], ' '); writeln end;   readln end.

Скачать

Похожие презентации
Mypresentation.ru
Загрузить презентацию