[Tin] Pascan và vấn đề thi HSG Tin học

[thanhkhoeo[D2T Physics]]

: Lập chuơng trinh nhập hai số nguyê n ,m vµ mảng A(mxn)
- Viết thủ tục nhập
- Viết thủ tục in ra mảng dạng ma trận

- Xây dựng thủ tục sắp xếp theo thứ tự tăng dần từ trên xuống d­ưới. từ trái sang phải.

uses crt;
var a:array[1..100,1..100] of integer;
i, j ,n ,m, k ,l : integer;
procedure nhap;
begin

clrscr;
Write(' nhap so hang ');
readln(n);
write(' nhap so cot ');
readln(m);
for i := 1 to n do
for j := 1 to m do
begin
{ write(' nhap a[',i,',',j,' ]= '); "{}
a[i,j]:= random (1000) ;
end;
end;
procedure inmatran;
begin
for i:= 1 to n do
begin
for j:= 1 to m do write(a[i,j]:4);
writeln;
end;
end;
procedure hoandoi(var x,y:integer);
var t:integer;
begin
t:=y;
y:=x;
x:=t;
end;
procedure sapxeptang(var x,y:integer);
begin
if x>y then
hoandoi(x,y);
end;
function nguyento(x:integer):boolean;
var i:integer;
begin
nguyento:=true;
for i:= 2 to x do if x mod i = 0 then nguyento:=false;
end;

Begin
randomize;
nhap;
inmatran;
{ write(' nhap 2 hang can doi vi tri');
readln(k,l);
for i:= 1 to m do
hoandoi(a[k,i],a[l,i]);
inmatran; }
{ for l:=1 to n*m do }
begin
for i:= 1 to n do
for j:=1 to m do
for k:= 2 to j do
sapxeptang(a[i,j],a[i,k]);
for i := 1 to n -1 do
sapxeptang(a[m,i],a[1,i+1]);
for i:= 1 to m do
for j:= 2 to n do
for k:= 1 to j do
sapxeptang(a[k,i],a[j,i]);

end;writeln;
inmatran;
readln;
end.

sửa hộ thành cái đi