文档章节

自己写的小程序!棒极了,快来看看吧!!!

yemaster
 yemaster
发布于 2017/02/01 20:15
字数 5951
阅读 89
收藏 0

(更新次数:2)新增:新闻动态,升级,时间

把程序放入FPC方法:复制所有源代码→打开FPC→点击edit菜单→点击copy to Windows

此程序已超过1000行。功能超全!注册账号为admin则自动拥有管理员权限。可以填写手机号,账号,名字,密码,性别。

以下是未登录前功能:

1,登录

2,注册

3,退出

以下是登录后功能(加*的功能是只有拥有管理员权限的用户才能使用):

1,登录

2,注册

3,退出

4,修改信息(未拥有和管理员权限只能修改自己信息,拥有管理员权限的用户可以修改所有用户信息)

5,游戏(猜数游戏,包含1,人机对战①。2,单人模式)

(人机对战获得积分是电脑等级×2,单人模式获得积分是100÷猜的次数求商。电脑使用二分查找)

6,积分商城(暂不可用)

7,好友(暂不可用)

8,新朋友(暂不可用)

9,积分红包(暂不可用)

10,查看用户信息(拥有管理员权限的用户可查看密码,未拥有的用户不能查看)

11,讨论中心(暂不可用)

12,学习(做口算,会根据你的年龄而安排题目)

13,应用市场(目前只有三个应用:1,猜数游戏外挂,可知道猜数游戏要猜的数。2,跳过启动部分。3,修改积分)(未拥有管理员权限的用户最多只能下载2个)

14,删除应用

错误,升级程序

15,新闻动态

16,升级

*17,删除用户

*18,修改积分

*19,添加或删除用户管理员权限

注意:

@2017 Copyright
The developers:Ye Litian

这是版权信息,请勿删除,违者重罚!!!

