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

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

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

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

Работа пользователя И. Нестеров
Задание 1.Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант12. Вводится двумерный массив А. С помощью датчика случайных чисел задается двумерный массив В. Если элемент массива B больше 10, то его необходимо удвоить, а если меньше либо равен 10, то обнулить. Результирующий массив 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(30);
If B[i,j]>10 then B[i,j]:=B[i,j]*2 else B[i,j]:=0;
Write(' B[',i,',',j,']=',B[i,j],';');
end;
writeln('   ');
end;
end.

Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить  ошибки , представить правильный вариант программы и проверить его тестами.
Вариант12.
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);
forI := 1 To nDo
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[i,j]:=1;
Write(' A[',i,',',j,']=',A[i,j],';');
end;
writeln('   ');
end;

Задание 3. Решить задачу, составить программу и выполнить.
Вариант 12. . С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 3 столбца . Создать третий массив такого же размера, каждый элемент которого вычисляется как сумма соответствующих элементом первых двух, если оба элемента  больше 10 и как произведение в противном случае. Все массивы вывести.

Задание 4. Решить задачу, составить программу и выполнить.
Вариант 12. Задать один двумерный массив, у которых число строк не равно числу столбцов. Вычислить сумму элементов массива. Получить второй массив, каждый элемент которого является   процентом соответствующего элемента первого массива от общей суммы элементов. Все массивы вывести.

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