121 条题解
- 
  0仗剑问情 LV 8 @ 2008-11-08 10:45:23 20行结束战斗 
- 
  0@ 2008-11-03 13:06:55#include 
 #include
 const int N=26;
 int main()
 {
 int s,t,w;
 scanf("%d %d %d",&s,&t,&w);
 char s1[26],s2[26];
 scanf("%s",s1);
 int i,n1,n2,n=1,j;
 for(i=s,j=0;i=s&&s1[n1]==s2[n2])
 {
 n1--;
 n2--;
 }
 if(n1==0) break;
 else
 {
 s1[n1]=s1[n1]+1;
 for(i=n1+1;i
- 
  0@ 2008-11-02 20:57:46编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms
- 
  0@ 2008-11-02 20:34:5218行秒杀。。。 
 program p1318;
 var
 s ,t ,w ,i ,j ,k :longint;
 st :string;
 begin
 readln(s ,t ,w);
 readln(st);
 for k:=1 to 5 do
 for i:=w downto 1 do
 if ord(st[i])+(w-i)
- 
  0@ 2008-11-02 17:45:52编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms一次AC, 
 当年我参加时才初一,没搞出来~~~
 #include
 using namespace std;
 int t (int b[],int s1)
 {
 int s=0;
 for (int i=1;is>>e>>l;
 s1=e-s+1;
 int b[s1+1];
 b[0]=0;
 for (int i=1;i>a;
 for (int i=0;i
- 
  0@ 2008-11-01 19:54:26编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms
 Flag Accepted
 题号 P1318
 类型(?) 模拟
 通过 1738人
 提交 2666次
 通过率 65%
 难度 1
- 
  0@ 2008-10-28 22:54:41编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms
- 
  0@ 2008-10-28 20:46:55汗。 
 我竟然叫了3次。
 因为那个SUCC和PRED···
- 
  0@ 2008-10-22 22:44:20#include 
 using namespace std;
 ifstream fin ("count.in");
 ofstream fout ("count.out");
 char a[30];
 int main ()
 {
 char c;
 int s,t,w,i,j,f,f1=1,k;
 fin>>s>>t>>w;
 fin>>a;
 for (j=0;j=0;i--)
 {
 if(a[w-1]>(t+96))
 {
 f1=1;
 a++;
 for (k=i;k(t+96)))&&i==0) return (0);
 if (a[w-1]
- 
  0@ 2008-10-21 23:23:08编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms借用某人一句话: 
 水题不扫,何以扫天下。。。。。
- 
  0@ 2008-10-17 21:14:18我居然写了将近40行……速度是个问题 var 
 s1:string;
 s,t,w,i,j:integer;
 en:boolean;
 procedure jam(var s1:string; var en:boolean);
 var i,j:integer;
 begin
 en:=false;
 i:=w;
 while s1[i]=pred(s1) do
 dec(i);
 s1[i]:=succ(s1[i]);
 for j:=i+1 to w do
 begin
 s1[j]:=succ(s1[j-1]);
 if ord(s1[j])>t+96 then
 begin
 en:=true;
 exit;
 end;
 end;
 end;begin 
 readln(s,t,w);
 readln(s1);
 s1[w+1]:=chr(t+97);
 for i:=1 to 5 do
 begin
 jam(s1,en);
 if en then
 halt;
 writeln(s1);
 end;
 end.
- 
  0@ 2008-10-16 16:11:46老夏大牛啊~ 
- 
  0@ 2008-10-12 17:32:58这题那么长的程序啊? 
 我就写了20+行。
- 
  0@ 2008-10-11 14:09:37#include 
 int time;
 char a[28];
 char p[7][28];
 char b[27];
 int s,t,w;
 void search(int temp){
 int i;
 if (time==5) return;
 if (p[temp]
- 
  0@ 2008-10-05 22:43:37#include 
 using namespace std;
 int main()
 {
 int n=0,s,t,w,z;
 char b[27],f='a'+t-1;
 cin>>s>>t>>w>>b+1;
 z=w;
 s='a'+t;
 do
 if(++f==s-w+z+1||z==w)
 f=b[z--];
 else
 {
 b[++z]=f;
 if(z==w)
 {
 cout
- 
  0@ 2008-10-05 21:31:34有谁可以解释一下题目的意思不? 
- 
  0@ 2008-10-07 21:15:34这道题当时都快做出来了,O(w^2)的... 
 无奈时间到了...
 唉,100分啊...
 ---|---|---|---|---|---|---|
 现在总算雪耻了...
 秒杀...
 program Project1;
 var s1:string;
 s,t,w,i,j:integer;
 en:boolean;
 procedure jam(var s1:string;var en:boolean);
 var i,j:integer;
 begin
 en:=false;
 i:=w;
 while s1[i]=pred(s1) do
 dec(i);
 s1[i]:=succ(s1[i]);
 for j:=i+1 to w do
 begin
 s1[j]:=succ(s1[j-1]);
 if ord(s1[j])>t+96
 then begin
 en:=true;
 exit;
 end;
 end;
 end;
 begin
 readln(s,t,w);
 readln(s1);
 s1[w+1]:=chr(t+97);
 for i:=1 to 5 do
 begin
 jam(s1,en); //求下一个数字或返回当前数字最大
 if en then halt;
 writeln(s1);
 end;
 end.
 不过很快又哭了...
 这道题AC率竟然为66%...
 无语...
 另外提醒LS,
 小心封号...
- 
  0@ 2008-09-23 22:03:34编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 0ms
 ├ 测试数据 09:答案正确... 0ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:0ms
 狂晕————————————————————
 失败————————————————————
 啊——————————————————————
 气绝身亡——————————————————————
 GL I LOVE YOU
- 
  0@ 2008-09-12 17:22:23有没有fpc的代码啊 求 
- 
  0@ 2008-09-05 18:48:25直接回溯模拟,时间上还过得去~ 编译通过... 
 ├ 测试数据 01:答案正确... 0ms
 ├ 测试数据 02:答案正确... 0ms
 ├ 测试数据 03:答案正确... 0ms
 ├ 测试数据 04:答案正确... 0ms
 ├ 测试数据 05:答案正确... 0ms
 ├ 测试数据 06:答案正确... 0ms
 ├ 测试数据 07:答案正确... 0ms
 ├ 测试数据 08:答案正确... 88ms
 ├ 测试数据 09:答案正确... 103ms
 ├ 测试数据 10:答案正确... 0ms
 ---|---|---|---|---|---|---|---|-
 Accepted 有效得分:100 有效耗时:191ms