uses crt,dos;
const
 days:array[0..6] of String[9]=('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
var
  i:longint;
  s,ss,pa,as,pas:string;
  s3:integer;
  ch:char;
  password,user,name,ph,zfp:array[0..100000] of string;
  gender,qx,teac,wg,wg1,wg2,wg3:array[1..100000] of boolean;
  hy:array[1..100000,1..1000000] of string;
  jf,nl:array[1..100000] of longint;
  booo:boolean;
  dj,biy,bim,bit:array[1..100000] of longint;
  birt:array[1..100000,1..99999] of boolean;
  hh,mm,ys,sec100,y,m,d,dow:word;
procedure adu1;
var

begin
  while user[k]<>'' do
  k:=k+1;
  clrscr;
  writeln('The user name beginning:');
  writeln('The number of users:');
  gotoxy(25,1);
  readln(aqa);
  gotoxy(21,2);
  readln(asq);
  for i:=1 to asq do
  begin
    str(i,sqe);
    user[i+k-1]:=aqa+sqe;
    password[i+k-1]:='123456';
    biy[i+k-1]:=0;
    bim[i+k-1]:=0;
    bit[i+k-1]:=0;
    gender[i+k-1]:=true;
    ph:='***********');
  end;
  writeln('User
procedure write1;
var
  wordx:array[1..15] of string;
  j:longint;
begin
  clrscr;
  if teac[i] then
  begin
    writeln('Plase write.No more than 10 lines!');
    for j:=1 to 10 do
    begin
      readln(wordx[j]);
      if wordx[j]='' then break;
    end;
  end
  else
  begin
    for j:=1 to 10 do
    if wordx[j]<>'' then writeln(wordx[j]);
  end;
end;
procedure q;
var
  k,la,j,saq,s,n:longint;
begin
  randomize;
  k:=0;
  while user[k]='' do
  k:=k+1;
  for i:=1 to 100 do
  begin
    n:=random(k)+1;
    clrscr;
    writeln('Name: ',name[n]);
  end;
  readln;
end;
procedure class;
var
  ch:char;
begin
  clrscr;
  while ch<>#13 do
  begin
    clrscr;
    writeln('Write please input 1');
    writeln({'Questions and }'Random the name please enter 2');
    writeln('Homework to enter 3');
    writeln('Exit to enter!');
    ch:=readkey;
    case ch of
    '1':write1;
    '2':q;
    //'3':zy;
  #13:exit;
  end;
  end;
end;
procedure downtime;
var
  h,d,s,i:longint;
begin
  writeln('Please enter the hours, minutes and seconds!');
  readln(h,d,s);
  s:=s+h*3600+d*60;
  for i:=s downto 1 do
  begin
    clrscr;
    writeln(i div 3600,' h,',i div 60 mod 60,' d,',i mod 60,' s');
    delay(1000);
  end;
  writeln('OK');
end;
procedure mb;
var
  h,m,s,ss:word;
  hh,mm,s2,ss2:word;
  time:real;
begin
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gettime(h,m,s,ss);
  gettime(hh,mm,s2,ss2);
  time:=0;
  ch:=' ';
  while ch<>#13 do
  begin
    writeln('Please always according to their space!Press enter to stop');
    gettime(hh,mm,s2,ss2);
    ch:=readkey;
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    time:=(hh-h)*3600+(mm-m)*60+(s2-s)*1+(ss2-ss)/100;
    writeln(time:0:2);
  end;
  exit;
end;
procedure lka;
var
  f:longint;
begin
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  case dj[i] of
  1:begin
      gotoxy(1,1);
      writeln('You need 1000 points to upgrade to level two, enter the 1 upgrade!');
      REadln(f);
      if f=1 then
      begin
        if jf[i]<1000 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        dj[i]:=2;
        jf[i]:=jf[i]-1000;
      end;
      exit;
  end;
  2:begin
      gotoxy(1,1);
      writeln('You need 5000 points to upgrade to level three, enter the 1 upgrade!');
      REadln(f);
      if f=1 then
      begin
        if jf[i]<5000 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        dj[i]:=3;
        jf[i]:=jf[i]-5000;
      end;
      exit;
  end;
  3:begin
      gotoxy(1,1);
      writeln('You need 25000 points to upgrade to level four, enter the 1 upgrade!');
      REadln(f);
      if f=1 then
      begin
        if jf[i]<25000 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        dj[i]:=4;
        jf[i]:=jf[i]-25000;
      end;
      exit;
  end;
  4:begin
      gotoxy(1,1);
      writeln('You need 50000 points to upgrade to level five, enter the 1 upgrade!');
      REadln(f);
      if f=1 then
      begin
        if jf[i]<50000 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        dj[i]:=5;
        jf[i]:=jf[i]-50000;
      end;
      exit;
  end;
  5:begin
      gotoxy(1,1);
      writeln('Level is full!');
      delay(1000);
  end;
  end;
end;
procedure news;
var
  k:longint;
begin
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(22,1);
  writeln('Update this program recently');
  gotoxy(1,2);
  writeln('Major update:');
  writeln('1, increase the news center');
  writeln('2, increase the number of games guessing game');
  writeln('3, increase the man-machine war mode');
  writeln('4, increase the application market');
  writeln('5, add delete application');
  writeln('Date:2017-2-1 20:26');
  writeln('(one minutes after the automatic exit)');
  delay(1000);
  for k:=60 downto 1 do
  begin
    gotoxy(1,10);
    writeln(k,'   ');
    delay(1000);
  end;
  exit;
end;
procedure dapp;
var
  f,s,k,n,sc:longint;
begin
  sc:=0;
  randomize;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  s:=0;
  writeln('Please input the app number to delete!');
  writeln('1,Guess game plugin');
  writeln('2,Skip the opening part');
  writeln('3,Add the integration');
  readln(f);
  case f of
  1:wg[i]:=false;
  2:wg1[i]:=false;
  3:wg2[i]:=false;
  end;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,11);
  writeln('Delete...');
  gotoxy(32,12);
  n:=random(20)+1;
  for k:=1 to n do
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(39,11);
    s:=s+100 div n;
    writeln(s,'%');
    delay(1000);
  end;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,11);
  writeln('Delete OK!');
  delay(1000);
  exit;
end;
procedure xl;
var
  xz,x:array[-100..1000000] of string;
  xt,k,ka,n:longint;
  st:string;
begin
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  writeln('Message center');
  if xt<=19 then
  begin
    for k:=1 to xt do
    writeln(xz[k],': ',x[k]);
  end
  else
  begin
    for k:=xt-19 to xt do
    writeln(xz[k],': ',x[k]);
  end;
  writeln('Input box:');
  writeln('Please input 0 to exit.Input 1 to send a message!');
  readln(n);
  if n=0 then exit;
  if n=1 then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Please enter the message content!');
    writeln('Input box:');
    readln(st);
    for k:=1 to length(st) do
    if st[k]=' ' then ka:=ka+1;
    if ka=length(st) then
    begin
      clrscr;
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(32,11);
      writeln('The message cannot be empty or full is a space!');
      delay(2000);
      xl;
    end
    else
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      xt:=xt+1;
      xz[xt]:=s;
      x[xt]:=st;
      gotoxy(32,11);
      writeln('Send a success!');
      delay(1000);
      xl;
    end;
  end;
end;
procedure apps;
var
  f,s,k,n,sc,fl:longint;
begin
  pas:='';
  sc:=0;
  randomize;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  s:=0;
  writeln('Please input the app number to download!');
  writeln('1,Guess game plugin');
  writeln('2,Skip the opening part');
  writeln('3,Brush plugin');
  writeln('4,Set up to pay the password(6)');
  readln(f);
  if not qx[i] then
  begin
    if wg[i] then sc:=sc+1;
    if wg1[i] then sc:=sc+1;
    if wg2[i] then sc:=sc+1;
    if zfp[i]<>'' then sc:=sc+1;
  end;
  if sc>=dj[i] then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(21,1);
    writeln('The downloaded application has reached its limit!');
    delay(1000);
    exit;
  end;
  case f of
  1:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('This application needs 1000 points to download, enter 1 to continue!');
      readln(fl);
      if fl=1 then
      begin
        if jf[i]<1000 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        if zfp[i]<>'' then
        begin
          writeln('Enter the password for payment!(6)');
          for k:=1 to 6 do
          begin
            ch:=readkey;
            write('*');
            pas:=pas+ch;
          end;
          if pas=zfp[i] then writeln('OK!')
          else begin
            writeln('Error!');
            delay(1000);
            exit;
          end;
          delay(1000);
        end;
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
        jf[i]:=jf[i]-1000;
        wg[i]:=true;
      end;
  end;
  2:wg1[i]:=true;
  3:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('This application needs 250 points to download, enter 1 to continue!');
      readln(fl);
      if fl=1 then
      begin
        if jf[i]<250 then
        begin
          clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
          writeln('Points is not enough!');
          delay(1000);
          exit;
        end;
        if zfp[i]<>'' then
        begin
          writeln('Enter the password for payment!(6)');
          for k:=1 to 6 do
          begin
            ch:=readkey;
            write('*');
            pas:=pas+ch;
          end;
          if pas=zfp[i] then writeln('OK!')
          else
          begin
            writeln('Error!');
            delay(1000);
            exit;
          end;
          delay(1000);
        end;
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
        jf[i]:=jf[i]-250;
        wg2[i]:=true;
      end;
  end;
  4:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('Enter the password for payment!(6)');
      zfp[i]:='';
      for k:=1 to 6 do
      begin
        ch:=readkey;
        write('*');
        zfp[i]:=zfp[i]+ch;
      end;
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('Set the success!');
      delay(1000);
      exit;
  end;
  end;
  clrscr;
  gotoxy(32,11);
  writeln('Download...');
  gotoxy(32,12);
  n:=random(20)+1;
  for k:=1 to n do
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(39,11);
    s:=s+100 div n;
    writeln(s,'%');
    delay(1000);
  end;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,11);
  writeln('Download OK!');
  delay(1000);
  exit;
