| ← Январь 2019 → | ||||||
|
2
|
3
|
4
|
5
|
6
|
||
|---|---|---|---|---|---|---|
|
7
|
9
|
10
|
11
|
12
|
13
|
|
|
14
|
15
|
16
|
19
|
20
|
||
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
31
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код :: выдели Консультация # 194408: Здравствуйте! У меня возникли сложности с таким вопросом: Найти максимальный по модулю элемент матрицы rmatr[n, m]. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца (k – вводится пользователем с клавиатуры). вот матрица < a name="#194406"> Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Код :: выделить код
var a:array[1..20,1..20] of integer;
n,i,j:byte;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<=n-i+1 then a[i,j]:=i+j-1
else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
end.
Дата отправки: 12.01.2019, 17:13 Консультирует puporev (Профессионал): Здравствуйте, mustang289! Код (Pascal) :: выделить код var rmatr:array[1..10,1..10] of real;
n,m,i,j,imn,imx:byte;
mn,mx,s:real;
begin
repeat
write('Введите количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество столбцов от 2 до 10 m=');
readln(m);
until m in [2..10];
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=9*random;
write(rmatr[i,j]:5:2);
end;
writeln;
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+rmatr[i,j];
if i=1 then
begin
mn:=s;
mx:=s;
imn:=1;
imx:=1;
end
else if s<mn then
begin
mn:=s;
imn:=i;
end
else if s>mx then
begin
mx:=s;
imx:=i;
end;
end;
writeln('Строка с минимальной суммой=',imn,' сумма=',mn:0:2);
for i:=1 to m do
write(rmatr[imn,i]:5:2);
writeln;
writeln('Строка с максимальной суммой=',imx,' сумма=',mx:0:2);
for i:=1 to m do
write(rmatr[imx,i]:5:2);
end.
Здравствуйте! У меня возникли сложности с таким вопросом: Код :: выделить код var a:array[1..20,1..20] of integer;
n,i,j:byte;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<=n-i+1 then a[i,j]:=i+j-1
else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
end.
Дата отправки: 12.01.2019, 20:14 Консультирует puporev (Профессионал): Здравствуйте, mustang289! Код (Pascal) :: выделить код var rmatr:array[1..10,1..10] of real;
n,m,i,j,imx,jmx,k:byte;
mx,x:real;
begin
repeat
write('Введите количество строк от 3 до 10 n=');
readln(n);
until n in [3..10];
repeat
write('Введите количество столбцов от 3 до 10 m=');
readln(m);
until m in [3..10];
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
rmatr[i,j]:=-9+18*random;
write(rmatr[i,j]:6:2);
if i+j=2 then
begin
mx:=rmatr[1,1];
imx:=1;
jmx:=1;
end
else if abs(rmatr[i,j])>abs(mx) then
begin
mx:=rmatr[i,j];
imx:=i;
jmx:=j;
end;
end;
writeln;
end;
writeln('Максимальный по модулю элемент=',mx:0:2,' в строке ',imx,' в столбце ',jmx);
if n<m then i:=n else i:=m;
repeat
write('Введите номер строки и столбца для обмена от 1 до ',i,' k<>',imx,' k<>',jmx,' k=');
readln(k);
until (k in [1..i])and(k<>imx)and(k<>jmx);
for j:=1 to m do
begin
x:=rmatr[imx,j];
rmatr[imx,j]:=rmatr[k,j];
rmatr[k,j]:=x;
end;
for i:=1 to n do
begin
x:=rmatr[i,jmx];
rmatr[i,jmx]:=rmatr[i,k];
rmatr[i,k]:=x;
end;
writeln('Перестановка строк и столбцов с тем чтобы элемент ',mx:0:2);
writeln('оказался в ячейке [',k,',',k,']');
for i:=1 to n do
begin
for j:=1 to m do
write(rmatr[i,j]:6:2);
writeln;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
