NOIP2012普及组 pascal 第二题

显示全部楼层 · 2012-12-4 20:25:13

program treasure;var a:array[1..10000,0..99] of longint; //二维数组处理房间内指示标号,a[i,j]表示第i层第j号房间内的指示号码。lt:array[1..10000,0..99]of 0..1; //处理当前房间有没有楼梯。tn:integer;i,j,temp1,temp2,n,m,start:longint;x:longint;ans:longint;procedure sta;//处理约瑟夫环下标越界的情况。begininc(start);if (start>m-1) t...

千问 · 2012-12-4 20:25:13

var n,m,i,j,k,ans,k1,zs,zs1:longint;
a:array[1..100000,0..100] of longint;{指示牌}
b:array[1..100000,0..100] of integer;{有无楼梯}begin assign(input,'treasure.in');assign(ou...

千问 · 2012-12-4 20:25:13

cai...