Question

(Tin Học 8) Viết chương trình in ra các số nguyên từ 1 đến N2 theo hình xoắn ốc với N được nhập vào từ bàn phím.

Comments

cái này hình như chuyên sâu lớp 10 đâu thuộc chương trình làm quen pascal ở lớp 8 đâu supersmart2005

Answer 1

var a:array[1..150,1..150]of word;
i,j,n,k:longint;
f:text;

procedure inmt; {in ma trận}
begin
for j:=1 to n do
begin
for i:=1 to n do write(f,a[i,j]:6);
writeln(f);
end;
end;

procedure chon; {chọn số vào ô}
begin
inc(k);
a[i,j]:=k;
end;

begin
readln(n);
assign(f,'123.txt');rewrite(f);
j:=1;
while k<n*n do
begin
for i:=j to n+1-j do chon; {sang phải}
for j:=n+2-i to i do chon; {xuống dưới}
for i:=j-1 downto n+1-j do chon; {sang trái}
for j:=n-i downto i+1 do chon; {lên trên}
end;
inmt;
close(f);
end.

Comments

Em có cái này anh xem có đúng hơn không nha ( Chú ý không thừa đâu!)

 

Program hinh_xoan_oc;

Uses crt;

Var i,j,k,t,s,n: integer;
Begin

     clrscr;

     write('Nhap n: '); readln(n);
     i:=1; j:=0;
     s:=n; t:=1; k:=0;
     for k:=1 to n*n do
          begin

          case t of

               1 : j:=j+1;
               2 : i:=i+1;
               3 : j:=j-1;
               4 : i:=i-1;

          end;
              gotoxy(j*3,i+2);
              write(k);
              if k=s then

                     begin

                            writeln;
                            n:=n-(t mod 2);
                            t:=t+1;
                            s:=s+n;
                            if t=5 then t:=1;

                     end;
          end;

readln
end.

(Chú ý : Những câu lệnh em lùi vào trong chỉ là cho đẹp như vậy lúc kiểm tra nhìn và tester sẽ nhìn tốt hơn nha)