Служба спасения студентов
Служба спасения для студентов (18+)

Лабораторная работа № 14. Двумерные массивы. Вариант 7 Pascal

Стоимость
50 руб.
Содержание
Практика
Объем
7 лист.
Год написания

Описание работы

Работа пользователя И. Нестеров
Задание 1.Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант7. Вводится двумерный массив А. С помощью датчика случайных чисел задается двумерный массив В. Каждый  элемент массива А второй строки заменить соответствующим  элементом массива 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);
forI := 1 To n Do begin
forj := 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(10);
A[2,j]:= B[2,j];
Write(' A[',i,',',j,']=',A[i,j],';');
end;
writeln('   ');
end;
end.
Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить  ошибки , представить правильный вариант программы и проверить его тестами.
Вариант 7.
Programmas2;
type
LinMass = array [1..1000] of Integer;
var
B: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To nDo begin
forj := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[1,j]:=111;
A[i,2]:=222;
Write(' A[',i,',',j,']=',B[i,j],';')
end;
writeln('   ');
end;
end.
Задание 3. Решить задачу, составить программу и выполнить.
Вариант 7. С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 2 столбца. Вычислить третий массив такого же размера, каждый элемент которого равен произведению соответствующих элементов двух первых массивов, уменьшенному в 10 раз. Все массивы вывести.
Задание 4. Решить задачу, составить программу и выполнить.
Вариант 7. Задать два двумерных массива, у которых число строк не равно числу столбцов. Получить третий массив, каждый элемент которого является   наименьшим среди соответствующих элементов двух массивов. Все массивы вывести.

Сколько стоит помощь с учебной работой?