Программирование и алгоритмизация

Программирование и алгоритмизация

1. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на ноль. В программе использовать динамическую память. Алгоритм пояснить.

2. Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.

3. Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.

4. Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

5. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на единицу. В программе использовать динамическую память. Алгоритм пояснить.

6. Написать программу, формирующую единичную матрицу, заданного размера, в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

7. Написать программу, реализующую перестановку первой строки на первый столбец в квадратной матрице. В программе использовать динамическую память. Алгоритм пояснить.

8. Написать программу, реализующую поиск минимального элемента в двумерном массиве. В программе использовать динамическую память. Алгоритм пояснить.

9. Написать программу, реализующую обнуление главной диагонали матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

10. Написать программу, реализующую поиск по указанному значению элемента двумерного массива, хранящегося в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

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;

write ('Введите число от 1 до 10 - ');

readln (b);

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

if a[i,j]=b then begin

a[i,j]:=0;

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.

Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.

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.

Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.

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 st-1 do begin

if a[i,0]<a[j,0] then begin

b:= a[i,0];

a[i,0]:= a[j,0];

a[j,0]:= 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.

Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

vara: array[,] ofinteger;

b,st,sl: integer;

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10);

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for vari:=0 tost-1 do begin

for varj:=0 tost-1 do begin

b:=a[i,j];

a[i,j]:=a[j,i];

a[j,i]:=b;

end;

end;

writeln ('Преобразованный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10)+1;

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

ifi=j thena[i,j]:=1;

end;

end;

writeln ('Преобразованный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10)+1;

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for varj:=0 tosl-1 do begin

buf:=a[1,j];

a[1,j]:=a[k,j];

a[k,j]:=buf;;

end;

writeln ('Преобразованный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

a[i,j]:=a[i,j];

write(a[i,j]:5);

end;

writeln;

end;

end.

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10)-2;

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

min:=a[1,1];

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

ifa[i,j]<min thenmin:=a[i,j];

end;

end;

write(min);

end.

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10)+1;

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

ifi=j thena[i,j]:=0;

end;

end;

writeln ('Преобразованный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

Begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for vari:=0 tost-1 do

for varj:=0 tosl-1 do

a[i,j] := Random(10)-2;

writeln ('Исходный массив');

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

writeln ('Введите x');

readln(x);

for vari:=0 tost-1 do begin

for varj:=0 tosl-1 do begin

ifa[i,j]=x then

writeln('a[',i+1,',',j+1,']');

end;

end;

end.

Программирование и алгоритмизация

1. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на ноль. В программе использовать динамическую память. Алгоритм пояснить.

2. Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.

3. Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.

4. Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

5. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на единицу. В программе использовать динамическую память. Алгоритм пояснить.

6. Написать программу, формирующую единичную матрицу, заданного размера, в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

7. Написать программу, реализующую перестановку первой строки на первый столбец в квадратной матрице. В программе использовать динамическую память. Алгоритм пояснить.

8. Написать программу, реализующую поиск минимального элемента в двумерном массиве. В программе использовать динамическую память. Алгоритм пояснить.

9. Написать программу, реализующую обнуление главной диагонали матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

10. Написать программу, реализующую поиск по указанному значению элемента двумерного массива, хранящегося в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

11. Написать программу сортировки первой строки двухмерного массива в порядке возрастания значений. В программе использовать динамическую память. Алгоритм пояснить.

Решение задач