中国DOS联盟

@echo off &setlocal enabledelayedexpansion

set /p inp=" : "

call :funa na %inp%

call :funa nb %inp:* =%





set /a lpna=0,lpr=-1

:lpna

set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr

  :lpnb

  set /a lpnb+=1,lp+=1

  ::::::::::::::::::::::::::

    set /a cup%lp%+=na%lpna%*nb%lpnb%

     set /a tlpa=lp,tlpb=tlpa+1

     :cuplp

     set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10

     if !cup%tlpb%! gtr 9 (

        set /a tlpa+=1,tlpb=tlpa+1

        goto :cuplp

     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)



  ::::::::::::::::::::::::::

  if %lpnb% lss %nb% (goto :lpnb)

if %lpna% lss %na% (goto :lpna)



for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul

echo,

echo,wscript.echo %inp: =*%>x.vbs

cscript //nologo x.vbs

pause>nul &exit





:funa

set %1=%2

set funaa=0

:funaa

  set /a funaa+=1

  set %1%funaa%=!%1:~-%funaa%,1!

if not "!%1:~%funaa%!"=="" (goto :funaa)

set /a %1=funaa

@echo off &setlocal enabledelayedexpansion

set /p inp=" : "

call :naxnb %inp%

pause



:naxnb

set numa=%1

set numb=%2

set /a la=0,lpr=-1

:la

set /a la+=1,lb=0,lpr+=1,lp=lpr

  :lb

  set /a lb+=1,lp+=1,tlpa=lp,tlpb=lp+1

  :::::::::::::::::::::::::

  set /a cup%lp%+=!numa:~-%la%,1! * !numb:~-%lb%,1!

     :cuplp

     set /a cup%tlpb%+=cup%tlpa%/10,cup%tlpa%=cup%tlpa%%%10

     if !cup%tlpb%! gtr 9 (

        set /a tlpa+=1,tlpb=tlpa+1

        goto :cuplp

     ) else (if !cup%tlpb%! equ 0 set /a tlpb-=1)

  ::::::::::::::::::::::::::

  if not "!numb:~%lb%!"=="" (goto :lb)

if not "!numa:~%la%!"=="" (goto :la)

for /l %%a in (%tlpb%,-1,1) do set /p=!cup%%a!<nul



::::::::vbs验证一下:::::::::::

echo,

echo,wscript.echo %inp: =*%>x.vbs

cscript //nologo x.vbs

pause>nul &exit

文章

Batch Rename's Bug
http://www.cn-dos.net/forum/viewthread.php?tid=45655

TalkAboutString
http://www.cn-dos.net/forum/viewthread.php?tid=45654

段落重定向方式改进
http://www.cn-dos.net/forum/viewthread.php?tid=45409

2次ping1 不等于 1次ping2
http://www.cn-dos.net/forum/viewthread.php?tid=45410

%var%代替语句执行
http://www.cn-dos.net/forum/viewthread.php?tid=45240

贪吃蛇思路解析 （23楼）
http://www.cn-dos.net/forum/viewthread.php?tid=43369

建立永久的畸形盘符
http://www.cn-dos.net/forum/viewthread.php?tid=41796


数学相关:

批处理算24点
http://www.cn-dos.net/forum/viewthread.php?tid=45488

1-99内整数开根
http://www.cn-dos.net/forum/viewthread.php?tid=43046

应用:

能否更改批处理脚本的进程名称？ （已找到解答，在24楼链接。）
http://www.cn-dos.net/forum/viewthread.php?tid=42169

如何用脚本实现待机？打开屏保？
http://www.cn-dos.net/forum/viewthread.php?tid=45522

批处理脚本打包工具
http://www.cn-dos.net/forum/viewthread.php?tid=44620

满1小时就关机
http://www.cn-dos.net/forum/viewthread.php?tid=45242

生成待编写的测试脚本
http://www.cn-dos.net/forum/viewthread.php?tid=45250

