Уважаемые коллеги. Размещение авторского материала на страницах электронного справочника "Информио" является бесплатным. Для получения бесплатного свидетельства необходимо оформить заявку
Положение о размещении авторского материалаВАРИАНТ 1
I. Что такое одномерный массив? Приведите пример описания одномерного массива.
II. Выполните тест – выберите один правильный ответ.
А) a:array[1..n,1..m] of real;
Б) a:array{1..n} of integer;
В) a:array [1...n, 1…m] of real;
Г) a: aray [1..n, 1..m] of integer.
S:= 0;
For i:= 1 to n do
If X[i] >0 then S:=S+X[i];
А) минимальный элемент массива;
Б) сумму положительных элементов массива;
В) максимальный элемент массива;
Г) количество отрицательных элементов массива;
Д) индекс последнего отрицательного элемента массива;
Е) Ни один из ответов 1-5 не верен.
For i:= 1 to n do
For j:= 1 to m do
If j mod 2 = 0 then X[i, j] = A;
А) минимальный элемент массива;
Б) четные столбцы матрицы заменить на А;
В) четные строки матрицы заменить на А;
Г) количество четных элементов массива;
Д) нечетные строки матрицы заменить на А.
S:=0;
For i:= 1 to n do
For j:= 1 to n do
If i =j then S: = S+X[i, j];
А) сумма элементов главной диагонали матрицы;
Б) четные столбцы матрицы заменить на А;
В) четные строки матрицы заменить на А;
Г) сумма элементов побочной диагонали матрицы;
Д) нечетные строки матрицы заменить на А;
Е) ни один из ответов 1-5 не верен.
R:= 0;
For i:= 1 to n do
If X[i] >T then R:=R+1;
А) номер первого элемента массива, большего T;
Б) количество элементов массива, больших T;
В) номер первого элемента массива, меньшего T;
Г) номер последнего элемента массива, большего T;
Д) количество элементов массива, меньших T;
Е) ни один из ответов 1-5 не верен.
III. Решите задачу:
Двумерный массив, состоящий из 3 строк и 4 столбцов, формируется с помощью случайных чисел. Напишите программу для нахождения суммы положительных элементов массива.
ВАРИАНТ 2
I. Что такое двумерный массив? Приведите пример описания двумерного массива.
II. Выполните тест – выберите один правильный ответ.
А) a: array {1…n} of real;
Б) a: array {1..n} of integer;
В) a: array [1..n] of real;
Г) a: aray [1..n] of integer.
S:= 0;
For i:= 1 to n do
For j:= 1 to m do
If X[i, j]
А) максимальный элемент массива;
Б) сумму отрицательных элементов массива;
В) минимальный элемент массива;
Г) количество отрицательных элементов массива;
Д) индекс последнего отрицательного элемента массива;
Е) Ни один из ответов 1-5 не верен.
For i:= 1 to m do
For j:= 1 to m do
If i mod 2 < > 0 then X[i, j] = A;
А) нечетные столбцы матрицы заменить на А;
Б) четные столбцы матрицы заменить на А;
В) четные строки матрицы заменить на А;
Г) количество четных элементов массива;
Д) нечетные строки матрицы заменить на А;
Е) ни один из ответов 1-5 не верен.
For i:=1 to n do
For j:=1 to m do
X[i, j]: = X[i, j] + Y[i, j];
А) сумма элементов главной диагонали матрицы;
Б) сумма элементов каждой строки матриц X и Y;
В) четные строки матрицы заменить на А;
Г) количество равных соответствующих элементов матрицы X и матрицы Y;
Д) сумма матриц X и Y.
V:= X[1];
For k:= 1 to n do
If X[k] >V then V:=X[k];
А) минимальный элемент массива;
Б) сумму отрицательных элементов массива;
В) максимальный элемент массива;
Г) количество положительных элементов массива;
Д) индекс последнего положительного элемента массива;
Е) Ни один из ответов 1-5 не верен.
III. Решите задачу:
Двумерный массив, состоящий из 3 строк и 4 столбцов, вводится с клавиатуры. Напишите программу для нахождения наибольшего элемента массива.
Ответы:
ВАРИАНТ 1
I. Одномерный массив – это именованная последовательность, состоящая из пронумерованных элементов одного типа.
Элементы могут быть любого имеющегося в Pascal (за исключение файлового) типа данных. Номер, также называемый индексом, имеет каждый элемент массива. Индекс должен быть порядкового типа.
Одномерный массив можно объявить как в качестве переменной:
var <имя переменной>: array[m..n] of <тип элементов>;
так и типа:
type <имя типа> = array[m..n] of <тип элементов>;
Здесь m – номер первого элемента, а n – последнего. Например, если диапазон задан так: [1..10], то это означает, что определен одномерный массив размерностью в 10 элементов, с индексами от 1 до 10.
II. 1 - A)
2 - Б)
3 - Б)
4 - A)
5 - Б)
III.
Program Z1;
var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]>0 then s:=s+a[i,j];
writeln('сумма положительных элементов массива равна', s);
end.
ВАРИАНТ 2
I. Массивы, положение элементов в которых описывается двумя индексами, называются двумерными. Их можно представить в виде прямоугольной таблицы или матрицы.
Рассмотрим матрицу А размерностью 2*3, то есть в ней будет две строки, а в каждой строке по три элемента:
Каждый элемент имеет свой номер, который состоит из двух чисел - номера строки, в которой находится элемент, и номера столбца. Таким образом, номер элемента определяется пересечением строки и столбца. Например, a12 - это элемент, стоящий в первой строке и во втором столбце.
Существуют несколько способов объявления двумерного массива.
Способ 1. В Паскале двумерный массив можно описать как одномерный, элементами которого являются одномерные массивы. Например, для матрицы А, приведённой выше:
Const n = 2; m = 3;
Type omyarray = Array[1..m] Of <тип элементов >;
dmyarray = Array[1..n] Of omyarray;
Var v: omyarray;
a: dmyarray;
В данном случае переменная v объявлена как одномерный массив из трёх элементов вещественного типа. Переменная а описана как двумерный массив из двух строк, каждую из которых включено по три элемента.
Способ 2. Описание массива А можно сократить, исключив определение типа omyarray в определении типа dmyarray:
Const n = 2; m = 3;
Type dmyarray = Array[1..n, 1..m] Of <тип элементов>;
Var a: dmyarray.
Способ 3. Ещё более краткое описание массива А можно получить, указывая имя массива и диапазоны изменения индексов для каждой размерности массива:
Const n = 2; m = 3;
Type dmyarray = Array[1..n, 1..m] Of <тип элементов >;
Var a: dmyarray.
Если указанный тип используется для определения одного массива в программе, то удобно объявление массива в разделе описания переменных:
Var a: Array [1..n, 1..m] Of < тип элементов >.
II.
1- В)
2 - Б)
3 - Д)
4 - Д)
5 - В)
III.
Program Z2;
var a:array[1..3,1..4] of integer;
i,j,max:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
writeln ('введите элемент массива');
readln (a[i,j]);
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]>max then max:=a[i,j];
writeln('наибольший элемент массива равен', max);
end.
Сервис «Комментарии» - это возможность для всех наших читателей дополнить опубликованный на сайте материал фактами или выразить свое мнение по затрагиваемой материалом теме.
Редакция Информио.ру оставляет за собой право удалить комментарий пользователя без предупреждения и объяснения причин. Однако этого, скорее всего, не произойдет, если Вы будете придерживаться следующих правил:
Претензии к качеству материалов, заголовкам, работе журналистов и СМИ в целом присылайте на адрес
Информация доступна только для зарегистрированных пользователей.
Уважаемые коллеги. Убедительная просьба быть внимательнее при оформлении заявки. На основании заполненной формы оформляется электронное свидетельство. В случае неверно указанных данных организация ответственности не несёт.