Программирование и алгоритмизация — КиберПедия 

Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...

Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначен­ные для поддерживания проводов на необходимой высоте над землей, водой...

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



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

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. Написать программу сортировки первой строки двухмерного массива в порядке возрастания значений. В программе использовать динамическую память. Алгоритм пояснить.

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






Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначен­ные для поддерживания проводов на необходимой высоте над землей, водой...

Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...

Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...

Общие условия выбора системы дренажа: Система дренажа выбирается в зависимости от характера защищаемого...





© cyberpedia.su 2017 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав

0.028 с.