Похожие презентации:
Одномерные массивы в Паскале
1.
2.
Массив – это упорядоченная последовательность,состоящая из фиксированного количества величин
одного типа.
2
3.
МассивыA
НОМЕР
массив
1
2
5
10
A[1]
A[2]
33
15
15
элемента массива
(ИНДЕКС)
4
5
20
25
ЗНАЧЕНИЕ
A[3]
A[4]
A[5]
элемента массива
НОМЕР (ИНДЕКС)
элемента массива: 2
A[2]
ЗНАЧЕНИЕ
элемента массива: 10
4.
Объявление массивовЗачем объявлять?
• определить имя массива
• определить тип массива
• определить число элементов
• выделить место в памяти
Массив целых чисел:
имя
начальный
индекс
конечный
индекс
var A : array[1..5]of integer ;
Размер через константу:
const N=5;
var A: array[1.. N ] of integer;
тип
элементов
5.
6.
Объявление массивовМассив в разделе const:
const A: array[1..5] of integer=(-3,0,4,1,7);
7.
Для ввода, обработки и вывода массиваиспользуют цикл с параметром (For).
8.
{Объявление массива}const N = 5;
var a: array[1..N] of integer;
i,s,p,k: integer; Sr: real;
begin
{Ввод с клавиатуры:}
{Ввод с клавиатуры}
a[1] = 5
a[2] = 1
a[3] = 4
a[4] = 6
a[5] = 3
for i:=1 to N do
begin
write('a[', i, ']=');
readln ( a[i] );
end;
{Поэлементные операции}
for i:=1 to N do a[i]:=a[i]*2;
{Вывод на экран:}
writeln('Массив A:');
for i:=1 to N do
write(a[i]:4);
writeln;
Массив A:
10 2 8 12
6
9.
{Нахождение суммы}S=38
S:=0;
for i:=1 to N do S:=S+a[i];
writeln('S=',S);
{Нахождение произведения}
P=11520
p:=1;
for i:=1 to N do p:=p*a[i];
writeln('p=',p);
end.
{Нахождение среднего значения}
Sr= 7.6
S:=0;
For i:=1 to N do
S:=S+a[i];
Sr:=S/5;
Writeln (‘Sr=’,Sr);
a[1] =10
a[2] = 2
a[3] = 8
a[4] = 12
a[5] = 6
10.
{Нахождение суммы с чётными индексами}S=14
S:=0;
For i:=1 to N do
if i mod 2=0 then S:=S+a[i];
Writeln (‘S=’,S);
{Нахождение количества элементов с нечётными индексами}
K:=0;
For i:=1 to N do
if i mod 2<>0 then K:=K+1;
Writeln (‘K=’,K);
end.
a[1] =10
a[2] = 2
a[3] = 8
a[4] = 12
a[5] = 6
К=3
11.
§§ 17, 18;ЭОР, ур. 23, 1 уровень № 1, 2