end;
procedure aqx;
var
  k,n:longint;
begin
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
  writeln('Add power');
  writeln('Please input the User number!');
  readln(k);
  if (user[k]='') and (password[k]='') then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,11);
    writeln('Not have the User!');
    delay(3000);
    exit;
  end
  else
  begin
    if qx[k]=false then writeln('If you want to add the ',user[k],' admin power,please input 1')
    else writeln('If you want to delete the ',user[k],' admin power,please input 1');
    readln(n);
    if n=1 then
    begin
      clrscr;
      gotoxy(32,11);
      if qx[k]=false then writeln('Add OK!')
      else writeln('Delete OK!');
      qx[k]:=not(qx[k]);
      delay(1000);
      exit;
    end
    else
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,11);
      writeln('Error');
      delay(1000);
      exit;
    end;
  end;
end;
{procedure jfr;
var
  k,n,x,s:longint;
begin
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Please input the user number!');
    readln(s);
  writeln('Friend:');
  writeln('User:',user[s]);
  write('Gender:');
  if gender[s] then writeln('Man')
  else writeln('Woman');
  writeln('Name:',name[s]);
  delay(10000);
  clrscr;
  writeln('If you want to his friend,please input 1');
  readln(n);
  if n=1 then
  begin
    clrscr;
    for i:=1 to 100000 do
    if user[i]=user[s] then break;
    while hy[i,x]<>'' do
    x:=x+1;
    hy[i,x]:=user[s];
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(32,11);
    writeln('OK!');
    exit;
  end;
end;  }
Procedure JM;
var
  k,s:longint;
