- •Программирование и алгоритмизация
- •Решение задач
- •1. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на ноль. В программе использовать динамическую память. Алгоритм пояснить.
- •5. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на единицу. В программе использовать динамическую память. Алгоритм пояснить.
- •2. Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •3. Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •4. Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •Var a: array [,] of integer;
- •6. Написать программу, формирующую единичную матрицу, заданного размера, в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •7. Написать программу, реализующую перестановку первой строки на первый столбец в квадратной матрице. В программе использовать динамическую память. Алгоритм пояснить
- •Var a: array [,] of integer;
- •8. Написать программу, реализующую поиск минимального элемента в двумерном массиве. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •9. Написать программу, реализующую обнуление главной диагонали матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •10. Написать программу, реализующую поиск по указанному значению элемента двумерного массива, хранящегося в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
- •Var a: array [,] of integer;
- •11 .Написать программу сортировки первой строки двухмерного массива в порядке возрастания значений. В программе использовать динамическую память. Алгоритм пояснить
- •Var a: array [,] of integer;
9. Написать программу, реализующую обнуление главной диагонали матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
Var a: array [,] of integer;
st,sl,b: integer;
begin
write ('Введите количество строк массива - ');
readln (st);
write ('Введите количество столбцов массива - ');
readln (sl);
SetLength(a,st,sl);
for var i:=0 to st-1 do
for var j:=0 to sl-1 do
a[i,j] := Random(10)+1;
writeln ('Исходный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
write(a[i,j]:5);
end;
writeln;
end;
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
if i=j then a[i,j]:=0;
end;
end;
writeln ('Преобразованный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
write(a[i,j]:5);
end;
writeln;
end;
end.
10. Написать программу, реализующую поиск по указанному значению элемента двумерного массива, хранящегося в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
Var a: array [,] of integer;
st,sl, x: integer;
begin
write ('Введите количество строк массива - ');
readln (st);
write ('Введите количество столбцов массива - ');
readln (sl);
SetLength(a,st,sl);
for var i:=0 to st-1 do
for var j:=0 to sl-1 do
a[i,j] := Random(10)-2;
writeln ('Исходный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
write(a[i,j]:5);
end;
writeln;
end;
writeln ('Введите x');
readln(x);
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
if a[i,j]=x then
writeln('a[',i+1,',',j+1,']');
end;
end;
end.
11 .Написать программу сортировки первой строки двухмерного массива в порядке возрастания значений. В программе использовать динамическую память. Алгоритм пояснить
Var a: array [,] of integer;
st,sl,b: integer;
begin
write ('Введите количество строк массива - ');
readln (st);
write ('Введите количество столбцов массива - ');
readln (sl);
SetLength(a,st,sl);
for var i:=0 to st-1 do
for var j:=0 to sl-1 do
a[i,j] := Random(10)+1;
writeln ('Исходный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
write(a[i,j]:5);
end;
writeln;
end;
for var i:=0 to sl-1 do begin
for var j:=0 to sl-1 do begin
if a[0,i]<a[0,j] then begin
b:= a[0,i];
a[0,i]:= a[0,j];
a[0,j]:= b;
end;
end;
end;
writeln ('Преобразованный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
write(a[i,j]:5);
end;
writeln;
end;
end.