Вывод двух матриц рядом
Возможно вывести на экран две/три матрицы но расположив их не одна под одной а сбоку
т.е. вот так
Матрица а Матрица б
1 2 3 1 2 3
4 5 6 4 5 6
7 8 9 7 8 9
Пытаясь вывести таким кодом:
Код:
for i:=1 to 4 do
begin
for j:=1 to 4 do
write (A[i,j]:4,'',B[i,j]:4);
writeln('');
begin
for j:=1 to 4 do
write (A[i,j]:4,'',B[i,j]:4);
writeln('');
Мне в ответ выдает только последний столбик каждой матрицы
т.е. вот так
Матрица а Матрица б
3 3
6 6
9 9
Буду рад любому ответу по теме)
Вот как ожидается и как выводится:
Еще добивался вот такого вывода:
Этим кодом:
Код:
for i:=1 to n do
begin
for j:=1 to n do
write (A[i,j]:4); write('|');write(B[i,j]:4);
writeln;
end;
begin
for j:=1 to n do
write (A[i,j]:4); write('|');write(B[i,j]:4);
writeln;
end;
При этом вводил:
Первый массив - 1 2 3 4
Второй массив - 5 6 7 8
Как видно то второй массив обрезан(
Когда код такой:
Код:
for i:=1 to n do
begin
for j:=1 to n do
write (A[i,j]:4,'|',B[i,j]:4);
writeln;
end;
begin
for j:=1 to n do
write (A[i,j]:4,'|',B[i,j]:4);
writeln;
end;
то выводит примерно так
1| 5 2| 6
3| 7 4| 8
то-есть совсем местами путаются ><
Это все нужно ради экономии места в самом окне и для удобства восприятия.
Ради этого и пар голову.
Буду ооочень рад подсказкам.
Код:
for i:=1 to n do
begin
for j;=1 to n do Write(A[i, j]:4);
Write(' | ');
for j:=1 to n do Write(B[i, j]:4);
WriteLn;
end;
begin
for j;=1 to n do Write(A[i, j]:4);
Write(' | ');
for j:=1 to n do Write(B[i, j]:4);
WriteLn;
end;
Цитата: Павел_AF
Большое спасибо =)