Xoắn Ốc

SUBMITTED BY: Guest

DATE: Nov. 21, 2014, 2:13 p.m.

FORMAT: Text only

SIZE: 913 Bytes

Raw Download

HITS: 1305

Report
  1. PROGRAM XoanOc;
  2. USES Crt;
  3. VAR a:ARRAY[1..20,1..20]OF INTEGER;
  4. i,j,k,x,l,n,ghi:INTEGER;
  5. BEGIN
  6. Write('Nhap so N = ');
  7. Readln(x);
  8. n:=x;
  9. k:=1 ;l:=1; ghi :=1;
  10. REPEAT
  11. BEGIN
  12. BEGIN
  13. i:= k;
  14. FOR j:=l TO n DO
  15. BEGIN
  16. a[j,i]:= ghi ;
  17. inc(ghi);
  18. END;
  19. k:= k+1;
  20. FOR i:= k TO n DO
  21. BEGIN
  22. a[j,i]:= ghi ;
  23. inc(ghi);
  24. END;
  25. n:= n-1;
  26. FOR j:=n DOWNTO l DO
  27. BEGIN
  28. a[j,i]:=ghi;
  29. inc(ghi);
  30. END;
  31. FOR i:= n DOWNTO k DO
  32. BEGIN
  33. a[j,i
  34. ]:=ghi;
  35. inc(ghi);
  36. END;
  37. l:= l+1;
  38. END ;
  39. END;
  40. UNTIL n=0 ;
  41. Writeln;
  42. Writeln('Day so da duoc sap xep : ');
  43. Writeln;
  44. FOR i:= 1 TO x DO
  45. BEGIN
  46. FOR j:= 1 TO x DO
  47. Write(a[i,j]:4);
  48. Writeln;
  49. END;
  50. Readln;
  51. END.
comments powered by Disqus