Ðề tài: [Tin 11] Hỏi về Pascal?

Nhập vào 1 mảng 2 chiều nxn
In ra mảng 2 chiều nxn thỏa mãn:
1)Phần tử trong hàng tăng dần, tron cột tăng dần
2)hàng tăng, cột giảm
3)cột giảm, hàng tăng

View more random threads:

• Nhờ mọi người làm giúp bài tin lớp 10.
• download
• Máy tính em đang có vấn đề, mọi người giúp em nhá
• Help me! gỡ magicdisk
• Ai có theme win7 nào đẹp ko em xin cái
• Hỏi về nguyên nhân không vào được web
• Những câu hỏi thường gặp khi chọn mua máy tính
• Photoshop
• Hỏi về vấn đề Y!m
• Sự cố máy

Nguồn: http://diendankienthuc.net.

Nguyên văn bởi emtrongmattoi

Nhập vào 1 mảng 2 chiều nxn
In ra mảng 2 chiều nxn thỏa mãn:
1)Phần tử trong hàng tăng dần, tron cột tăng dần
2)hàng tăng, cột giảm
3)cột giảm, hàng tăng

Ý 2 và 3 giống nhau Nguồn: http://diendankienthuc.net.

Nguyên văn bởi emtrongmattoi

Nhập vào 1 mảng 2 chiều nxn
In ra mảng 2 chiều nxn thỏa mãn:
1)Phần tử trong hàng tăng dần, tron cột tăng dần
2)hàng tăng, cột giảm
3)cột giảm, hàng tăng

http://www.mediafire.com/?a2md8wxi81201i2

var t:array[1..10,1..10] of integer;
g:array[1..100] of integer;
e:word;
i,j,f,n:word;
begin
write('Nhap n(n<=10): ');
readln(n);
for i:=1 to n do for j:=1 to n do begin
write('Nhap phan tu (',i,',',j,') :');
readln(t[i,j]);
end;
{mang ban dau}
writeln('mang ban dau: ');
for i:=1 to n do begin
for j:=1 to n do write(t[i,j]:4,);
writeln;
end;
{1}
for i:=1 to n do for j:=1 to n do g[n*(j-1)+i]:=t[i,j];
for j:=n*n downto 2 do for i:=1 to j-1 do if g[i]>g[i+1] then begin
e:=g[i];
g[i]:=g[i+1];
g[i+1]:=e;
end;
for i:=1 to n do for j:=1 to n do t[i,j]:=g[n*(j-1)+i];
writeln('cau1: ');
for i:=1 to n do begin
for j:=1 to n do write(t[i,j]:4);
writeln;
end;
{cau 2}
for f:=n downto 2 do for i:=1 to f-1 do for j:=1 to n do begin
e:=t[i,j];
t[i,j]:=t[i+1,j];
t[i+1,j]:=e;
end;
writeln('cau 2:');
for i:=1 to n do begin
for j:=1 to n do write(t[i,j]:4);
writeln;
end;
{cau3 cot tang, hang giam}
for f:=n downto 2 do for i:=1 to f-1 do for j:=1 to n do begin
e:=t[i,j];
t[i,j]:=t[i+1,j];
t[i+1,j]:=e;
end;
for f:=n downto 2 do for j:=1 to f-1 do for i:=1 to n do begin
e:=t[i,j];
t[i,j]:=t[i,j+1];
t[i,j+1]:=e;
end;
writeln('cau3:');
for i:=1 to n do begin
for j:=1 to n do write(t[i,j]:4);
writeln;
end;
readln
end. Nguồn: http://diendankienthuc.net.