1樓：尋夢憶馨
問題：輸入乙個數n，輸出n^2數陣，數陣為數字漩渦排列。
例：輸入1，輸出 1
輸入2，
輸出 1 2
3 4
輸入3輸出 1 2 3
8 9 4
7 6 5
輸入4輸出 1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
是這個題麼？
program hhs;
vara,b,t,x:integer;
s:array[0..1000,0..1000]of integer;
begin
readln(x);
for a:=1 to 6 do begin
s[0,a]:=1;
s[x+1,a]:=1;
s[a,0]:=1;
s[a,x+1]:=1;
end;
t:=1;a:=1;b:=1;
while t<=x*x do begin
s[a,b]:=t;
if (s[a-1,b]<>0)and(s[a+1,b]=0)and(s[a,b+1]<>0)then a:=a+1
else
if (s[a,b-1]=0)and(s[a+1,b]<>0)and(s[a,b+1]<>0)then b:=b-1
else
if (s[a-1,b]=0)and(s[a+1,b]<>0)and(s[a,b-1]<>0)then a:=a-1
else b:=b+1;
t:=t+1
end;
for a:=1 to x do begin
for b:=1 to x do
write(s[a,b]:5);
writeln;
end;
end.
2樓：
設圓心為x1、y1,求得圓心與座標點x、y之間的距離l=sqrt((x-x1)*(x-x1)+(y-y1)*(y-y1)),然後再判斷l是否大於1並且小於2，若判斷結果為真，則輸入的座標點x,y在圓環內部。
跪求pascal矩陣解法
var n,i,j integer begin readln n for i 1 to n 2 1 do begin for j 1 to abs i n 1dowrite for j 1 to n do write if i n then for j 1 to 2 i 1 dowrite else...
c語言程式設計輸入整數n，生成逆時針的螺旋矩陣
include define n 20 void matrx1 int a n int m,int n else if left else if down else if up void output int a n int m,int n int i,j for i 0 i 梨花濺雨心微涼 inc...
如何用UG畫螺旋軸，螺旋葉片用UG怎麼畫呀
懂點工程也要懂點生活 一 畫法 可以用螺旋線和截面線先形成上下兩個面，在做內外螺旋側壁，在做上下兩個端麵，進行縫合。二 ug的簡單介紹 ug unigraphics nx 是siemens plm software公司出品的乙個產品工程解決方案，它為使用者的產品設計及加工過程提供了數位化造型和驗證手...