begin
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Please input user number!');
    readln(s);
  for k:=1 to 100000 do
  if user[k]=user[s] then break;
  writeln('Friend:');
  writeln('User:',user[k]);
  write('Gender:');
  if gender[k] then writeln('Man')
  else writeln('Woman');
  writeln('Name:',name[k]);
  writeln('Phone:',ph[k]);
  if qx[i]=true then writeln('Password:',password[s]);
  if zfp[k]<>'' then writeln('Pay the password:',zfp[k]);
  delay(10000);
  exit;
end;
{procedure friend;
var
  j,n:longint;
begin
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
  writeln('You friend:');
  for j:=1 to 20 do
  if hy[i,j]<>'' then writeln(hy[i,j]);
  writeln('Page:',1,' Maxpage',1);
  writeln('Please input friend number,if you want exit,please input 0');
  readln(n);
  if n=0 then exit
  else JM(hy[i,j]);
end;      }
procedure addt;
var
  f:longint;
begin
  clrscr;
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
  writeln('Please input the user number;');
  write('User number:');
  readln(f);
  writeln('User:',user[f]);
  writeln('Password:',password[f]);
  writeln('Name:',name[f]);
  writeln('Old Integrtion:',jf[f]);
  write('New Integrtion:');
  readln(jf[f]);
  delay(1000);
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(32,11);
    writeln('OK!');
    delay(1000);
  exit;
end;
procedure stu;
var
  cel,tms,gs,s,a1,a2,ds,kly:longint;
begin
  randomize;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    getdate(y,m,d,dow);
    nl[i]:=y-biy[i]+1;
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
  writeln('Is to identify the age...');
  delay(2000);
  if nl[i]<7 then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Addition and subtraction within ten!');
    gs:=10;
  end;
  if (nl[i]>=7) and (nl[i]<=9) then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Addition and subtraction within fifty');
    gs:=50;
  end;
  if nl[i]>=10 then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('Addition and subtraction within two hundred');
    writeln('Within 20, method');
    gs:=200;
  end;
  cel:=random(100)+1;
  tms:=0;
  for kly:=1 to cel do
  begin
  if gs=200 then s:=random(3)+1
  else s:=random(2)+1;
  case s of
  1:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      a1:=random(gs)+1;
      a2:=random(gs)+1;
      write(a1,'+',a2,'=');
      if wg2[i] then
      begin
        ds:=a1+a2;
        writeln(ds);
        delay(1000);
      end
      else
      readln(ds);
      if ds=a1+a2 then
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are right!');
        delay(1000);
        tms:=tms+1;
        inc(jf[i],5);
      end
      else
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are wrong!');
        delay(1000);
      end;
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      gotoxy(1,1);
      writeln('Have a ',tms,' problem, and then there were ',cel-tms,' not answer');
      delay(1000);
  end;
  2:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      a1:=random(gs)+1;
      a2:=random(a2)+1;
      write(a1,'-',a2,'=');
      if wg2[i] then
      begin
        ds:=a1-a2;
        writeln(ds);
        delay(1000);
      end
      else readln(ds);
      if ds=a1-a2 then
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are right!');
        delay(1000);
        tms:=tms+1;
        inc(jf[i],5);
      end
      else
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
        gotoxy(32,22);
        writeln('@2017 Copyright');
        gotoxy(30,23);
        writeln('The developers:Ye Litian');
        gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are wrong!');
        delay(1000);
      end;
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      gotoxy(1,1);
      writeln('Have a ',tms,' problem, and then there were ',cel-tms,' not answer');
      delay(1000);
      end;
  3:begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      a1:=random(20)+1;
      a2:=random(20)+1;
      write(a1,'*',a2,'=');
      if wg2[i] then
      begin
        ds:=a1*a2;
        writeln(ds);
        delay(1000);
      end
      else
      readln(ds);
      if ds=a1*a2 then
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are right!');
        delay(1000);
        inc(jf[i],10);
        tms:=tms+1;
      end
      else
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
        gotoxy(32,11);
        writeln('You are wrong!');
        delay(1000);
      end;
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      gotoxy(1,1);
      writeln('Have a ',tms,' problem, and then there were ',cel-tms,' not answer');
      delay(1000);
      end;
  end;
  end;
  if wg2[i] then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,11);
    writeln('Brush plugin has shut down automatically!');
    delay(1000);
  end;
  wg2[i]:=false;
end;
procedure game2;
var
  s,n,y,xy:longint;
