Презентация по информатике "Массивы"

Массив – упорядоченная последовательность конечного числа однотипных данных, обозначаемая единым именем.

Структура программы с элементами массива

Описание массива

Ввод элементов массива

Работа с элементами массива

Вывод результата

Одномерный массив. Описание массива

VAR MAS: ARRAY [1..N] OF T

Описание константы

CONST N=X ;

VAR MAS: ARRAY [1..N] OF T

Ларина Т.Ю.

МБОУ УСОШ №2 г.Урень

Массив – упорядоченная последовательность конечного числа однотипных данных, обозначаемая единым именем.

Содержание:

виды массива

структура программы

одномерный массив

задание массива

вывод массива

примеры задач

двумерный массив

ввод и вывод массива

примеры задач

Массивы делятся на:

• Одномерный (линейный) массив

• Двумерный массив

0

2

1

-3

7

0

3

3

6

12

4

-2

5

9

Структура программы с элементами массива

• Описание массива

• Ввод элементов массива
• Работа с элементами массива

4. Вывод результата

Одномерный массив Описание массива

VAR MAS: ARRAY [ 1 ..N ] OF T

Описание константы

CONST N=X ;

VAR MAS: ARRAY [ 1 ..N] OF T

Способы задания значений элементов массива

• Оператор присваивания

А [1]:= 3

A [2]:= -5

2. Оператор ввода с клавиатуры

For i:= 1 to N do

Begin

Readln (a [i]);

3. Заполнение массива с использованием генератора случайных чисел

RANDOMIZE;

For i:= 1 to N do

A [i]:= RANDOM (X);

4 . Заполнение по формуле

For i:= 1 to N do

A [i]:= i*i ;

Вывод массива

For i:=1 to N do Writeln (a[i])

Сумма элементов массива

…

Sum:=0;

For i:=1 to N do

Begin

readln(a[i]);

Sum:=sum+a[i] ;

end;

Writeln (sum);

…

0 then; Begin K:= k+1; Sum:= sum+a[i]; end; Writeln (k); … " width="640"

Сумма и количество положительных чисел

…

Sum:=0; k:=0;

For 1 to N do

If a[i]0 then;

Begin

K:= k+1;

Sum:= sum+a[i];

end;

Writeln (k);

…

max then max:=a[i]; Writeln (max a[i]); End. " width="640"

Поиск наибольшего элемента в массиве

Program maximum;

Var a: array[1..10] of real;

i: integer ; max: real;

Begin

For i:=1 to 10 do

Readln (a[i]);

max:=a[i] ;

For i:=1 to 10 do

If a[i]max then max:=a[i];

Writeln (max a[i]);

End.

Описание массива:

1способ. С использованием типа

… Type T=array[1..N1, 1..N2] OF integer; Var a: T…

2 способ. Var a: array[1..N1, 1..N2] of integer

Перемещение по строке

For i:=1 to m do …

For j:=1 to n do …

Перемещение по столбцу

For j:=1 to n do …

For i:=1 to m do …

Заполнение двумерного массива (ввод) :

For i=1 to m do

For j=1 to n do

Readln (A[i, j]);

Вывод :

For i=1 to m do

For j=1 to n do

Begin

Writeln (A[i, j]);

Writeln;

Вычисление суммы элементов каждой строки, столбца.

• Найти сумму элементов первого столбца.

...

begin

for i:=1 to n do

for j:=1 to n do

readln (a[i,j]);

S:=0; j:=1;

For i:=1 to n do

S:=s+a[i:j];

Writeln (s :5 :2);

end.

2. Найти сумму элементов всего двумерного массива .

…

S:=0;

For i:=1 to m do

For j:=1 to n do

S:=s+a[i;j];

…

max then begin max:a[i;j]; Ind_c:=j; End; Writeln (max[i]); End; … " width="640"

Найти мах элемент каждой строки

…

For i:=0 to m do

Begin

Max:=a[i;1];

Ind_L:=i;

Ind_c:=j;

For j:=1 to n do

If a[i;j]max then begin max:a[i;j];

Ind_c:=j;

End;

Writeln (max[i]);

End;

…

Найти min элемент и его индекс для всего массива

…

Min:=a[1,1];

Ind_L:=1;

Ind_c:=1;

For i:=1 to m do

For i:=1 to n do

If a[i,j]

Min:=a[i,j];

Ind_L:=I;

Ind_c:=j;

End;