举出当前最小和最大的bat文件
http://www.cn-dos.net/forum/viewthread.php?tid=41517

001,002,003式的批量重命名
http://www.cn-dos.net/forum/viewthread.php?tid=41643


娱乐，特效:

数字阵逐点显现，随机
http://www.cn-dos.net/forum/viewthread.php?tid=45878

批处理写大字效果--新年贺卡
http://www.cn-dos.net/forum/viewthread.php?tid=45411

动画特效：画圆、弹球、进度条、起落等
http://www.cn-dos.net/forum/viewthread.php?tid=42124

纯批处理版贪吃蛇
http://www.cn-dos.net/forum/viewthread.php?tid=43369

中间渐渐变大的圆
http://www.cn-dos.net/forum/viewthread.php?tid=44785

空间随机游动粒子+贪吃蛇初版
http://www.cn-dos.net/forum/viewthread.php?tid=43059

【视觉类】前进中的道路+飞机大炮
http://www.cn-dos.net/forum/viewthread.php?tid=41333

【视觉类】从中间逐渐扩大再变小的方形框框+变色
http://www.cn-dos.net/forum/viewthread.php?tid=40711

时钟--斜体+毫秒（更新，减少cpu和闪烁）
http://www.cn-dos.net/forum/viewthread.php?tid=41833

潜水数天，完成了自己满意的数码雨
http://www.cn-dos.net/forum/viewthread.php?tid=42113

【算是月贴】我尽量减少闪烁的批处理大时钟
http://www.cn-dos.net/forum/viewthread.php?tid=41757

一路小跑，第一集，跳！
http://www.cn-dos.net/forum/viewthread.php?tid=41981

做了一个自己满意的滚动字幕
http://www.cn-dos.net/forum/viewthread.php?tid=39780


回帖:

【挑战】用批处理画出正方形和抛物线 14楼 15楼 18楼
http://bbs.bathome.cn/thread-3537-2-1.html

批处理趣味数学之n阶蛇形方阵 28楼
http://www.cn-dos.net/forum/viewthread.php?tid=42472

怎样生成一个纯数字的密码字典 6楼
http://www.cn-dos.net/forum/viewthread.php?tid=33139

排列组合 27楼
http://www.cn-dos.net/forum/viewthread.php?tid=41243


水区:

徒手编数独阵
http://www.cn-dos.net/forum/viewthread.php?tid=45817

以歧视之道还治歧视之身
http://www.cn-dos.net/forum/viewthread.php?tid=45986

523066680语录
http://www.cn-dos.net/forum/viewthread.php?tid=46304

半截故事
http://www.cn-dos.net/forum/viewthread.php?tid=45521

光速矛盾
http://www.cn-dos.net/forum/viewthread.php?tid=44789

1=0.9999999……？
http://www.cn-dos.net/forum/viewthread.php?tid=43058