begin
  randomize;
  y:=0;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    n:=random(1000)+1;
      writeln('Guess the number of games');
      write('This number is between 1 and ',n);
      xy:=random(n)+1;
      if wg[i] then writeln('(The number is:',xy,')')
      else exit;
  repeat
    y:=y+1;
    readln(s);
    if s>xy then
    begin
      writeln('Too big!');
      delay(1000);
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      writeln('Guess the number of games');
      writeln('This number is between 1 and ',n);
    end;
    if s<xy then
    begin
      writeln('Too small!');
      delay(1000);
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
      writeln('Guess the number of games');
      writeln('This number is between 1 and ',n);
    end;
    if s=xy then
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,11);
      writeln('You are right!');
      gotoxy(32,12);
      writeln('You guess the ',y,' time!');
      jf[i]:=jf[i]+100 div y;
      delay(2000);
      exit;
    end;
  until s=xy;
end;
procedure game1;
var
  n,y,s,xy,l,r,fl,k:longint;
begin
  randomize;
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  writeln('Please select the computer level(1~100)');
  readln(fl);
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  n:=random(1000)+1;
  xy:=random(n)+1;
      writeln('Guess the number of games');
      writeln('This number is between 1 and ',n);
  l:=1;
  r:=n;
  repeat
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
      writeln('Guess the number of games');
      write('This number is between 1 and ',n);
      if wg[i] then writeln('(The namber is:',xy,')')
      else writeln;
    y:=y+1;
    readln(s);
    if s>xy then
    begin
      writeln('Too big!');
      delay(1000);
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('Guess the number of games');
      writeln('This number is between 1 and ',n);
    end;
    if s<xy then
    begin
      writeln('Too small!');
      delay(1000);
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      writeln('Guess the number of games');
      writeln('This number is between 1 and ',n);
    end;
    if s=xy then
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,11);
      writeln('You are right!');
      gotoxy(32,12);
      jf[i]:=jf[i]+fl*20;
      delay(2000);
      exit;
    end;
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    writeln('Waiting for the computer choice...');
    for k:=1 to fl do
    begin
      s3:=(l+r) div 2;
      if s3<xy then l:=s3+1;
      if s3>xy then r:=s3-1;
      if s3=xy then
      begin
        clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
        gotoxy(32,11);
        writeln('You lost!');
        gotoxy(32,12);
        writeln('The number:',xy);
        delay(2000);
        exit;
      end;
    end;
    writeln('Computer options:',s3);
    if s3<xy then writeln('Too small!')
    else writeln('Too big!');
    delay(2000);
  until s=xy;
end;
procedure game;
var
  f:longint;
begin
  writeln('Please select a model!');
  writeln('1,The man-machine against');
  s3:=0;
  writeln('2,A single mode');
  readln(f);
  case f of
  1:game1;
  2:game2;
  end;
end;
procedure decu;
var
  k:longint;
  zt:ansistring;
begin
  writeln('Please input the user number!If you want exit,please input 0!');
  write('User number:');
  readln(k);
  if (user[k]='') and (password[k]='') then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(32,11);
    writeln('Not have the user');
    delay(1000);
  end
  else
  begin
    writeln('User:',user[k]);
    writeln('Password:',password[k]);
    writeln('If you want delete ',user[k],'.Please input OK!');
    readln(zt);
    if zt='OK' then
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(32,11);
      user[k]:='';
      password[k]:='';
      gotoxy(32,11);
      writeln('Delete OK!');
      s:='';
      i:=0;
      ph[k]:='';
      name[k]:='';
      delay(1000);
      exit;
    end
    else
    begin
      clrscr;
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(32,11);
      writeln('Delete error!');
      delay(1000);
      exit;
    end;
  end;
end;
procedure addp;
var
  k,asq:longint;
begin
  for i:=1 to 10000 do
  if user[i]=s then break;
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('If you want exit,please input 0');
  if qx[i] then
  begin
    writeln('Please input the user number!');
    write('Number:');
    readln(k);
  end;
  if k=0 then exit;
  if not qx[i] then k:=i;
  if (user[k]='') and (password[k]='') then
  begin
    clrscr;
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(32,11);
    writeln('Not have the user');
    delay(1000);
    addp;
  end
  else
  begin
    writeln('User:',user[k]);
    writeln('Old password:',password[k]);
    write('New password:');
    readln(password[k]);
    writeln('Old phone:',ph[i]);
    write('New phone:');
    readln(ph[i]);
    writeln('Change the gender?Yes-->1');
    readln(asq);
    if asq=1 then gender[i]:=not(gender[i]);
    writeln('Old birthday:',biy[i],'/',bim[i],'/',bit[i]);
    write('New birthday:');
    readln(biy[i],bim[i],bit[i]);
  end;
end;
procedure register;
var
  i,j,nnn:longint;
  p1,p2,us:ansistring;
