文档章节

Pascal:代码200行

yemaster
 yemaster
发布于 2017/01/19 18:36
字数 690
阅读 20
收藏 0

2017-01-19主要更新:更新游戏错误,修复注册不能运行问题

注意:如果在FPC调试的时候,在主页(见图一)输入register会201错误的话,请在主页先键入login,再在user:(见图二)的地方输入register!

(图片一)  

 

(图片二)

差不多两百行,拥有注册,登录,无聊的游戏。会一直更新,希望大家多多指教!

系统2.1.1
uses crt;
var
  a,b:array[1..1000] of string;
  x,y,us,l,k,cha,s:string;
  i,aq,j,t,ss:longint;
  yy,kk,ll:array[0..10000] of char;

procedure Build_the_website;
begin
  clrscr;
  writeln('Sorry,build the website page not found!');
  writeln('Please Enter to exit!');
  readln;
  exit;
end;
procedure Game;
begin
  clrscr;
  writeln('Eat water game!Input Q-R-Q-R-Q......!(A line of a!)');
  aq:=50;
  i:=1;
  t:=55;
    for t:=55 downto 1 do
    begin
      readln(cha[t]);
      upcase(cha[t]);
      if (cha[t]='Q') and (cha[t-1]='R') or (cha[t]='R') and (cha[t-1]='Q') then aq:=aq-1;
      if aq=0 then
      begin
        writeln('Win!');

        readln;

        exit;
      end;
    end;
  writeln('Sorry,you loost!');

  readln;
  exit;
end;
procedure Artificial_intelligence_ai;
begin
  clrscr;
  writeln('Because we are in the experiment, so can only answer the question');
  writeln('Input the question namber,if you input 110 then go to the home p');
  writeln('age,if you input 120 then exit');
  writeln('Not have question!');
  readln(aq);
  case aq of
  110:exit;
  120:halt
  else writeln('Error!');
  end;
  exit;
end;
procedure match;
begin
  clrscr;
  writeln('You want to choose which project?(Input the number)');
  writeln('1,Shopping/error');
  writeln('2,Build the website/error');
  writeln('3,Game');
  writeln('4,Artificial intelligence ai');
  writeln('5,Exit');
  readln(aq);
  case aq of
  3:begin
    Game;
    exit;
  end;
  4:begin
    Artificial_intelligence_ai;
    exit;
  end;
  5:exit;
  else
  begin
    writeln('Error!Please input the 120 then halt else exit');
    readln(y);
    if y='120' then halt;
    exit;
  end;
  end;
end;
procedure login;
begin
  i:=1;
  while x<>a[i] do
  begin
    if i=1 then clrscr;
    gotoxy(1,2);
    writeln('Login');
    writeln('If you not have WEQ user.Please input register!');
    gotoxy(1,4);
    write('User:     ');
      readln(x);
      if x='' then login;
      if x='register' then exit;
    for i:=1 to 1000 do
    if x=a[i] then break;
    if (i=1000) and (x<>a[1000]) then
    begin
      clrscr;
      writeln('Not have the User!');
    end;
  end;
  j:=0;
  while y<>b[i] do
  begin
    write('Password(A line of a):');
    readln(y);
    if y='' then login;
    if y<>b[i] then
    begin
      clrscr;
      writeln('Password error!');
      clrscr;
      writeln('Is the jump to the homepage!......');
      exit;
    end;
  end;
  writeln('Login win!');
  clrscr;
  gotoxy(1,1);
  writeln('Enter to game!');
  match;
end;


