中科新闻网他是偏执狂夏琪结局:Noi2004第三题如何编？
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 13:00:22
是Pascal程序代码
//noip 吗? 那 就是这个了~
var
fin,fout:text;
n:integer;//层数
function run(ceng:integer):char;//递归部分
var
ch,ch1,ch2:char;
begin
if ceng=0 then //如果 到达叶子节点
begin
read(fin,ch); //读入 数据
if ch='1' then ch:='I'; //判断
if ch='0' then ch:='B';
end else begin //如果 没到叶子节点
ch1:=run(ceng-1); //调用 左
ch2:=run(ceng-1); //调用 又
if ch1=ch2 then ch:=ch1 else ch:='F'; //同号保持 异号为 F
end;
write(fout,ch);//输出
run:=ch;//返回函数值
end;
begin
assign(fin,'fbi.in');
assign(fout,'fbi.out');
reset(fin);
rewrite(fout);
readln(fin,n);
run(n);
close(fin);
close(fout);
end.
//fp编译通过 递归 10个点全AC