Задача состоит в следующем: транспонировать матрицу f(10,8) и вывести на печать элементы главной диагонали и диагонали, расположенной под главной. Результаты разместить в двух строках
Практики решения задач с двумерными массивами не имею. Помогите пожалуйста (процедуры мы не изучали).
Пока получилось следующее, но транспонирование работает не верно, остальное что-то вообще никак не соображу:
program zadacha;
uses crt;
type
matr=array[1..10, 1..8] of integer;
var
a:matr; i,j,b:integer;
begin
randomize;
writeln('ishodnaya matrica:');
for i:=1 to 10 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 10 do
for j:=i to 8 do
begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
writeln('transponirovannaya matrica:');
for i:=1 to 8 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readkey;
end.
При транспонировании матрицы 10x8 не получается вторая матрица 10х8, а получается 8х10. Придется тебе описывать второй тип для транспонированной матрицы.
А все, чего ты добилась своим кодом - это вылет за пределы массива, при попытке в строке b:=a[i,j]; обратиться к элементу 9-го столбца при i = 9 . Ну запускайте же уже программы с контролем границ!!! (Options -> Compiler -> [X] Range Checking)
Может, в правила раздела это написать: "прежде чем задать вопрос на форуме, убедитесь, что программа компилируется в режиме [X] Range checking [X] Stack checking [X] I/O checking [X] Overflow checking"?
Ну я же говорю, что не понимаю что-то...
А вот про компилирование уж извините, нас не учили, теперь буду знать.
А ее на самом деле надо транспонировать?
Главная диагональ вроде при транспонировании не изменится. И что-то подсказывает, что диагональ под главной после транспонирования - это диагональ над главной до транспонирования.
Только учесть размерности.
А мне лично что то подсказывает,что "чистой "главной диагонали тут быть не может,потому что матрица,не квадратная.И тогда встает вопрос как выбирать элементы этой диагонали.потому что,если брать все элементы котороые зацепляются диагональю,то у вас получится некая змейка.
А это уже диагональ будет матрици 8х8.(меня лично заставляли делать главную диагональ,как все элементы пересекающие прямую проведенную от края в край).А теперь по сути.
Ну в общем на основе твеого когда получается как то так.
program zadacha;
uses crt;
type
matr1=array[1..10, 1..8] of integer;
matr2==array[1..8, 1..10] of integer;
var
m:matr1;
n:matr2;
i,j:integer;
begin
randomize;
writeln('ishodnaya matrica:');
for j:=1 to 8 do{Я бы пошел построчно,при выводе будет лучше восприниматься}
begin
for i:=1 to 10 do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 10 do
begin
m[i,j]:=n[j,i];
end;
writeln('transponirovannaya matrica:');
for j:=1 to 10 do
begin
for i:=1 to 8 do
write(n[i,j]:4);
writeln;
end;
readkey;
end.