procedure register;
begin
  clrscr;
  us:='';
  a[i]:='';
  while us=a[i] do
  begin
    ss:=ss+1;
    clrscr;
    if ss=1 then writeln
    else writeln('User alrerdy exists!');
    writeln('register');
    write('User:   ');
    readln(us);
    if us='' then register;
    for i:=1 to 1000 do
    if a[i]=us then register;
  end;
  a[i]:=us;
  i:=1;
  while a[i]<>'' do
  i:=i+1;
  a[i]:=us;
  k:=' ';
  begin
    while k<>l do
    begin
      write('Password(A line of a):');
      readln(k);
      if k='exit' then exit;
      write('Until pa(A line of a):');
      j:=0;
      readln(l);
      if k=l then break;
      clrscr;
    writeln('Passwords do not match!');
    writeln('User:    ',us);
  end;
  b[i]:=k;
  writeln('Now,let us login!Press input ok');
  readln(l);
  x:=us;
  y:=k;
  login;
  end;
end;
begin
  a[1]:='admin';
  b[1]:='admin';
  clrscr;
  while x<>'exit' do
  begin
    clrscr;
    writeln('Welcome!If input login then go to the Login page.If input register then go to the register page(If input exit then exit)');
    gotoxy(1,3);
    readln(x);
    lowercase(x);
    if x='login' then login;
    if x='register' then register;
    if x='exit' then halt;
  end;
end.

© 著作权归作者所有

下一篇: Pascal题解
yemaster
粉丝 0
博文 48
码字总数 32717
作品 0
宁波
程序员
私信 提问
集成开发环境--Delphi

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

匿名
2009/03/11
23.7K
1
Delphi的网友评论

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

红薯
2009/12/11
576
7
Pascal三角形

作者:bakari 时间:2012.8.4 Pascal三角形又称杨辉三角形,是多项式系数的一种规律展示,最早是由我国数学家杨辉发现,比Pascal早200多年。 下面简单地总结一些其算法。 一、数组计算法: ...

chambai
2012/08/04
0
0
C#命名规范中文版/C#编码规范中文版

最新文档地址https://github.com/hiramtan/CSharpNamingGuidelines_Chinese 编码规范中文版 示例 ----- 参考资料 微软官方老版本:https://msdn.microsoft.com/en-us/library/ms229043(v=vs.1......

海贝Hibey
2018/07/17
260
0
LeetCode:Pascal's Triangle II - 帕斯卡三角形2

1、题目名称 Pascal's Triangle II(帕斯卡三角形2) 2、题目地址 https://leetcode.com/problems/pascals-triangle-ii/ 3、题目内容 英文:Given an index k, return the kth row of the P......

北风其凉
2015/08/15
195
0

没有更多内容

加载失败,请刷新页面

加载更多

java通过ServerSocket与Socket实现通信

首先说一下ServerSocket与Socket. 1.ServerSocket ServerSocket是用来监听客户端Socket连接的类,如果没有连接会一直处于等待状态. ServetSocket有三个构造方法: (1) ServerSocket(int port);...

Blueeeeeee
今天
6
0
用 Sphinx 搭建博客时,如何自定义插件?

之前有不少同学看过我的个人博客(http://python-online.cn),也根据我写的教程完成了自己个人站点的搭建。 点此:使用 Python 30分钟 教你快速搭建一个博客 为防有的同学不清楚 Sphinx ,这...

王炳明
昨天
5
0
黑客之道-40本书籍助你快速入门黑客技术免费下载

场景 黑客是一个中文词语,皆源自英文hacker,随着灰鸽子的出现,灰鸽子成为了很多假借黑客名义控制他人电脑的黑客技术,于是出现了“骇客”与"黑客"分家。2012年电影频道节目中心出品的电影...

badaoliumang
昨天
16
0
很遗憾,没有一篇文章能讲清楚线程的生命周期!

(手机横屏看源码更方便) 注:java源码分析部分如无特殊说明均基于 java8 版本。 简介 大家都知道线程是有生命周期,但是彤哥可以认真负责地告诉你网上几乎没有一篇文章讲得是完全正确的。 ...

彤哥读源码
昨天
18
0
jquery--DOM操作基础

本文转载于:专业的前端网站➭jquery--DOM操作基础 元素的访问 元素属性操作 获取:attr(name);$("#my").attr("src"); 设置:attr(name,value);$("#myImg").attr("src","images/1.jpg"); ......

前端老手
昨天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部