文章 Batch Rename's Bug http://www.cn-dos.net/forum/viewthread.php?tid=45655 TalkAboutString http://www.cn-dos.net/forum/viewthread.php?tid=45654 段落重定向方式改进 http://www.cn-dos.net/forum/viewthread.php?tid=45409 2次ping1 不等于 1次ping2 http://www.cn-dos.net/forum/viewthread.php?tid=45410 %var%代替语句执行 http://www.cn-dos.net/forum/viewthread.php?tid=45240 贪吃蛇思路解析 （23楼） http://www.cn-dos.net/forum/viewthread.php?tid=43369 建立永久的畸形盘符 http://www.cn-dos.net/forum/viewthread.php?tid=41796 数学相关: 批处理算24点 http://www.cn-dos.net/forum/viewthread.php?tid=45488 1-99内整数开根 http://www.cn-dos.net/forum/viewthread.php?tid=43046 应用: 能否更改批处理脚本的进程名称？ （已找到解答，在24楼链接。） http://www.cn-dos.net/forum/viewthread.php?tid=42169 如何用脚本实现待机？打开屏保？ http://www.cn-dos.net/forum/viewthread.php?tid=45522 批处理脚本打包工具 http://www.cn-dos.net/forum/viewthread.php?tid=44620 满1小时就关机 http://www.cn-dos.net/forum/viewthread.php?tid=45242 生成待编写的测试脚本 http://www.cn-dos.net/forum/viewthread.php?tid=45250 举出当前最小和最大的bat文件 http://www.cn-dos.net/forum/viewthread.php?tid=41517 001,002,003式的批量重命名 http://www.cn-dos.net/forum/viewthread.php?tid=41643 娱乐，特效: 数字阵逐点显现，随机 http://www.cn-dos.net/forum/viewthread.php?tid=45878 批处理写大字效果--新年贺卡 http://www.cn-dos.net/forum/viewthread.php?tid=45411 动画特效：画圆、弹球、进度条、起落等 http://www.cn-dos.net/forum/viewthread.php?tid=42124 纯批处理版贪吃蛇 http://www.cn-dos.net/forum/viewthread.php?tid=43369 中间渐渐变大的圆 http://www.cn-dos.net/forum/viewthread.php?tid=44785 空间随机游动粒子+贪吃蛇初版 http://www.cn-dos.net/forum/viewthread.php?tid=43059 【视觉类】前进中的道路+飞机大炮 http://www.cn-dos.net/forum/viewthread.php?tid=41333 【视觉类】从中间逐渐扩大再变小的方形框框+变色 http://www.cn-dos.net/forum/viewthread.php?tid=40711 时钟--斜体+毫秒（更新，减少cpu和闪烁） http://www.cn-dos.net/forum/viewthread.php?tid=41833 潜水数天，完成了自己满意的数码雨 http://www.cn-dos.net/forum/viewthread.php?tid=42113 【算是月贴】我尽量减少闪烁的批处理大时钟 http://www.cn-dos.net/forum/viewthread.php?tid=41757 一路小跑，第一集，跳！ http://www.cn-dos.net/forum/viewthread.php?tid=41981 做了一个自己满意的滚动字幕 http://www.cn-dos.net/forum/viewthread.php?tid=39780 回帖: 【挑战】用批处理画出正方形和抛物线 14楼 15楼 18楼 http://bbs.bathome.cn/thread-3537-2-1.html 批处理趣味数学之n阶蛇形方阵 28楼 http://www.cn-dos.net/forum/viewthread.php?tid=42472 怎样生成一个纯数字的密码字典 6楼 http://www.cn-dos.net/forum/viewthread.php?tid=33139 排列组合 27楼 http://www.cn-dos.net/forum/viewthread.php?tid=41243 水区: 徒手编数独阵 http://www.cn-dos.net/forum/viewthread.php?tid=45817 以歧视之道还治歧视之身 http://www.cn-dos.net/forum/viewthread.php?tid=45986 523066680语录 http://www.cn-dos.net/forum/viewthread.php?tid=46304 半截故事 http://www.cn-dos.net/forum/viewthread.php?tid=45521 光速矛盾 http://www.cn-dos.net/forum/viewthread.php?tid=44789 1=0.9999999……？ http://www.cn-dos.net/forum/viewthread.php?tid=43058

@echo off &setlocal enabledelayedexpansion

set /p inp=" : "

call :funa na %inp%

call :funa nb %inp:* =%





set /a lpna=0,lpr=-1

:lpna

set /a lpna+=1,lpnb=0,lpr+=1,lp=lpr

  :lpnb

  set /a lpnb+=1,lp+=1

  ::::::::::::::::::::::::::

    set /a axb=na%lpna%*nb%lpnb%

    set /a cup%lp%=axb+cup%lp%

    if !cup%lp%! gtr 9 (set "do=") else (set do=::)



    %do% set /a tlpa=lp,tlpb=tlpa+1

    %do% :cuplp

    %do% set /a cup%tlpa%=cup%tlpa%-10,cup%tlpb%+=1

    %do% set /a tlpa+=1,tlpb=tlpa+1

    %do% if !cup%tlpb%! gtr 9 (goto :cuplp)



  ::::::::::::::::::::::::::

  if %lpnb% lss %nb% (goto :lpnb)

