Лабораторная работа № 14. Двумерные массивы. Вариант 9 Pascal
Описание работы
Работа пользователя И. Нестеров
Задание 1.Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант 9. Вводится двумерный массив А. С помощью датчика случайных чисел задается массив В. Если элемент массива B меньше 10, то его необходимо заменить на 0, а если больше, то заменить на соответствующий элемент массива A. Результирующий массив B вывести построчно.
Programma s2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A,B: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
For I := 1 To n Do begin
For j := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговый массив:':25);
for i:=1 to n do begin
for j:=1 to m do begin
B[i,j]:=random(20);
If B[i,j]<10 then B[i,j]:=0;
If B[i,j]>10 then B[i,j]:=A[i,j];
Write(' B[',i,',',j,']=',B[i,j],';');
end;
writeln(' ');
end;
end.
Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
Вариант9.
Programmas2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
For I := 1 To n Do begin
For j := 1 To m Do
beginWrite('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[1,j]:= A[1,j]*0;
A[2,j]:=1;
Write(' A[',i,',',j,']=',A[i,j],';');
end;
writeln(' ');
end.
Задание 3. Решить задачу, составить программу и выполнить.
Вариант 9. С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 4 столбца. Создать третий массив такого же размера, каждый элемент которого вычисляется как сумма соответствующих элементом первых двух, уменьшенная на 100. Все массивы вывести.
Задание 4. Решить задачу, составить программу и выполнить.
Вариант 9. Задать два двумерных массива, у которых число строк не равно числу столбцов. Получить третий массив, каждый элемент которого является средним арифметическим соответствующих элементов двух массивов. Все массивы вывести.
Вариант 9. Вводится двумерный массив А. С помощью датчика случайных чисел задается массив В. Если элемент массива B меньше 10, то его необходимо заменить на 0, а если больше, то заменить на соответствующий элемент массива A. Результирующий массив B вывести построчно.
Programma s2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A,B: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
For I := 1 To n Do begin
For j := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговый массив:':25);
for i:=1 to n do begin
for j:=1 to m do begin
B[i,j]:=random(20);
If B[i,j]<10 then B[i,j]:=0;
If B[i,j]>10 then B[i,j]:=A[i,j];
Write(' B[',i,',',j,']=',B[i,j],';');
end;
writeln(' ');
end;
end.
Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
Вариант9.
Programmas2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
For I := 1 To n Do begin
For j := 1 To m Do
beginWrite('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[1,j]:= A[1,j]*0;
A[2,j]:=1;
Write(' A[',i,',',j,']=',A[i,j],';');
end;
writeln(' ');
end.
Задание 3. Решить задачу, составить программу и выполнить.
Вариант 9. С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 4 столбца. Создать третий массив такого же размера, каждый элемент которого вычисляется как сумма соответствующих элементом первых двух, уменьшенная на 100. Все массивы вывести.
Задание 4. Решить задачу, составить программу и выполнить.
Вариант 9. Задать два двумерных массива, у которых число строк не равно числу столбцов. Получить третий массив, каждый элемент которого является средним арифметическим соответствующих элементов двух массивов. Все массивы вывести.