Вложенные циклы + массивы

[kuy]

Сообщение от Alex11223

Ну так у вас в цикле i
а используете какую-то j.

Незнаю, подскажите пожалуйста код который поменяет местами строки для этой програмы.

[Alex11223]

oO

for i:=1 to 4 do
begin
   temp := mas[maxi,i];
   mas[maxi,i] := mas[mini,i];
   mas[mini,i] := temp;
end;

А как вы эту программу написали, если не поняли сейчас в чем ошибка была?) Только копипастом?оО

[kuy]

Сообщение от Alex11223

oO

for i:=1 to 4 do
begin
   temp := mas[maxi,i];
   mas[maxi,i] := mas[mini,i];
   mas[mini,i] := temp;
end;

А как вы эту программу написали, если не поняли сейчас в чем ошибка была?) Только копипастом?оО

Я пробывал такой код, выдаёт ту же ошибку:
А писал где-то наполовину копипастом, розобратся пытаюсь. Но то что выше в програме уже усвоил.
Так что с ошибкой??

[Alex11223]

А, так массив же у нас константный т.е. неизменяемый. Либо используй второй массив (не const), либо перемести его в var из const)

[kuy]

Впринцыпи код готов:

program boommatree;

{$APPTYPE CONSOLE}


uses
  SysUtils;

const
 mas: array[1..4, 1..3] of integer =
    (
    (8, 9, 1),
    (5, 6, 7),
    (0, 2, 8),
    (3, 7, 5)
    );
var
  mas2: array[1..4, 1..3] of integer =
    (
    (8, 9, 1),
    (5, 6, 7),
    (0, 2, 8),
    (3, 7, 5)
    );
  i,j,max,min,maxi,mini,temp  : integer;
begin
writeln('original matrix 4*3:');
for i:=1 to 4 do
 begin
 for j:=1 to 3 do
   write(mas[i,j]:4);
   writeln;
  end;


max:=mas[1,1]; min:=mas[1,1]; //предположим, что элемент [1,1] являются макс и мин
maxi:=1; mini:=1; //номера строк
for i:=1 to 4 do
    for j:=1 to 3 do
    begin
       if mas[i,j]>max then begin max:=mas[i,j]; maxi:=i; end;
       if mas[i,j]<min then begin min:=mas[i,j]; mini:=i; end;
    end;
writeln('max line = ',maxi);
writeln('min line = ',mini);


writeln('new matrix:');
 for i:=1 to 4 do

begin
   temp := mas2[maxi,i];
   mas2[maxi,i] := mas2[mini,i];
   mas2[mini,i] := temp;
end;

for i:=1 to 4 do
 begin
 for j:=1 to 3 do
   write(mas2[i,j]:4);
   writeln;
  end;
readln;
end.

Но мне интересно как присвоить значение одной матрицы для другой..? у меня ничего не вышло..

[Alex11223]

присвоить значение одной матрицы для другой

а это как?

[kuy]

Сообщение от Alex11223

а это как?

нууу типа есть одна матрица и вторая, они разные, нужно одной матрице присвоить значения елементов второй.

[Alex11223]

Дык просто в цикле проходить массив и присваивать кому что надо.

for i:=1 to 10 do
   for j:=1 to 5 do
     arr2[i,j]:=arr1[i,j];

ну или еще если массивы одного типа т.е.

a,b:array of integer[1..5];

либо

type myarr = array [1..5] of integer;
var a,b:myarr;

то можно b:=a; по крайней мере в Дельфи и АБС.
с

a: array [1..5] of integer;
b: array [1..5] of integer;

и т.п. работать не будет т.к. это не считается одним типом.

[kuy]

Спасиба за всё!
Если у когото такоеже или подобное задание, то вот код:

program matrix;

{$APPTYPE CONSOLE}


uses
  SysUtils;

const
 mas: array[1..4, 1..3] of integer =
    (
    (8, 9, 1),
    (5, 6, 7),
    (0, 2, 8),
    (3, 7, 5)
    );
var
  mas2: array[1..4, 1..3] of integer;
  i,j,max,min,maxi,mini,temp  : integer;
begin
writeln('original matrix 4*3:');
for i:=1 to 4 do
 begin
 for j:=1 to 3 do
   write(mas[i,j]:4);
   writeln;
  end;


max:=mas[1,1]; min:=mas[1,1]; //предположим, что элемент [1,1] являются макс и мин
maxi:=1; mini:=1; //номера строк
for i:=1 to 4 do
    for j:=1 to 3 do
    begin
       if mas[i,j]>max then begin max:=mas[i,j]; maxi:=i; end;
       if mas[i,j]<min then begin min:=mas[i,j]; mini:=i; end;
    end;
writeln('max line = ',maxi);
writeln('min line = ',mini);


writeln('new matrix:');
begin
for i:=1 to 4 do
   for j:=1 to 3 do
     mas2[i,j]:=mas[i,j];
end;
 for i:=1 to 4 do

begin
   temp := mas2[maxi,i];
   mas2[maxi,i] := mas2[mini,i];
   mas2[mini,i] := temp;
end;

for i:=1 to 4 do
 begin
 for j:=1 to 3 do
   write(mas2[i,j]:4);
   writeln;
  end;
readln;
end.

[kinash96]

спасибо очень пригодилось)))