if %lpna% lss %na% (goto :lpna)





for /l %%a in (1,1,8) do echo !cup%%a!



set /a temp=1234*1234

echo %temp%

pause>nul &exit





:funa

set /a %1=%2,funaa=0

:funaa

  set /a funaa+=1

  set %1%funaa%=!%1:~-%funaa%,1!

if not "!%1:~%funaa%!"=="" (goto :funaa)

set /a %1=funaa

typedef struct

{

 int fa,fb;

} fraction;





char axb;



fraction arr;

fraction outvar;

int whox;

int overa;



void arrangement(int a,int n);

void next(fraction a,int n);

void count(fraction a,int x,fraction b,int n);



main()

{

 int i,ma;

 for (i=0;i<4;i++) arr.fb=1;

 while (1)

 {

  printf("______________________\nPress  = Quit \n\n");

  printf("Input 4 numbers,such as: 3 3 8 8 : ");

  scanf("%d %d %d %d",&ma,&ma,&ma,&ma);

  overa=0;

  arrangement(ma,4);

  if (overa==0) printf("\n Not result!\n\n");

 }

 getch();

}



void arrangement(int a,int n)

{

  int temp;

  int i,j,k;

  if (n==0)

  {

    next(arr,4);

    return;

  }

  for (i=0;i<n;i++)

  {  k=0;

     arr.fa=a;

     for (j=0;j<n;j++) {if (i!=j) temp=a;}

     arrangement(temp,n-1);

  }

}





void next(fraction a,int n)

