Бірөлшемді массив. Информатика, 9 сынып, презентация.

Бірөлшемді массив

Өз поезыңды жина

МАССИВ

Массив - бір типтес және жалпы атауы бар деректердің жиынтығы;

• Массив элементі - массивке енетін жеке айнымалы болып табылады;

• Массив өлшемі - массивтің құрамында енетін элементтердің саны.

Массив элементінің индексі - массивтің элементінің номері;

Массивті жариялау:

<идентификатор>: array [<индексотер диапазоны >] of <элемент типі >;

Тип сипаттамасы бөлімін қолданып массивтерді жриялау мысалы:

Массивті жариялау мысалы:

Var

a : array [1..50] of real;

b,c : array [1..20] of integer;

Тип сипаттамасы бөлімін қолданып массивтерді жриялау мысалы:

Type

mas1=array[1..50] of real;

mas2=array[1..20] of integer;

Var

a : mas1;

b,c : mas2;

…

10-бүтін саннан тұратын массивті жариялау.

Var

a : array [1..10] of integer;

индекс

элемент

A[1] – массивтің бірінші элементі; A[1]:=248;

A[2] – массивтің екінші элементі; A[2]:=345;

.....

A[10] – массивтің 10-шы элементі. A[10]:=23;

Массивтің элементтерін енгізу және шығару

Var

a : array [1..10] of integer;

i : integer;

Begin

writeln (‘A[10] массив элементтерін егізу ‘);

for i:=1 to 10 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

writeln (‘массив элементтерін шығару’);

for i:=1 to 10 do

write (a[ i ]:6);

End.

Жиынды кездейсоқ сандармен толтыру.

{$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Var

a : array [1..15] of integer;

i : integer;

Begin

randomize;

writeln (‘A[15] массивті -100 ден 100 аралығындағы кездейсоқ сандармен толтыру.‘);

for i:=1 to 15 do

begin

a[ i ]:=random(201)-100;

write (a[ i ]:6);

end

End.

Массив элементтерінің қосындысын табу.

{$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Var

a : array [1..20] of integer;

s, i : integer;

Begin

writeln (‘A[20] массивінің элементтерін бүтін сандармен толтыру ‘);

for i:=1 to 20 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

s:=0;

for i:=1 to 20 do

s:=s+a[ i ];

writeln (‘s=‘,s)

End.

начало

Ai

A[20]

конец

s

s=0

Массивтің кейбір элементтерінің мәндерін өзгерту.

Массивтің кейбір элементтерінің мәндерін өзгерту.

program Project2; 

Uses Windows, SysUtils;

Const

n=20;

Var

a : array [1..n] of integer;

i : integer;

Begin

writeln (‘ Заполнение элементов целочисленного массива A[‘,n,’] ‘);

for i:=1 to n do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

for i:=1 to n do

if a[ i ]<0 then

a[ i ]:=-a[ i ];

wreteln (‘Массив A с замененными отрицательными эл-ми’);

for i:=1 to n do

write (a[ i ]:5)

End.

начало

Ai

a[20]

конец

i=1;20

a[ i ]<0

a[ i ]=-a[ i ]

+

-

Ai

Берілген шартты қанағаттандыратын элементтердің санын анықтау

Берілген шартты қанағаттандыратын элементтердің санын анықтау

program Project3;

 {$APPTYPE CONSOLE} 

Uses Windows, SysUtils;

Type

massiv=array[1..20] of real;

Var

a : massiv;

t : real;

k,i : integer;

Begin

writeln (‘ Введите элементы

массива A ‘);

for i:=1 to 20 do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

начало

Ai

a[20]

конец

k

i=1;10

a[ i ]

writeln (‘ Введите T‘);

read (t);

k:=0;

for i:=1 to 20 do

if a[ i ]

inc(k);

writeln (‘k=‘,k)

End.

t

k=k+1

+

-

k=0

Берілген сипаттағы элементтердің индексін анықтау

Берілген сипаттағы элементтердің индексін анықтау

Сonst

n=10;

Type

massiv=array[1..n] of integer;

Var

a : massiv;

i: integer;

Begin

writeln (‘ Введите элементы

массива A ‘);

for i:=1 to n do

begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

for i:=1 to n do

if a[ i ] mod 2=0 then

write (i:4);

End.

начало

Ai

a[10]

конец

i=1;10

i

+

-

a[ i ] mod 2=0

Қолданылған ресурстар:

Презентация «Одномерные массивы». Казанцева Олеся Викторовна

Презентация «Одномерные массивы». Сайт https://presentacii.ru/presentation/odnomernye-massivy