Mảng 1 chiều và mảng 2 chiều.

by hideohiro Sat Apr 19, 2008 7:43 am

Bài 1:Nhập 1 mảng 1 chiều,xắp xếp lại các phần tử của mảng theo thứ tự không giảm.

Code:: var a:array[1..100] of integer; tg,i,j,n:integer; begin write('nhap mang co n phan tu');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); end; writeln('mang ban dau la:'); for i:=1 to n-1 do write(a[i],',');write(a[n],'.');writeln; for i:=1 to n do for j:=i+1 to n do begin if a[j]<a[i] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end; writeln('mang sau khi sap xep la:'); for i:=1 to n-1 do write(a[i],',');write(a[n],'.'); readln; end.

by hideohiro Sat Apr 19, 2008 7:44 am

Bài 2:tương tự bài 1 nhưng thay mảng 1 chiều thành mang2 2 chiều.

Code:: var a:array[1..100,1..100] of integer; i,j,x,y,m,n,tg:integer; procedure doicho(var x,y:integer); begin if y<x then begin x:=x+y; y:=x-y; x:=x-y; end; end; begin writeln('mang 2 chieu m*n'); write('m=');readln(m); write('n=');readln(n); for i:=1 to m do for j:=1 to n do begin write('a[',i,j,']=');readln(a[i,j]); end; writeln('mang ban dau :'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; for i:=1 to m do for j:=1 to n do begin for x:=j+1 to n do doicho(a[i,j],a[i,x]); for x:=i+1 to m do for y:=1 to n do doicho(a[i,j],a[x,y]); end; writeln('mang sau khi da bien doi:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; readln; end.

Re: Mảng 1 chiều và mảng 2 chiều.