PDA

View Full Version : giúp mình với!!



1hakunamatata
01-03-2011, 21:54
lảm thế nào để chuyển mảng 2 chiều sang mảng 1 chiều và ngược lại! thanks nhiu`.

nbni
02-03-2011, 12:19
chuyển 2 thành 1 nè bạn:
mình chỉ gõ đoạn chuyển thôi nhé:
l:=0;
for i:=1 to n do
for j:=1 to m do
begin
inc(l);
b[l]:=a[i,j];
end;

1hakunamatata
02-03-2011, 22:11
thế còn chuyển từ 1 sang 2

nbni
07-03-2011, 18:16
readln(n,m);
for i:=1 to n*m do readln(a[i]);
for i:=1 to n do
for j:=1 to m do
begin
inc(l);
b[i,j]:=a[l];
end;
for i;=1 to n do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;