題意
走迷宮，要繞開障礙，走過的就不能再走，求有多少種不同的方法可以到達終點
分析我們可以用深搜來做，輸入時把障礙的座標記錄下來
const
dx:array[1..4]of longint=(0,0,1,-1);
dy:array[1..4]of longint=(1,-1,0,0);
varn,m,t,sx,sy,fx,fy,tj,i,z1,z2:longint;
a:array[-100..100,-100..100]of longint;
procedure search(x,y:longint);
vari:longint;
begin
if (a[x,y]=1)or(x<1)or(x>n)or(y<1)or(y>m) then exit;
if (x=fx)and(y=fy) then
begin
inc(tj);
exit;
end;
a[x,y]:=1;
for i:=1 to 4 do
begin
x:=x+dx[i];
y:=y+dy[i];
search(x,y);
x:=x-dx[i];
y:=y-dy[i];
end;
a[x,y]:=0;
end;
begin
readln(n,m,t);
readln(sx,sy,fx,fy);
fillchar(a,sizeof(a),0);
for i:=1 to t do
begin
readln(z1,z2);
a[z1,z2]:=1;
end;
tj:=0;
search(sx,sy);
write(tj);
end.
獎學金pascal程式
題意 把總分排序 分析先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面 vara,t,p array 0.300 of longint n,i,x,y,j longint procedure kp l,r long...
拼數pascal程式
題意 將一些是接起來，找出接的最大的數 分析這題其實就是最大整數。做的時候，我們可以先把數字串排序，從小到大，再乙個乙個接起來 varn,i,x,j longint t string s array 0.20 of string procedure kp l,r longint vari,j lon...
部落衛隊pascal解題程式
type jh set of 0.100 集合 varn,m,i,u,v,tj longint w jh a,f array 0.100 of boolean s array 1.100 of jh procedure search dep longint w jh t longint dep是第幾...