Тема урока: "Массивы"

ГКОУ РД «Кочубейская СОШИ» Массивы Выполнила:Джамалдинова А.Д

Что такое массив?

Дайте определение.

Какого типа могут быть индексы (номера) элементов массива?

Как описывается массив в разделе переменных программы?

Как производится ввод элементов массива?

Чтобы решить задачу с массивом необходимо выполнить следующее:

1) определить, какие числа даны: целые или вещественные;

2) назвать весь массив одним именем, которое будет использоваться для каждого элемента, только к нему добавится номер этого элемента (индекс);

3) описать массив в разделе переменных VAR ;

4) ввести данные в память.

Решить задачу 1 :

Дан массив натуральных чисел из 10-ти элементов.

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

начало

i:= 1,10

a[i]

s:= 0

i:= 1,10

s:=s+a[i]

s

конец

Вычисление суммы элементов массива

Program Summa;

const n=10;

var a: arra y [1..10] of real;

S:real;

i:integer;

begin

write (‘ введите 10 элементов массива, через пробел ’);

For i:=1 to n do readln(a[i]);

S:=0;

For i:=1 to n do

S:=S+a[i];

writeln;

write(‘ Сумма всех элементов массива = ’,S);

readln;

end.

Решить задачу 2 :

Дан массив из ста элементов.

Найти максимальный элемент

Вычисление наибольшего элемента массива

Вычисление наибольшего элемента массива

самый большой

Вычисление наибольшего элемента массива

max

Вычисление наибольшего элемента массива

Вычисление наибольшего элемента массива

Вычисление наибольшего элемента массива

max

Вычисление наибольшего элемента массива

max

Вычисление наибольшего элемента массива

max

max max:= a[i] max max конец " width="640"

начало

i:= 1,100

a[i]

max:= a[1]

i:= 2 ,100

a[i ] max

max:= a[i]

max

max

конец

Вычисление наибольшего элемента массива

Program maxsimum;

var a: array [1.. 100 ] of integer;

max, i:integer;

begin

write (‘ введите 10 элементов массива ’);

For i:=1 to n do readln(a[i]);

max:=a[1];

for i:=2 to n do

if max then max:=a[i];

writeln;

write(‘ наибольший элемент массива = ’,max);

readln;

end.

Добавить в программу задачи 2 инструкции :

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

начало

i:= 1,100

a[i]

n:= 1

i:= 2 ,100

max ]

max:= a[i]

n:=1

n

конец

max then begin max:= a[i]; n:=i; end; writeln ('максимальный элемент: ', max); writeln ('номер максимального элемента: ', n ); readln; end. " width="640"

Определение номера наибольшего элемента массива

program maximum;

var a: array [1..100] of integer;

max,i: integer;

n: integer;

begin

for i:=1 to 100 do readln(a[i]);

max:=a[1];

n:=1;

for i:=2 to 100 do

if a[i]max then

begin

max:= a[i];

n:=i;

end;

writeln ('максимальный элемент: ', max);

writeln ('номер максимального элемента: ', n );

readln;

end.

Добавить в программу задачи 2 инструкции :

чтобы определить

число отрицательных элементов данного массива

начало

i:= 1,100

a[i]

n:= 0

i:= 2 ,100

a[i ]

n:= n+1

n

конец

Самостоятельная работа

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

Определение числа отрицательных элементов массива

Program maxsimum;

var a: array [1.. 100 ] of integer;

max, i:integer;

begin

write (‘ введите 10 элементов массива ’);

For i:=1 to n do readln(a[i]);

n:=0 ;

for i:=1 to 100 do

if a[i] then n:=n+1;

writeln( n);

readln;

end.

0 n:= n+1 n конец " width="640"

начало

i:= 1,100

a[i]

n:= 0

i:= 2 ,100

a[i ]0

n:= n+1

n

конец

0 then n:=n+1; writeln( n); readln; end. " width="640"

Определение числа отрицательных элементов массива

Program maxsimum;

var a: array [1.. 100 ] of integer;

max, i:integer;

begin

write (‘ введите 10 элементов массива ’);

For i:=1 to n do readln(a[i]);

n:=0 ;

for i:=1 to 100 do

if a[i]0 then n:=n+1;

writeln( n);

readln;

end.

Подведение итогов урока

Что нового вы узнали на уроке?

Домашнее задание:

Решить задачу:

Дан массив из 50 чисел.

Найти сумму всех отрицательных элементов массива.