Презентация на тему: "Массивы"

Массивы

Описание одномерного массива

Var : array []

of

• Например:

Var T: array [1..100] of real;

• Элемент массива идентифицируется в виде переменной с индексами:

[]

• Например: T[5], T[k], T[i+j]

Описание двумерного массива

Var T: array [1..m, 1..n] of integer;

или

Var T: array [1..m] of array [1..n] of integer; Сначала описываются строки (1..m), а потом столбцы (1..n).

Ввод и вывод одномерного и двумерного массивов

• Ввод одномерного массива:

For I:=1 to 100 do

Readln (T[i]);

• Ввод двумерного массива:

For I:=1 to Imax do

For J:=1 to Jmax do

Readln (Mas[I,J]);

Ввод и вывод одномерного и двумерного массивов

• Вывод массива:

• Построчный вывод матрицы:

For I:=1 to 100 do

For I:=1 to Imax do

Write (T[I]:8:4);

Begin

For J:= 1 to Jmax do

Write(Mas[I,J]:6);

Writeln

End;

Пример 1: вывести на экран одномерный массив

var

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

N: integer; // Количество элементов в массиве

i: integer;

begin

write('Введите количество элементов в массиве: ');

readln(N);

write('Введите элементы массива: ');

for i:=1 to N do

read(a[i]);

write('Вывод элементов массива: ');

for i:=1 to N do

write(a[i],' ');

end .

Пример 2: заполнить одномерный массив случайными числами

var

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

N: integer; // Количество элементов в массиве

i: integer;

begin

N := 25;

for i:=1 to N do

a[i] := Random(100);

writeln('Элементы массива: ');

for i:=1 to N do

write(a[i],' ');

end .

Пример 3: заполнить двумерный массив случайными числами от 1 до 100

Var //описание переменных и массива

T: Array [1..10,1..10] of integer;

i, j: integer;

Begin //начало основной программы

writeln ('Двумерный массив: '); //Диалог с пользователем

for i := 1 to 10 do //заполнение массива

for j := 1 to 10 do

T[i,j]:=random (100);

for i := 1 to 10 do begin //Вывод массива

for j := 1 to 10 do

write (T[i,j], ' ');

writeln;

end ; //Конец программы

end .

var

matrix: array [1..3,1..5] of integer;

i, j: integer;

begin

writeln ('Введите 15 чисел: ');

for i := 1 to 3 do

for j := 1 to 5 do

read (matrix[i,j]);

for i := 1 to 3 do begin

for j := 1 to 5 do

write (matrix[i,j], ' ');

writeln

end ;

readln

end .

Пример 4: заполнить двумерный массив, состоящий из 3 строк и 5 столбцов, в котором содержится 15 чисел

Задания

• Вывести на экран одномерный массив, состоящий из 13 чисел.
• Дан массив 4*4 случайных, целых чисел от -50 до 50. Вывести максимальное число каждой строки.
• Заполнить двумерный массив, состоящий из 5 строк и 6 столбцов, в котором содержится 30 чисел.
• Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

• Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
• В двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. Размер произвольный.
• Сформировать матрицу 1 1 1 1

2 2 2 2

3 3 3 3

• Подсчитать количество четных элементов в каждом столбце матрицы размером МхN, элементы которой задаются с помощью датчика случайных чисел на интервале [-98; 54].

СПАСИБО ЗА ВНИМАНИЕ!!!