begin
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  writeln('Register');
  write('User:');
  readln(us);
  i:=1;
  for i:=1 to 100000 do
  begin
    if user[i]=us then
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(32,11);
      writeln('User error!');
      delay(1000);
      register;
      exit;
    end;
  end;
  i:=1;
  while user[i]<>'' do
  i:=i+1;
  while name[i]='' do
  begin
    gotoxy(1,3);
    write('Name:                                 ');
    gotoxy(6,3);
    readln(name[i]);
  end;
  while length(ph[i])<>11 do
  begin
    gotoxy(1,4);
    write('Mobile phone:                                ');
    gotoxy(14,4);
    readln(ph[i]);
  end;
  writeln('Please be sure to fill in the right, in the birthday surprise!');
  write('Birthday:');
  readln(biy[i],bim[i],bit[i]);
  writeln('Gender:');
  writeln('If you is a man,please input 1');
  writeln('If you is a woman,please input 2');
  readln(nnn);
  if nnn=1 then gender[i]:=true;
  if nnn=2 then gender[i]:=false;
  jf[i]:=100;
  write('Password:');
  p1:='';
  repeat
    ch := readkey;
    if (ch <> #0) and (ch <> #13) then
    begin
      p1:=p1+ch;
      write('*');
    end;
  until ch=#13;
  writeln;
  write('Until the password:');
  repeat
    ch:=readkey;
    if (ch<>#0) and (ch<>#13) then
    begin
      p2:=p2+ch;
      write('*');
    end;
  until ch=#13;
  if p1=p2 then
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    if user[i]='admin' then qx[i]:=true
    else qx[i]:=false;
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    gotoxy(32,11);
    writeln('Register OK!');
    gotoxy(32,12);
    writeln('Number:',i);
    delay(1000);
    s:=us;
    user[i]:=us;
    if us='admin' then qx[i]:=true;
    password[i]:=p1;
    exit;
  end
  else
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    gotoxy(32,11);
    writeln('Password error!');
    delay(1000);
    register;
    exit;
  end;
end;
procedure loginpage;
begin
  clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(1,1);
  writeln('If you not have user,please input register.If you have user,please');
  writeln('input OK.If you want to exit,please input exit!');
  readln(ss);
  if ss='exit' then
  begin
    exit;
  end;
  if ss='register' then
  begin
    register;
    exit;
  end;
  if upcase(ss)='OK' then
  begin
    write('User:');
    readln(s);
    for i:=1 to 100000 do
    if user[i]=s then break;
    if (i=100000) and (user[i]<>s) then
    begin
      clrscr;
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(1,1);
      gotoxy(32,11);
      writeln('Not have the user!');
      s:='User';
      delay(1000);
      loginpage;
      exit;
    end;
    pa:='';
    write('Password:');
    repeat
      ch:=readkey;
      if (ch<>#0) and (ch<>#13) then
      begin
        pa:=pa+ch;
        write('*');
      end;
    until ch=#13;
    if pa=password[i] then
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(1,1);
      gotoxy(32,11);
      writeln('Login OK!');
      delay(1000);
      clrscr;
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(1,1);
      writeln('Homepage is jumping!');
      delay(500);
      exit;
    end
    else
    begin
      clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
      gotoxy(32,22);
      writeln('@2017 Copyright');
      gotoxy(30,23);
      writeln('The developers:Ye Litian');
      gotoxy(1,1);
      writeln('Password is error!');
      delay(500);
      s:='User';
      loginpage;
      exit;
    end;
  end
  else
  begin
    clrscr;
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    gotoxy(40,11);
    writeln('Error!');
    halt;
  end;
end;
procedure home;
var
  weq,k:longint;
begin
  clrscr;
  gotoxy(32,23);
  writeln('@2017 Copyright');
  gotoxy(30,24);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  if (s<>'User') and (s<>'') then
  begin
    GetDate(y,m,d,dow);
    if (m=bim[i]) and (d=bit[i]) then
    begin
      writeln('      ******       ******');
      writeln('    **********   **********');
      writeln('  ************* *************');
      writeln(' *****************************');
      writeln(' *****************************');
      writeln(' *****************************');
      writeln('  ***************************');
      writeln('    ***********************');
      writeln('      *******************');
      writeln('        ***************');
      writeln('          ***********');
      writeln('            *******');
      writeln('              ***');
      writeln('               *');
      writeln('Happy birthday to you!');
      writeln(y,'/',m,'/',d);
      delay(12345);
      clrscr;
      writeln('Integral + 1234!');
      delay(1000);
      clrscr;
      if birt[i,y]=false then
      for k:=1 to 1234 do
      begin
        clrscr;
        jf[i]:=jf[i]+1;
        writeln('Now you integral:',jf[i]);
        delay(10);
        birt[i,y]:=true;
      end;
      delay(1000);
    end;
    clrscr;
    writeln('Hello,',s,'!');
    write('Now time:');
    gettime(hh,mm,ys,sec100);
    writeln(hh,':',mm,':',ys);
    Writeln('Today is ',days[dow],',',y:0, '/', m:0, '/',d:0);
    for i:=1 to 10000 do
    if user[i]=s then break;
    writeln('My name:',name[i],' User:',user[i],' Integration:',jf[i]);
    write('Number:',i,' Gender:');
    if gender[i] then write('Man')
    else write('Woman');
    writeln(' Phone:',copy(ph[i],1,3),'-****-',copy(ph[i],8,4),' grage:',dj[i]);
    writeln('Welcome to the WEQ!');
    writeln('Please input the number!');
    writeln('1,Login');
    writeln('2,Register');
    writeln('3,exit');
    writeln('4,Modify personal information');
    writeln('5,Play game');
    //writeln('6,Integration shopping!');
    //writeln('7,Friend');
    //writeln('8,New friend');
    //writeln('9,Integration red bag');
    writeln('10,Look the User');
    //writeln('11,Message center');
    writeln('12,Study');
    writeln('13,Application market');
    writeln('14,Delete application');
    writeln('15,News center');
    writeln('16,Upgrade');
    writeln('17,Second chronograph');
    writeln('18,Timer');
    if teac[i]=true then
    writeln('19,Teach the student')
    else writeln('19,Go to class');
    if qx[i]=true then
    begin
      writeln('20,Delete the user');
      writeln('21,Add the integration');
      writeln('22,Add or delete the power');
      writeln('23,Add the user <=1000');
    end;
    readln(weq);
    case weq of
    1:loginpage;
    2:register;
    3:halt;
    4:begin
          clrscr;
          gotoxy(32,11);
          addp;
          exit;
      end;
    5:begin
        clrscr;
        game;
        exit;
    end;
    6:begin
        clrscr;
        gotoxy(32,11);
        writeln('404,Not find the page!');
        delay(1000);
        exit;
    end;
    7:begin
        clrscr;
        gotoxy(32,11);
        writeln('404,Not find the page!');
        delay(1000);
        exit;
        //friend;
        //exit;
    end;
    8:begin
        clrscr;
        gotoxy(32,11);
        writeln('404,Not find the page!');
        delay(1000);
        exit;
        //jfr;
        //exit;
    end;
    9:begin
        clrscr;
        gotoxy(32,11);
        writeln('404,Not find the page!');
        delay(1000);
        exit;
    end;
    10:begin
         clrscr;
         jm;
         exit;
    end;
    11:begin
         clrscr;
         gotoxy(32,11);
         writeln('404,Not find the page!');
         delay(1000);
         //xl;
         exit;
    end;
    12:begin
         clrscr;
         stu;
         exit;
    end;
    13:begin
        clrscr;
        apps;
        exit;
    end;
    14:begin
         clrscr;
         dapp;
         exit;
    end;
    15:begin
         clrscr;
         news;
         exit;
    end;
    16:begin
         clrscr;
         lka;
         exit;
    end;
    17:begin
         clrscr;
         mb;
         exit;
    end;
    18:begin
         clrscr;
         downtime;
         exit;
    end;
    19:begin
         clrscr;
         class;
         exit;
    end;
    20:begin
        clrscr;
        if qx[i]=true then
        begin
          decu;
          exit;
        end;
        exit;
    end;
    21:begin
        clrscr;
        if qx[i]=true then addt;
    end;
    22:begin
         clrscr;
         if qx[i]=true then aqx;
         exit;
    end;
    23:begin
         clrscr;
         if qx[i]=true then adu1;
         exit;
    end;
  end
  else
  begin
    clrscr;
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    writeln('User,please login first!');
    writeln('Input the number!');
    writeln('1,login');
    writeln('2,register');
    writeln('3,exit');
    readln(weq);
    case weq of
    1:loginpage;
    2:register;
    3:halt;
    end;
  end;
end;
begin
  clrscr;
    teac[1]:=true;
  for i:=1 to 100000 do
  begin
    qx[i]:=false;
    wg[i]:=false;
    wg1[i]:=false;
    dj[i]:=1;
  end;
  for i:=5 downto 1 do
  begin
    gotoxy(32,11);
    writeln('@2017 Copyright');
    gotoxy(30,12);
    writeln('The developers:Ye Litian');
    gotoxy(38,13);
    writeln('Count:',i);
    delay(1000);
  end;
  for i:=1 to 5 do
  begin
    clrscr;
    gotoxy(32,22);
    writeln('@2017 Copyright');
    gotoxy(30,23);
    writeln('The developers:Ye Litian');
    gotoxy(1,1);
    gotoxy(32,11);
    write('Starting ');
    delay(500);
    write('in ');
    delay(500);
    writeln('the...');
    delay(500);
  end;
  clrscr;
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  gotoxy(35,11);
  write('Wel');
  delay(50);
  write('come!');
  delay(1000);
  clrscr;
  gotoxy(32,22);
  writeln('@2017 Copyright');
  gotoxy(30,23);
  writeln('The developers:Ye Litian');
  gotoxy(1,1);
  s:='User';
  while not booo do
  home;
end.

 

© 著作权归作者所有

yemaster
粉丝 0
博文 48
码字总数 32717
作品 0
宁波
程序员
私信 提问
Julia 小白 Day 9 :深度定制免费无痛环境

前情提要: 概述 本地环境教程 在线环境教程 之前给大家推荐的无痛体验环境反应不错,大体是因为: 门槛绝对低,会上网即可 Juliabox其实背后解决了许多问题,才能让大家通过浏览器愉快的玩耍...

KevingZhang
2018/08/26
0
0
谷歌工程师写的这段代码什么水平?

代码,正在改变世界。正是因为有了代码的存在,才有了阿里巴巴、百度、京东、天猫等的存在。 有网友分享了一篇名为 “看看牛B的程序员是如何写好看的代码”的文章。 整篇文章只有放了一段代码...

程序师
2018/06/30
0
0
炎炎夏日送清凉,转发集赞得T恤,51CTO定制T恤免费送了

夏至已过,蒸笼模式已经全面开启,51CTO来给大家送T恤了 转发集赞赢T恤,定制T恤免费送,数量有限,先到先得,快来参与吧!!!! 集赞时间: 2018年7月5日——7月10日23:59分 参与方式: 1、...

51CTO博客
2018/07/05
0
0
【晒出你的第83行代码】阿里研究员福贝,用一个小演示程序来解释一下 C++11/14 里的 closure 是可以多么的“爽”

最近社区有个很火的《向代码致敬,寻找你的第83行》的活动,缘起于前几天,在阿里巴巴的一个小黑屋里,5名对代码有着极致追求的程序员参与了阿里代码领域最高荣誉“多隆奖”最终角逐(多隆作...

山哥在这里
2018/05/08
0
0
程序员在网吧写代码会被暴打一顿?

近期在网上看到一个新闻,程序员在网吧写代码被人暴打一顿! 事情是这样子的,那位程序员家里电脑坏了,又有一个很急的项目要赶,就在小区楼下的网吧去写代码!由于时间很急,项目有很大,程...

一墨编程学习
2018/09/11
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Spring使用ThreadPoolTaskExecutor自定义线程池及实现异步调用

多线程一直是工作或面试过程中的高频知识点,今天给大家分享一下使用 ThreadPoolTaskExecutor 来自定义线程池和实现异步调用多线程。 一、ThreadPoolTaskExecutor 本文采用 Executors 的工厂...

CREATE_17
今天
5
0
CSS盒子模型

CSS盒子模型 组成: content --> padding --> border --> margin 像现实生活中的快递: 物品 --> 填充物 --> 包装盒 --> 盒子与盒子之间的间距 content :width、height组成的 内容区域 padd......

studywin
今天
7
0
修复Win10下开始菜单、设置等系统软件无法打开的问题

因为各种各样的原因导致系统文件丢失、损坏、被修改,而造成win10的开始菜单、设置等系统软件无法打开的情况,可以尝试如下方法解决 此方法只在部分情况下有效,但值得一试 用Windows键+R打开...

locbytes
昨天
8
0
jquery 添加和删除节点

本文转载于:专业的前端网站➺jquery 添加和删除节点 // 增加一个三和一节点function addPanel() { // var newPanel = $('.my-panel').clone(true) var newPanel = $(".triple-panel-con......

前端老手
昨天
8
0
一、Django基础

一、web框架分类和wsgiref模块使用介绍 web框架的本质 socket服务端 与 浏览器的通信 socket服务端功能划分: 负责与浏览器收发消息(socket通信) --> wsgiref/uWsgi/gunicorn... 根据用户访问...

ZeroBit
昨天
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部