Question

pascal难题

题目描述
在某个火车站中，有一个这样的轨道：

在A到C的轨道的两端，各有一条轨道向下延伸，并合并成一个新的轨道。按照车站的管理制度，从A处可以行驶至B处，但从B处却不能行驶回A处。同样，可以从B到C，却不能从C回到B。现已知有一串车厢组成的火车要从A处行驶至C处，问是否可以借助中转站B，到达C处时变换成另一个序列（各个车厢都是分离的，可以单独调度）?
输入
输入包含多个测试样例，保证最多有20个样例。
对于每个样例，分别包含了3行整数。
第一行：一个整数N，代表了火车中有N个车厢。N最大不超过10000。
第二行：N个整数，代表了火车的初始序列。（每个整数都小于等于N，保证每个数字不相同）
第三行：N个整数，代表了火车到达C处时要排列成的序列序列。（每个整数都小于等于N，保证每个数字不相同）
输出
对于每个测试样例，都只有一行输出。
若可以按照给定顺序到达C处，输出“Yes”，否则输出“No”。
样例输入
51 2 3 4 55 4 3 2 151 2 3 4 53 4 2 1 551 2 3 4 51 5 2 3 4
样例输出
YesYesNo
提示

【样例说明】

第一个样例，可以直接将整个火车移到B处，在从上至下都移到C处。

第二个样例，现将1、2移到B处，再将3、4移到C处，即可把2、1从B处移至C处，最后可把5移至C处。

第三个样例无法实现，输出“No”。

Answer 1

实际上是压栈和弹栈的操作。只要符合压栈弹栈的序列就是可行的，否则不可行。

追问

我也知道啊，可是不会写出来，我是萌新

追答

设计一个栈，对目标序列从头到尾通过判断比较模拟进栈、出栈的整个过程。遇到某个出栈和序列值不一致时，即为不可行的序列。

追问

有没有题解啊，对着看看

追答

注：1、为简化计算，初始序列必须为自然数的递增序列（其实，任意的初始序列都可编程，只是需要对原始序列和目标序列重新编号而已）。
    2、输入部分采用直接赋值方式。你可自行修改满足你题意的要求。
======================================================================    
var
a:array[1..10000] of integer;
top,x:integer;
old,new:array[1..10000] of integer;
n,i,j,old_pos:integer;

procedure push(x:integer;var top:integer);
begin
if top=0 then begin a[1]:=x; top:=1; end
else begin inc(top); a[top]:=x; end;
end;

procedure pop(var x:integer;var top:integer);
begin
if top>0 then begin x:=a[top]; dec(top); end;
end;

begin
top:=0;
n:=5;
for i:=1 to n do begin old[i]:=i; end;
new[1]:=1; new[2]:=5; new[3]:=2; new[4]:=3; new[5]:=4;

old_pos:=1;
for i:=1 to n do begin
while (old_pos<=n)and(old[old_pos]<=new[i]) do begin
push(old[old_pos],top); write('压',old[old_pos],' ');
inc(old_pos);
end;
pop(x,top); if x=new[i] then writeln('弹',x) else break; 
end;
writeln;
if top=0 then writeln('yes') else writeln('no');
end.