Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Особенности труда и отдыха в условиях низких температур: К работам при низких температурах на открытом воздухе и в не отапливаемых помещениях допускаются лица не моложе 18 лет, прошедшие...
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Теоретическая значимость работы: Описание теоретической значимости (ценности) результатов исследования должно присутствовать во введении...
Интересное:
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Дисциплины:
2017-06-09 | 296 |
5.00
из
|
Заказать работу |
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.
Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.
var a: array [,] of integer;
b,st,sl: 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);
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
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
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;
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]:=1;
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: 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]:=1;
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,buf,k: 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 j:=0 to sl-1 do begin
buf:=a[1,j];
a[1,j]:=a[k,j];
a[k,j]:=buf;;
end;
writeln ('Преобразованный массив');
for var i:=0 to st-1 do begin
for var j:=0 to sl-1 do begin
a[i,j]:=a[i,j];
write(a[i,j]:5);
end;
writeln;
end;
end.
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!