Презентация, доклад на тему Открытый урок по информатике на тему Массивы

Под это определение подходит множество объектов: мультфильм (последовательность картинок) и т. д. 

А

A [ 4 ] := 11;

Имя массива

Индекс (порядковый номер) элемента массива

Значение элемента массива

Определение 1

Var имя:ARRAY[1..N] OF тип;

Объявление массива в разделе описания переменных:

Например:

Var A:Array[1..10] of Integer;

Var Tem:Array[1..100] of Real;

Имя массива

Количество элементов

Тип элементов

a[i]=2*a[i]+6

2 способ. Вывод с комментариями:

for i:=1 to 10 do writeln ('a[', i, ']=', a[i]);

Program n2;
var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
readln(a[i]);
write(a[i]:5);
end;
end.

Ввод элементов массива с клавиатуры

Вывод массива в строчку на экран

Решение разнообразных задач, связанных с обработкой массивов, базируется на решении таких типовых задач, как:
- суммирование элементов массива;
- поиск элемента с заданными свойствами;
- сортировка массива.

Условия:
a [ i ] > 0
a [ i ] Mod 2 = 0
a [ i ] = int(a [ i ])
a [ i ] = i
i Mod 2 = 0
a [ i ] = К

Обработка массива 13

- положительный элемент массива
- четный элемент массива
- целый элемент массива
-элемент массива равен своему порядковому номеру
– четные порядковые номера
– элемент массива равный числу К

Изменения:
a [ i ] :=5
a [ i ] := - a [ i ]

a [ i ] := a [ i ] * 2

a [ i ] := a [ i - 1]+3

Обработка массива 13

– заменить i-ый элемент на число 5

– заменить i-ый элемент на
противоположный по знаку

– удвоить каждый элемент массива

–заменить i-ый элемент предшествующим плюс 3

Цикл обработки и вывода элементов массива на экран

For i:=1 to N do begin
If (условие) then a[i]:=значение:
Writeln(a[i]:5);
end;

Нахождение суммы и произведения элементов массива 15

Предполагаем, что сумма равна нулю

Если элемент подходит по условию, добавляем его к сумме

Нахождение произведения элементов массива удовлетворяющих условию:

p:=1;
For i:=1 to N do If (условие) then p:=p* a[i];
WriteLn('Произведение = ', p:10:5);

Если элемент подходит по условию, добавляем его к произведению

Предполагаем, что произведение равно единице

Предполагаем, что таких элементов нет

Если такой элемент есть, то К увеличиваем на 1.

Подсчет количества элементов удовлетворяющих условию 16

Предполагаем, что наибольший элемент стоит на первом месте

Если находится больший элемент

Он становится максимальным

Когда массив закончился, выводим наибольший элемент и его номер

Максимальный и минимальный элемент массива 19

Иногда в задаче достаточно определить индекс наибольшего элемента

Максимальный и минимальный элемент массива 20

Предполагаем, что наибольший элемент стоит на первом месте

Если i-ый элемент больше стоящего на месте max

то, запоминаем его индекс в переменной max

Program __________;
Var
а: ________ [1..100] of __________;
N, k, i : integer;
begin
writeln(‘_____________’);
readln (N);
for i:=1 to N do
begin
write ( ‘a [‘, i , ’] = ’);
_____________
end;
k : = 0;
for i:=1 to N do
if a[i] ______ then _____________;
Writeln (‘ осталось K=’, k)
end.

array

integer

integer

Введите N

N

Readln(a[i]);

Readln(a[i]);

S:=s+a[i];

K:=k+1;

s

>10

>5

0

1) c [4]:=10

2) c[2]:=3;
c[4]:=c[2]*2;

3) a[1]:= -10;
b[2]:=10;
c[4]:=a[1]+b[2];

4) c[4]:=3;
c[4]:=c[4]+1;

5) a[4]:=100;
b[4]:=0;
c[4]:=a[4]/b[4]

6) for i:=1 to 5 do c[i]:=50;

7) for i:=1 to 5 do c[i]:=50;
for i:=1 to 5 do c[i]:=c[i]-10;

1) c [4]:=10

10

2) c[2]:=3;
c[4]:=c[2]*2;

6

3) a[1]:= -10;
b[2]:=10;
c[4]:=a[1]+b[2];

0

4) c[4]:=3;
c[4]:=c[4]+1;

4

5) a[4]:=100;
b[4]:=0;
c[4]:=a[4]/b[4]

ошибка

6) for i:=1 to 5 do c[i]:=50;

50

7) for i:=1 to 5 do c[i]:=50;
for i:=1 to 5 do c[i]:=c[i]-10;

40

Решение:
program pr1;
var a: array [1..5] of integer;
max,i: integer;
begin
for i:=1 to 5 do readln(a[i]);
max:=a[1];
for i:=2 to 5 do if a[i]>max then max:=a[i];
writeln('максимальный элемент: ', max);
readln;
end.

Переделать данную программу так, чтобы определить минимальный элемент массива.

Решение:
program pr1;
var a: array [1..5] of integer;
min, I: integer;
begin
for i:=1 to 5 do readln(a[i]);
min:=a[1];
for i:=2 to 5 do if a[i] < min then min:=a[i];
writeln(‘минимальный элемент: ', min);
readln;
end.

Массив – это

Индекс массива – это

Алгоритм обработки одномерного массива