program ss；

var
   v:array[1..100] of longint;
   s,f,i,j:longint;

begin
   assign(input,'game.in');reset(input);
   assign(output,'game.out');rewrite(output);
   readln(s, f);
   if (f=4)or(f=7) then
   begin
      dec(f);
      for i:=1 to s do read(v[s-i+1]);
   end else
      for i:=1 to s do read(v[i]);
   j:= 0;
   case f of
     1: begin
            j:=s;
            for i:=1 to s-3 do
               if (v[i]=v[i+1])and(v[i]=v[i+2])and(v[i]=v[i+3]) then inc(j);
         end;
     2: begin
            for i:=1 to s-1 do
               if v[i]=v[i+1] then inc(j);
         end;
     3: begin
            for i:=1 to s-1 do
               if v[i]=v[i+1]+1 then inc(j);
            for i:=1 to s-2 do
               if (v[i]=v[i+1])and(v[i]=v[i+2]-1) then inc(j);
         end;
     5: begin
            for i:=1 to s-2 do
               if ((v[i]-v[i+1]=1)or(v[i]-v[i+1]=0))and(v[i]=v[i+2]) then inc(j);
            for i:=1 to s-1 do
               if abs(v[i]-v[i+1])=1 then inc(j);
         end;
     6: begin
            for i:=1 to s-2 do
               if (v[i+1]=v[i+2])and((v[i+1]-v[i]=1)or(v[i+1]-v[i]=0)) then inc(j);
            for i:=1 to s-1 do
               if (v[i]=v[i+1])or(v[i]=v[i+1]+2) then inc(j);
         end;
   end;
   writeln(j);
close(input);
close(output);
end.

你这个代码是delphi  有一些是delphi的内部函数 请你解释一下assign这个 什么意思   要不翻译不准确了

不是delphi，是pascal代码

看来没人帮版主翻译啊

// 不知道对不对
// program ss

#include <stdio.h>
#include <stdlib.h>

#define inc(x) (++(x))
#define dec(x) (--(x))

int main(void)
{
    long v[100];
    long s, f, i, j;

    FILE *finput, *foutput;
    finput = fopen("game.in", "r");
    foutput = fopen("game.out", "w");
    if (finput == NULL)
        exit(1);

    fscanf(finput, "%ld %ld", &s, &f);
    if (f==4 || f==7)
    {
        dec(f);
        for (i=0; i < s; i++)
            fscanf(finput, "%ld", &v[s-i]);
    } else {
        for (i=0; i < s; i++);
            fscanf(finput, "%ld", &v[i]);
    }
    j=0;
    switch (f) {
      case 1:
        j=s;
        for (i=0; i < s-3; i++)
            if(v[i]==v[i+1] && v[i]==v[i+2] && v[i]==v[i+3])
                inc(j);
      case 2:
        for (i=0; i < s-1; i++)
            if (v[i] == v[i+1])
                inc(j);
      case 3:
        for (i=0; i<s-1; i++)
            if (v[i]==v[i+1]+1)
                inc(j);
        for (i=0; i<s-2; i++)
            if (v[i]==v[i+1] && v[i]==v[i+2]-1)
                inc(j);
      case 5:
        for (i=0; i<s-2; i++)
            if ( (v[i]-v[i+1]==1 || v[i]-v[i+1]==0) && v[i]==v[i+2] )
                inc(j);
        for (i=0; i<s-1; i++)
            if (abs(v[i]-v[i+1]) == 1)
                inc(j);
      case 6:
        for(i=0; i<s-2; i++)
            if (v[i+1]==v[i+2] && v[i+1]-v[i]==1 || v[i+1]-v[i]==0)
                inc(j);
        for (i=0; i<s-1; i++)
            if (v[i]==v[i+1] || v[i]==v[i+1]+2)
                inc(j);
    }
    fprintf(foutput, "%ld\n", j);
    fclose(finput);
    fclose(foutput);
    return 0;
}

[ 本帖最后由 cosdos 于 2010-9-23 13:26 编辑 ]