主题：求大量有关noip初赛的的试题，不要历届试题，感激不尽！
chip
[专家分：80] 发布于 2010-08-14 22:09:00
本人收了个徒弟，不成器啊，这不，初赛快来了，得先帮她过了初赛啊，急求大量有关‘阅读程序写结果’,‘完善程序’的试题，但不要历届试题（我全有！），像模拟题（有点嚼劲的最好），自编题，或自己积累的。望各方路人兄弟姐妹生出援助之手，感激不尽啊！
有事联系，我qq：1554487236
再次感谢
[em3]
回复列表 （共14个回复）
11 楼
pascal编游戏 [专家分：300] 发布于 2010-08-25 18:46:00
够多了吧…………
这里面有一半都是我们老师给的，我找了半天才找到的。
麻烦LZ给点分吧，谢谢。
12 楼
cgl_lgs [专家分：21040] 发布于 2010-08-31 20:27:00
楼主又玩儿消失？
13 楼
lidongchao [专家分：30] 发布于 2010-10-04 11:20:00
大家快做吧！
program ldc(input,output);
var total:integer;
procedure movetower(n,a,b,c:integer);
procedure movedisk(takeoff,puton:integer);
begin
writeln(takeoff,'->',puton);
end;
begin
if n>0 then
begin
movetower(n-1,a,c,b);
movedisk(a,b);
movetower(n-1,c,b,a);
end
end;
begin
read(total);
movetower(total,1,2,3);
end.
输入 3
输出 ？
我来回复
您所在位置：