Массивы. Тип элемента массива. Тип индекса презентация

имя называется массивом. Любой массив, использующийся в программе, должен быть объявлен с помощью типа массива.

Var : z:array [1..20] of real;
x:array [1..4,1..3] of integer;

, т.е. может быть использован лишь такой тип , значение которого образует ограниченное пронумерованное множество (Char, boolean, ограниченный, целый )

Тип элемента массива- может быть любой, в том числе и тип массива.

Y:array [1..7] of array [1..5] of char

Тип элемента массива

Тип индекса

Размер массива задаётся при объявлении, и не изменяется в процессе выполнения программы.

подряд идущих ячейках , в зависимости от типа элементов и их количества.

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

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

Обращение к элементам массива

[

Выражение

,

]

Имя массива

Элемент массива

Индекс- Выражение того же типа, что и тип индекса при объявлении массива.
Количество элементов, к которым можно обратится в программе должно соответствовать размеренности массива.
Над элементами массива можно производить те же операции, которые допустимы над данными соответствующего базового типа.

Var a:array[1..50] of real;
…
Begin
Writeln(‘Введите количество элементов массива’);
Read(n);
For i:=1 to n do
begin
read(A[i]);{Запись элементов массива}
Writeln(A[i]);{Вывод элементов массива}
end;
End.

n

I=1

I=I+1

I<=n

Да

Нет

A[I]

конец

начало

элементов, сумму положительных элементов и произведение отрицательных элементов.

Program mas1;
var
I, K: integer;
S, P: real;
A: array[1..20]of real;
begin
Writeln('Введите элементы массива');
for i := 1 to 20 do
Read(A[i]);
K := 0; s := 0;p := 0;
for i := 1 to 20 do
begin
if A[i] > 0 then s := s + A[i]
Else
if A[i] < 0 then p := p * A[i]
Else K := K + 1;
end;
Writeln('s=', s:4:2);
Writeln('p=', p:4:2);
Writeln('k=', k:2);
end.

Задание

Нет

Да

Нет

Да

array [1..50] of real;
Begin
for i :=1 to 50 do
read(x[i]);
k:=0;
for i:=1 to 50 do
if not (x[i]=x[50]) then
k:=k+1;
writeln(‘k= ‘);
End.

array [1..100] of real;
Begin
for i :=1 to 100 do
if a[i]<0 then
writeln (a[i]);
for i:=1 to 100 do
if a[i]>=0 then
writeln (a[i]);
End.

(input,output);
var i, N : integer;
a: array [1..70] of real;
Begin
for i :=1 to 70 do
read(y[i]);
N:=1;
M:=y[1];
if y[i]>M then
begin
M:=y[i];
N:=i;
end;
writeln (‘M=‘,M);
writeln (‘N=‘,N);
End.

y располагались в начале вектора x, а остальные элементы - в конце.

Program MAS5 (input,output);
var i, N,k : integer;
x,y: array [7] of real;
Begin
for i :=1 to 7 do
read(y[i]);
N:=1; k:=7;
for i :=1 to 7 do
if y[i]<0 then
begin
x:=y[i];
N:=N+1;
end
else
begin
x[k]:=y[i];
k:=k-1;
end;
write(‘x=[‘);
for i :=1 to 7 do
write(x[i],’ ‘);
writeln(‘ ]’);
End.

правого.

Program MAS6 (input,output);
var i: integer; P:real;
x: array [1..30] of real;
Begin
for i :=1 to 30 do
read(x[i]);
for i :=1 to 29 do
if x[i] begin
P:=x[i]; x[i]:=x[i+1];
x[i+1]:=P;
end;
write(‘x=[‘);
for i :=1 to 30 do
write(x[i],’ ‘);
writeln(‘ ]’);
End.

С помощью этого алгоритма минимальный элемент вектора окажется на последнем месте.

необходимо организовать сложный цикл, где внутренний цикл- это предыдущая задача( просмотр 2-х соседних элементов и, перестановка их значений, если левый элемент меньше правого), а внешний цикл - это организация просмотра вектора(n-1) раз, если n кол-во элементов вектора.

R:real;
x: array [1..30] of real;
Begin
for i :=1 to 30 do
read(x[i]);
for i :=1 to 29 do
if x[i] begin
R:=x[i];
x[i]:=x[i+1];
x[i+1]:=R;
end;
write(‘x=[‘);
for i :=1 to 30 do
write(x[i],’ ‘);
End.

на последнем месте уже за 1-ый просмотр.

необходимо вектор еще раз просмотреть. Для этого необходимо ввести переменную призрак(«флаг»)

P=

Просмотр заканчивается когда не было ни одной перестановки.