Практическая работа №8.

Связь одномерных и двумерных массивов с простыми типами.

Примеры задач.

1. Последовательность задана рекуррентно: a₁=6; a₂=3; a_n=2a_n-1-5a_n-2; где n=3, 4, … Вычислить первые 10 элементов последовательности. Найти количество элементов последовательности меньше 5.

Program massiv;

Const n=10;

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

i, j, s:integer;

Begin {вычисление элементов последовательности}

a[1]:=6;

a[2]:=3;

for i:=1 to n do

a[i]:=2*a[i-1]-5*a[i-2];

{нахождение количества элементов меньше 5}

s:=0;

for i:=1 to n do

if a[i]<5

then s:=s+1;

{печать количества}

writeln (‘количество элементов меньше 5=’,s);

end.

2. Дана матрица размера 4 на 4. Найти произведение элементов первой и третьей строк матрицы. Вывести полученный массив.

Program matrix;

Const n=4;

m=4;

Var a:array[1..n,1..m] of real;

i, j:integer;

b:array[1..m] of real;

Begin {ввод матрицы}

writeln(‘введите матрицу размера ’,n,‘ на ’,m);

for i:=1 to n do

begin

writeln(‘введите элементы ’,i,‘ строки’);

for j:=1 to m do

read(a[i,j]);

end;

{нахождение произведения}

for j:=1 to m do

b[j]:=a[1,j]*a[3,j];

{вывод массива}

writeln(‘массив’);

for j:=1 to m do

writeln(‘b[’,j,‘]=’, b[j]:0:2);

end.

Задания.

Студенты решают задачи на компьютерах по вариантам с помощью среды программирования PascalABC.

Вариант 1

3. Даны натуральные n и m. Вычислить двойную сумму .

4. Последовательность задана рекуррентно: a₁=0,2; a₂=2; a_n=2a_n-1-3a_n-2; где n=3, 4, … Вычислить первые 10 элементов последовательности. Найти сумму отрицательных элементов.

5. Дана матрица размера 4 на 4 целого типа. Найти сумму элементов в каждой строке матрицы. Вывести полученный массив.

Вариант 2

1. Дано натуральное число n. Вычислить сумму .

2. Последовательность задана рекуррентно: a₁=1; a₂=-2; a_n=a_n-1+a_n-2; где n=3, 4, … Вычислить первые 10 элементов последовательности. Сосчитать количество отрицательных элементов.

3. Дана матрица размера 4 на 4 целого типа. Умножить элементы 3-го столбца матрицы на 3. Вывести полученный массив.

Вариант 3

1. Дано натуральное число n. Вычислить сумму .

2. Последовательность задана рекуррентно: a₁=-2; a₂=3; a_n=3a_n-1-a_n-2; где n=3, 4, … Вычислить первые 10 элементов последовательности. Найти сумму положительных элементов последовательности.

3. Дана матрица размера 4 на 4 целого типа. Заменить элементы 2-й строки матрицы на их модуль. Вывести полученный массив.

Вариант 4

1. Даны натуральные n и m. Вычислить двойную сумму .

2. Последовательность задана рекуррентно: a₁=5; a₂=-3; a_n=a_n-1-2a_n-2; где n=3, 4, … Вычислить первые 10 элементов последовательности. Сосчитать количество положительных элементов.

3. Дана матрица размера 4 на 4 целого типа. Сложить элементы 1-го и 4-го столбцов матрицы. Вывести полученный массив.