Презентация на тему Массив в программировании

( Из словаря иностранных слов, 1954 г.)

Массив в программировании - это структура
данных, представляющая собой упорядочен-
ную совокупность значений одного типа.
( Из Оксфордского словаря английского языка, 1995 г.)

www.uroki.net

Теория
3. Тесты
2. Примеры

www.uroki.net

один и тот же тип;
каждый компонент имеет

свой номер;

множество индексов конечно, зафиксировано в определении массива;

возможность обработки компонента, его доступность не зависит от его места в последовательности.

{Максимальные значения количества элементов}
Type = Array[1..МахМ] Of

<тип элементов>;
Var А1, В2, С3: <имя типа> ;
Например:
Const MaxM = 10;
Type А = Array[1..МахМ] Of integer;
Var M: A;
Второй способ:
Const MaxM = ...; {Максимальные значения количества элементов}
Var <имя массива>:Array[1..MaxN] Of <тип элементов>;
Например:
Const MaxM = 10;
Var А: Array[1..МахМ] Of integer;

www.uroki.net

vvod;
Const maxM=10;
Var tab1: array[1..maxM] of integer;

i: integer;
Begin
For i:=1 to maxM do
begin
writeln('Введите элементы массива ');
readln(tab[i]);
end;
End.

www.uroki.net

МАССИВА:
Program vivod;
Const maxM=10;
Var tab1: array[1..maxM]

of integer;
i: integer;
Begin
For i:=1 to maxM do
begin
writeln('Вывод элементов массива ');
writeln (tab[i]);
end;
End.

www.uroki.net

Var К: array[1..maxM] of integer;

i,S: integer;
Begin
For i:=1 to maxM do
begin
writeln('Введите элементы массива ');
readln(К[i]);
end;
S:=0;
for i:=1 to maxM do
if К[i]<0 then S:=S+ К[i];
writeln('S=',S)
End.

Поиск элемента с заданными свойствами.

Задан одномерный массив К[1..10], определить сумму
отрицательных элементов.

www.uroki.net

tab1: array[1..maxM] of integer;
i: integer;
Begin
Randomize;

{функция позволяет перемешивать числа из диапазона
указанном в функции random и употребляется перед ней }
For i:=1 to maxM do
begin
Tab1[i]:=random(101);
{Функция random(101) генерирует целые
числа в диапазоне от 0 до 100}
write(tab1[i]);
end;
End.

Генерация элементов массива с помощью функции случайных чисел.

www.uroki.net

массив K из 10 целых элементов, найти максимальный элемент

и его индекс.
Решение:
Program Poisk_2;
Const maxM=10;
Var К: array[1..maxM] of integer;
Max, i, j: integer;
Begin
Randomize;
For i:=1 to maxM do
begin
К[i]:=random(101);
write(К[i]);
end;
Max:=K[1];
J:=1;
for i:=2 to maxM do
if Max writeln('Максимальный элемент=', max);
writeln('Индекс макс. элемента=', j);
End.

www.uroki.net

некотором порядке.
Убывающий порядок - каждый следующий элемент
должен быть меньше

предыдущего.

Невозрастающий - каждый следующий элемент
должен быть не больше предыдущего.

Возрастающий - каждый следующий элемент больше
предыдущего.

Неубывающий - каждый следующий элемент не
меньше предыдущего.

www.uroki.net

N-1 do
begin
K:=i; max:=A[i]
for j:=i+1 to N do
if A[j]>max

then
begin
max:=A[j];
K:=j;
end;
A[K]:=A[i];A[i]:=max;
end;

www.uroki.net

элементов разного типа.
в) Конечное упорядоченное множество элементов одного

типа.


Одномерный массив описывается:
а) Var tab1: array[1..78] of integer;
б) var tab1: array[1..5] ;
в) Var tab1= array[1..13] of integer;

тесты

www.uroki.net