[C]uong
Admin
![[C]uong](http://www.vn-zoom.com/image.php?u=942234&dateline=1246450844)
Tổng số bài gửi : 258
 Điểm : 466
 Ngày tham gia : 08/07/2009
Age : 31
 Đến từ : Äô Thà nh CiTy
Character sheet
Point:
    (50/50)
|
 Tiêu đề: Duyệt mảng chéo  28/07/09, 06:14 pm |
|
|
Program Duyet_Mang_Cheo_Z;
Uses Crt;
Var A:array[1..100,1..100] of Integer;
I,J,K,N:Byte;
Begin Clrscr;
Write('Cho biet so hang va cot: ');Readln(n);
Writeln('Moi ban nhap cac phan tu cho mang theo duong cheo');
{Nhap vao cho nua phia tren duong cheo cua mang vuong}
i:=1;j:=1;
Write('A[',i,'-',j,']='); Readln(A[i,j]);
For k:=2 to N do
Begin
If k mod 2 = 0 Then
For j:=k downto 1 do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); i:=i+1 end
Else
for i:=k downto 1 do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); j:=j+1; end;
end;
{Nhap vao phia duoi duong cheo cua mang vuong}
i:=n;j:=n;
If N mod 2 <> 0 then
Begin
For k:=2 to n do
If k mod 2 = 0 then
For i:=k to n do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); j:=j-1 end
Else
for j:=k to n do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); i:=i-1 end;
End
Else
For k:=2 to n do
If k mod 2 = 0 then
For j:=k to n do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); i:=i-1 end
Else
for i:=k to n do
Begin Write('A[',i,'-',j,']='); Readln(a[i,j]); j:=j-1 end;
Readln;
end.
|
|
