Многомерные массивы - Матрица Сильвестра

[Illtry]

Здравствуйте. Вот мой код: uses
SysUtils;

var
i, n, m, j: integer ;
A, B: array of integer;
S: array of array of integer;


begin
write('n=');
readln(n);
setlength(a,n);
write('m=');
readln(m);
setlength(b,m);
for i:=0 to n do
readln(a[i]);
for i:=0 to m do
readln(b[i]);
SetLength(S, m+n, n+m);

for i:=0 to (n+m)-1 do
begin
if i in[0..m] then
begin
for j:=0 to (n+m)-1 do
begin
if j in[i..n+i] then s[i,j]:=a[n-j+i] else s[i,j]:=0;
write(s[i,j]:3);
end;
end
else if i in[m..m+n] then
begin
for j:=1 to n+m do
begin
if j in [i-m..i] then s[i,j]:=b[i-j] else s[i,j]:=0;
write(s[i,j]:3);
end;
end;
writeln;
end;
readln;

end.


Он работает, делфи запускает, я в вожу A[i] b B[i], но в одном месте при построении матрицы выдаётся число, которое не вводилось с клавиатуры. Возможно, дело в интервалах после in? Помогите разобраться, пожалуйста. Скрин работы проги прикладываю.

[Аватар]

для начала

setlength(a,n);
...
for i:=0 to n-1 do
readln(a[i]);

аналогично и для B.

[Illtry]

Сообщение от Аватар

для начала

setlength(a,n);
...
for i:=0 to n-1 do
readln(a[i]);

аналогично и для B.

Окей, с этим ясно. Только проблема всё ещё присутствует.

[Аватар]

Потому что дальше с индексами путаешься примерно в таком же стиле. Включай трассировку и в отладчике смотри где не то читаешь и не туда пишешь ))

[challengerr]

var 
i, j, k, l , n, m: integer;
a, b:array of integer;
s: array of array of integer;

begin
readln(n); 
setlength(a, n);
readln(m); 
setlength(b, m);
setlength(s, n+m, n+m);

for i:=0 to n-1 do 
readln(a[i]);

for i:=0 to m-1 do 
readln(b[i]);


for i:=0 to n-1 do 
begin

j := 0;
while j < i  do
begin
s[i,j] := 0;
j := j+1;
end; 

k := n-1;
while k >= 0  do
begin
s[i,j] := a[k];
j := j + 1;
k := k - 1;
end; 

while j < n + m   do
begin
s[i,j] := 0;
j := j + 1;
end; 

end; 

i := i + 1;


while i < n + m   do
begin

j:= n + m - 1;


while j - i > 0  do
begin
s[i,j] := 0;
j := j-1;
end; 

l := 0;
while l < m  do
begin
s[i,j] := b[l];
l := l + 1;
j := j - 1;
end; 

while j >= 0  do
begin
s[i,j] := 0;
j := j - 1;
end; 


i := i+1;
end; 




for i:=0 to n+m-1 do 
begin 
for j:=0 to  n+m-1  do 
begin 
write(s[i,j]);
write(' ');
end;
writeln
end;



end.

[Illtry]

Сообщение от Аватар

Потому что дальше с индексами путаешься примерно в таком же стиле. Включай трассировку и в отладчике смотри где не то читаешь и не туда пишешь ))

Спасибо

[Illtry]

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

var
i, j, k, l , n, m: integer;
a, b:array of integer;
s: array of array of integer;

begin
readln(n);
setlength(a, n);
readln(m);
setlength(b, m);
setlength(s, n+m, n+m);

Спасибо
Вы кончено не хило так перекроили

[Illtry]

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

var 
i, j, k, l , n, m: integer;
a, b:array of integer;
s: array of array of integer;

begin
readln(n); 
setlength(a, n);
readln(m); 
setlength(b, m);
setlength(s, n+m, n+m);

for i:=0 to n-1 do 
readln(a[i]);

for i:=0 to m-1 do 
readln(b[i]);


for i:=0 to n-1 do 
begin

j := 0;
while j < i  do
begin
s[i,j] := 0;
j := j+1;
end; 

k := n-1;
while k >= 0  do
begin
s[i,j] := a[k];
j := j + 1;
k := k - 1;
end; 

while j < n + m   do
begin
s[i,j] := 0;
j := j + 1;
end; 

end; 

i := i + 1;


while i < n + m   do
begin

j:= n + m - 1;


while j - i > 0  do
begin
s[i,j] := 0;
j := j-1;
end; 

l := 0;
while l < m  do
begin
s[i,j] := b[l];
l := l + 1;
j := j - 1;
end; 

while j >= 0  do
begin
s[i,j] := 0;
j := j - 1;
end; 


i := i+1;
end; 




for i:=0 to n+m-1 do 
begin 
for j:=0 to  n+m-1  do 
begin 
write(s[i,j]);
write(' ');
end;
writeln
end;



end.

Дорогой человек, помогите ещё немного, очень вас прошу. В 3 строчке не должно быть нулей, там должно быть 5 4 3 0 0. У меня, хоть убей, не получается это исправить

[Аватар]

Матрица для n=2 и m=3 должна выглядеть так:
2 1 0
0 2 1
5 4 3
Вот пример формирования в стрингрид, переделай под себя:

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,j: Integer;
    a,b: array of Integer;
begin
  n:=3;
  SetLength(a,n);
  for i:=0 to n-1 do a[i]:=i+1;

  m:=4;
  SetLength(b,m);
  for i:=0 to m-1 do b[i]:=n+i+1;

  StringGrid1.RowCount:=n+m-2;
  StringGrid1.ColCount:=n+m-2;
  StringGrid1.ClientWidth:=(StringGrid1.DefaultColWidth+StringGrid1.GridLineWidth)*StringGrid1.ColCount;
  StringGrid1.ClientHeight:=(StringGrid1.DefaultRowHeight+StringGrid1.GridLineWidth)*StringGrid1.RowCount;

  for i:=0 to StringGrid1.ColCount-1 do
    for j:=0 to StringGrid1.RowCount-1 do
      if (i<m-1) and (j in [i..i+n-1]) then StringGrid1.Cells[j,i]:=IntToStr(a[n-j+i-1])
      else if (i>=m-1) and (j in [i-m+1..i]) then StringGrid1.Cells[j,i]:=IntToStr(b[i-j])
      else StringGrid1.Cells[j,i]:='0';
end;

[Illtry]

Спасибо