Thánh nào giúp e giải bài tập Pascal sắp xếp ma trận này với: // =>

Hãy sắp xếp ma trận vuông A[n,n] sao cho các phần tử của chúng có giá trị tăng dần đi theo đường Zigzac như hình vẽ sau:
Zig-zac.png


Thánh PRO nào biết chỉ giúp e với::...
 
M

megamanx852

Mã: 
var a:array[1..100,1..100] of integer;
     n,i,j:integer;
begin
  write('nhap n: ');readln(n);
  for i:=1 to n do
  for j:=1 to n+1-i do
   begin
    a[i,j]:=(i+j-1)*(i+j-2) div 2;
    if (i+j) mod 2 =0 then a[i,j]:=a[i,j]+j else a[i,j]:=a[i,j]+i;
    a[n+1-i,n+1-j]:=n*n+1-a[i,j];
   end;
  for i;=1 to n do
   begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
   end;
  readln;
end.
 
T

thanhhiepvo2003

Thanh Hiệp Võ
Reply: Thánh nào giúp e giải bài tập Pascal sắp xếp ma trận này với: // =>

Còn bài này thì sao ạ

45Wd06.png
 
Đăng nhập bằng tài khoản VFO hoặc Google

Bài viết mới nhất

Bài viết đang hot

Thống kê

Chủ đề
100,594
Bài viết
467,318
Thành viên
339,811
Thành viên mới nhất
phung van hanh

Bài viết được quan tâm nhiều

Top