{

  int i,j;

  fraction temp;

  if ((overa==0)&&(n==1)&&(a.fa==24*a.fb))

  {printf("\n    ");

   if (whox==0)

   {

     if (whox==0)

     {printf(" %c %d",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}

     else if (whox==1)

     {printf(" %c %d",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}

     else if (whox==2)

     {printf("(%d %c %d) %c (%d %c %d)",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}

   }

   else

   {

     if (whox==0)

     {printf("(%d %c %d) %c (%d %c %d)",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}

     else if (whox==1)

     {printf("%d %c ",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}

     else if (whox==2)

     {printf("%d %c ",arr.fa,axb,arr.fa,axb,arr.fa,axb,arr.fa);}



   }

   printf(" = 24 \n\n");

   overa=1;

   return;

  }

  for (i=0;i<n-1;i++)

  {

   whox=i;

   for (j=0;j<n;j++){temp.fa=a.fa;temp.fb=a.fb;}

   for (j=i+1;j<n-1;j++){temp.fa=temp.fa;temp.fb=a.fb;}

   for (j=0;j<4;j++)

   {

     count(a,j,a,n);

     temp.fa=outvar.fa;

     temp.fb=outvar.fb;

     if (outvar.fb!=0) next(temp,n-1);

   }

  }

}



void count(fraction a,int x,fraction b,int n)

{



  if (x==0)

  {

    axb='+';

    outvar.fa=(a.fa*b.fb)+(b.fa*a.fb);

    outvar.fb=a.fb*b.fb;

  }

  else if (x==1)

  {

    axb='-';

    outvar.fa=(a.fa*b.fb)-(b.fa*a.fb);

    outvar.fb=a.fb*b.fb;

  }

  else if (x==2)

  {

    axb='*';

    outvar.fa=a.fa*b.fa;

    outvar.fb=a.fb*b.fb;

  }

  else if (x==3)

  {

    axb='/';

    outvar.fa=a.fa*b.fb;

    outvar.fb=a.fb*b.fa;

  }

}

#include "Conio.h"

#include "graphics.h"

#include "stdlib.h"

#define closegr closegraph



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



int main(void)

{

  int a,b,x,y,i,j;

  randomize();

  initgr(); /* BGI初始化 */

  x=y=200;

  for (i=1;i<=15;i++)

  {

   a=rand()%600+1;b=rand()%400+20;



   putpixel(x,y,4);

   while (x!=a||y!=b)

   {

     if (x<a)

       x++;

     else if (x>a)

       x--;

     else

     {

       if (y<b)

         y++;

       else if (y>b)

         y--;

     }

     for (j=0;j<=100;j++) delay(10);

     putpixel(x,y,i);

   }

  }

  rectangle(x-5,y-5,x+5,y+5);



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include "Conio.h"

#include "graphics.h"

#include "stdlib.h"

#define closegr closegraph



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



int main(void)

{

  int a,b,x,y,i,j,dtl=50,dtn=0;

  int dot;

  randomize();

  initgr(); /* BGI初始化 */

  x=y=200;

  dot=dot=200;



  for (i=1;i<dtl;i++) {dot=0;dot=0;}

  for (i=1;i<=15;i++)

  {

   a=rand()%600+1;b=rand()%400+20;



   putpixel(x,y,4);

   while (x!=a||y!=b)

   {

     if (x<a)

       x++;

     else if (x>a)

       x--;

     else

     {

       if (y<b)

         y++;

       else if (y>b)

         y--;

     }

     for (j=0;j<=100;j++) delay(10);

     putpixel(x,y,i);



     if (dtn<(dtl-1)) dtn++;

     else dtn=0;



     if (dot!=0) putpixel(dot,dot,0);

     dot=x;dot=y;

   }

  }

  rectangle(x-5,y-5,x+5,y+5);



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NSNK 5

#define LONG 60



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



int main(void)

{

  int i,j;

  struct {

   int a,b,x,y,dtl,dtn,dot;

  } snk;



  initgr(); /* BGI初始化 */



  for (i=0;i<NSNK;i++) {

   snk.a=snk.b=snk.x=snk.y=snk.dot=snk.dot=200;

   snk.dtl=LONG;

   snk.dtn=0;

   for (j=1;j<LONG;j++) {snk.dot=snk.dot=0;}

  }

  randomize();

  while (!kbhit())

  {

    for (i=0;i<150;i++) delay(10);

    for (i=0;i<NSNK;i++){

      putpixel(snk.x,snk.y,i+1);

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NSNK;i++){

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }

     if (snk.dtn<(snk.dtl-1)) snk.dtn++;

     else snk.dtn=0;

     

     if (snk.dot.dtn]!=0) putpixel(snk.dot.dtn],snk.dot.dtn],0);

     snk.dot.dtn]=snk.x;

     snk.dot.dtn]=snk.y;

    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NSNK 5



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



int main(void)

{

  int i,j;

  struct {

   int a,b,x,y;

  } snk;



  initgr(); /* BGI初始化 */



  for (i=0;i<NSNK;i++) {

   snk.a=snk.b=snk.x=snk.y=200;

  }

  randomize();

  while (!kbhit())

  {

    for (i=0;i<150;i++) delay(10);

    for (i=0;i<NSNK;i++){

      putpixel(snk.x,snk.y,i+1);

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NSNK;i++){

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }

    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NDOT 5



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



void func(int x,int y,int c)

{

  putpixel(x,y,c);

  putpixel(x+1,y,c);

  putpixel(x,y+1,c);

  putpixel(x+1,y+1,c);

}



int main(void)

{

  int i,j,whi=0;

  struct {

   int a,b,x,y,tx,ty;

  } snk;



  initgr(); /* BGI初始化 */



  for (i=0;i<NDOT;i++) {

   snk.a=snk.b=snk.x=snk.y=200;

  }

  randomize();

  while (!kbhit())

  {

    if (whi<4) whi++; else whi=0;

    for (i=0;i<150;i++) delay(10);

    for (i=0;i<NDOT;i++){

      func(snk.tx,snk.ty,0);

      func(snk.x,snk.y,i+1);

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NDOT;i++){

    snk.tx=snk.x;

    snk.ty=snk.y;

    if (whi>i) continue;

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }

    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NDOT 3



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



void delta(int xa,int ya,int xb,int yb,int xc,int yc,int c)

{

   setcolor(c);

   line(xa,ya,xb,yb);

   line(xa,ya,xc,yc);

   line(xb,yb,xc,yc);

}



int main(void)

{

  int i,j,whi=0;

  struct {

   int a,b,x,y,tx,ty;

  } snk;



  initgr(); /* BGI初始化 */



  for (i=0;i<NDOT;i++) {

   snk.a=snk.b=snk.x=snk.y=200;

  }

  randomize();

  while (!kbhit())

  {

    if (whi<3) whi++; else whi=0;

    for (i=0;i<200;i++) delay(10);



    delta(snk.tx,snk.ty,snk.tx,snk.ty,snk.tx,snk.ty,0);

    delta(snk.x,snk.y,snk.x,snk.y,snk.x,snk.y,2);



    for (i=0;i<NDOT;i++){

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NDOT;i++){

    snk.tx=snk.x;

    snk.ty=snk.y;

    if (whi>i) continue;

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }

    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NDOT 4





typedef struct

{

   int a,b,x,y;

} DotInf;





void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



void delta(DotInf dot,int c)

{

   int i,j;

   setcolor(c);

     for (i=0;i<NDOT;i++)

       for (j=i+1;j<NDOT;j++) line(dot.x,dot.y,dot.x,dot.y);

}



int main(void)

{

  int i,j,whi=0;

  DotInf snk,everdot;



  initgr(); /* BGI初始化 */



  for (i=0;i<NDOT;i++) {

   snk.a=snk.b=snk.x=snk.y=200;

  }

  delta(snk,2);

  randomize();

  while (!kbhit())

  {

    if (whi<4) whi++; else whi=0;

    for (i=0;i<600;i++) delay(10);



    delta(everdot,0);

    delta(snk,2);



    for (i=0;i<NDOT;i++){

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NDOT;i++){

    everdot.x=snk.x;

    everdot.y=snk.y;

    if (whi>i) continue;

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }

    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}

int main(void)

{

  int i,j;

  initgr(); /* BGI初始化 */



  randomize();

  while (!kbhit())

  {

     for (j=200;j<=300;j++)

     {

      putpixel(rand()%400+1,j,4);

      putpixel(rand()%400+1,j,0);

     }

     for (j=0;j<200;j++) delay(10);

  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph



void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



void func(int x,int y,int c)

{ setcolor(c);

  rectangle(x-4,y-4,x+4,y+4);

}

int main(void)

{

  int i,j;

  initgr(); /* BGI初始化 */



  randomize();



  while (!kbhit())

  {

   for (i=1;i<=30;i++)

   {

     for (j=1;j<=30;j++) if (rand()%30>20) func(j*10,i*10,1);

     for (j=1;j<=30;j++) if (rand()%30>10) func(j*5,i*5,0);

   }

   for (j=0;j<500;j++) delay(20);

  }

  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

@echo off

err>result.x 2>nul

set /a x=0

for /f "delims= eol=#" %%a in (text.txt) do (

   set /a x+=1

   set /a seta=0,setb=80

   echo,    %%a>x.x

   call :func

)

start result.x

pause

exit



:func

   echo,Sentence%x%

   type x.x>temp.x

   fsutil file setzerodata offset=0 length=%seta% temp.x     >nul

   fsutil file setzerodata offset=%setb% length=10000 temp.x >nul

   (for /f "delims= eol=#" %%c in ('more temp.x') do (echo,%%c>temp.x))||goto :eof

   for /f "tokens=3" %%a in ('dir temp.x /-c ^|find "个文件"') do (set num=%%a)

   set /a seta=seta+num-2,setb=seta+80 &type temp.x>>result.x &goto :func

goto :eof