pascal境界~~

#世界杯风云2.6.4
谁还敢说pascal垃圾哒！！

varans,exp,expe,exp1,exp2,exp3,n,i,money,dengji,n2,kk,a,b,c,zs,rp,zdl,j,n3,n4,n5,n6,time,t1,f1:longint;duiming,n1,duiming1,duiming2,duiming3,duiming4,shangdian1,shangdian2,s1,duizhangming:string;qiuyuan:array[1..10]of string=('巴雷西,前锋+123','齐拉维特,门将+98','法切蒂,后卫+107','罗·巴乔,前锋+143','桑切斯,前锋+152','黄博文,中场+173','埃尔格拉,后卫+142','克洛尔,后卫+123','卡恩,门将+109','梅耶尔,门将+145');zhandouli:array[1..10]of longint=(123,98,107,143,152,173,142,123,109,145);ren:array[1..8]of string=('陈','胡','邹','郑','王','冯','冯','刘');ren22:array[1..8]of string=('铎','海','俊','海','俊','兴','兴','皓');ren33:array[1..8]of string=('友','涛','豪','俊','凯','和','祥','轩');jinqiu:array[1..3]of string=('在禁区外抬起一脚世界波，球进了！','冲到禁区内，把守门员引开，球进了！','与中锋配合，球进了！');jinmeiqiu:array[1..3]of string=('在禁区外抬起一脚世界波，被对方后卫顶出！','冲到禁区内，把守门员引开，被对方守门员救回！','与中锋配合，打偏了！');jinmeiqiu2:array[1..3]of string=('在禁区外抬起一脚世界波，被我方后卫顶出！','冲到禁区内，把守门员引开，被我方守门员救回','与中锋配合，打偏了！');dz:array[1..7]of string=('贝利','马拉多纳','贝肯鲍尔','齐达内','法切蒂','桑切斯','克林斯曼');bz,bz1:boolean;ren1,ren2,ren3,t,cc,dd,bb,ee:longint;
procedure bisai(a,b,n:longint);
vara1,b1,a2,b2:longint;
beginee:=random(7);while ee=0 dobeginee:=random(7);end;if n=1 thenbeginwriteln(duiming,' VS ','德国队');end;if n=2 thenbeginwriteln(duiming,' VS ','阿根廷队');end;if n=3 thenbeginwriteln(duiming,' VS ','韩国队');end;if n=4 thenbeginwriteln(duiming,' VS ','阿尔及利亚队');end;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;writeln('我方队长：',duizhangming);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;writeln('对方队长：',dz[ee]);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;writeln('随着主裁判的一声哨响，比赛开始了！');for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;writeln('0:00');for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;t1:=0;f1:=0;a1:=a;b1:=b;a2:=0;b2:=0;while t1<45 dobeginrandomize;cc:=random(500);inc(f1,cc);if f1>=60 thenbeginrepeatf1:=f1-60;t1:=t1+1;until f1<60;end;if t1>45 then break;if f1 div 10=0 then writeln(t1,':0',f1) else writeln(t1,':',f1);if (a1>0) thenbeginbb:=0;while bb=0 do bb:=random(3);writeln(duizhangming,jinqiu[bb]);dec(a1);inc(a2);endelsebeginbb:=0;while bb=0 do bb:=random(3);writeln(duizhangming,jinmeiqiu[bb]);end;writeln('当前比分：',a2,':',b2);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;randomize;cc:=random(500);inc(f1,cc);if f1>=60 thenbeginrepeatf1:=f1-60;t1:=t1+1;until f1<60;end;if t1>45 then break;if f1 div 10=0 then writeln(t1,':0',f1) else writeln(t1,':',f1);if (b1>0) thenbeginbb:=0;while bb=0 do bb:=random(3);writeln(dz[ee],jinqiu[bb]);dec(b1);inc(b2);endelsebeginbb:=0;while bb=0 do bb:=random(3);writeln(dz[ee],jinmeiqiu2[bb]);end;writeln('当前比分：',a2,':',b2);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;end;writeln('上半场结束');for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;writeln('下半场开始');for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;while t1<90 dobeginrandomize;cc:=random(500);inc(f1,cc);if f1>=60 thenbeginrepeatf1:=f1-60;t1:=t1+1;until f1<60;end;if t1>90 then break;if f1 div 10=0 then writeln(t1,':0',f1) else writeln(t1,':',f1);if (a1>0) thenbeginbb:=0;while bb=0 do bb:=random(3);writeln(duizhangming,jinqiu[bb]);dec(a1);inc(a2);endelsebeginbb:=0;while bb=0 do bb:=random(3);writeln(duizhangming,jinmeiqiu[bb]);end;writeln('当前比分：',a2,':',b2);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;randomize;cc:=random(500);inc(f1,cc);if f1>=60 thenbeginrepeatf1:=f1-60;t1:=t1+1;until f1<60;end;if t1>90 then break;if f1 div 10=0 then writeln(t1,':0',f1) else writeln(t1,':',f1);if (b1>0) thenbeginbb:=0;while bb=0 do bb:=random(3);writeln(dz[ee],jinqiu[bb]);dec(b1);inc(b2);endelsebeginbb:=0;while bb=0 do bb:=random(3);writeln(dz[ee],jinmeiqiu2[bb]);end;writeln('当前比分：',a2,':',b2);for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;for i:=1 to 200000000 doinc(kk);kk:=0;end;writeln('最后比分为',a,':',b);
end;
procedure chengxu;
beginwriteln('1.征途');writeln('2.商店');writeln('3.青训营');writeln('4.战队资料');writeln('5.版本');readln(n);if n=1 thenbeginfor j:=1 to length(duiming1) dobeginwrite(duiming1[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;for j:=1 to length(duiming2) dobeginwrite(duiming2[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;for j:=1 to length(duiming3) dobeginwrite(duiming3[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;for j:=1 to length(duiming4) dobeginwrite(duiming4[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;n2:=1;end;if n=2 thenbeginn2:=2;for j:=1 to length(shangdian1) dobeginwrite(shangdian1[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;for j:=1 to length(shangdian2) dobeginwrite(shangdian2[j]);for i:=1 to 20000000 doinc(kk);kk:=0;end;writeln;end;if n=3 thenbeginif time=0 thenbeginwriteln('1.发出球探  200万元');writeln('2.离开');end;n2:=3;end;if n=4 thenbeginwriteln('********************************************************************************');writeln('战队名称:',duiming,'             金币:',money,'万元');writeln('等级:',dengji,'                 钻石:',zs);writeln(exp,'/',expe,'                 人品:',rp,'%');writeln('还差',expe-exp,'经验就可升级!  战斗力:',zdl);writeln('队长:',duizhangming);writeln('********************************************************************************');writeln(' s:改名        e:退出       ss:改队长名');repeatreadln(n1);if n1='s' thenbeginwriteln('输入后，换行，按e结束!');readln(duiming);end;if n1='ss' thenbeginwriteln('输入后，换行，按e结束!');readln(duizhangming);end;until  n1='e';chengxu;end;if n=5 thenbeginwriteln('当前版本:ch42mskdk24世界杯风云2.6.4.3');chengxu;end;if (n2=1) thenbeginreadln(n);if (n>=1)and(n<=4) thenbeginrandomize;b:=random(10);str(zdl,s1);c:=(length(s1)-1)*5;a:=random(c);if b>a thenbeginbisai(a,b,n);writeln(a,':',b);writeln('败北!');writeln('经验:',exp,'/',expe);end;if a>b thenbeginbisai(a,b,n);writeln(a,':',b);writeln('胜利!');inc(exp,(a-b)*232);if exp>=expe thenbeginc:=dengji;dengji:=dengji+(exp div expe);exp:=exp-expe*(exp div expe);writeln('升级!');write(c);for i:=1 to 80000000 doinc(kk);kk:=0;write('=>');for i:=1 to 80000000 doinc(kk);kk:=0;writeln(dengji);inc(money,2103);inc(rp,2*(dengji-c));inc(expe,exp div expe*100);inc(zdl,88);writeln('战斗力=>=> +88');end;inc(money,(a-b)*213);if a-b>=5 thenbegininc(zs,10);writeln('你得到了十颗钻石!');end;if a-b>=10 thenbegininc(zs,100);writeln('你得到了一百颗钻石!');end;writeln('经验',exp,'/',expe);end;if a=b thenbeginbisai(a,b,n);writeln(a,':',b);writeln('平局');inc(exp,142);writeln('经验',exp,'/',expe);end;endelsebeginwriteln('没有这个选项！');end;end;if n2=2 thenbeginreadln(n3);if n3=1 thenbeginwriteln('欢迎你来到商店！');writeln('1.前锋');writeln('2.中场');writeln('3.后卫');writeln('4.门将');readln(n4);if n4=1 thenbeginwriteln('1.梅西+346    253钻石');writeln('2.内马尔+347    253钻石');writeln('3.郜林+253    12534万元');readln(n5);if (n5=1)and(zs>=253) thenbegininc(zdl,346);dec(zs,253);writeln('战斗力=>=>+346');endelseif (n5=1)and(zs<253) then writeln('你不够钻石!');if (n5=2)and(zs>=253) thenbegininc(zdl,347);dec(zs,253);writeln('战斗力=>=>+347');endelseif (n5=2)and(zs<253) then writeln('你不够钻石!');if (n5=3)and(money>=12534) thenbegininc(zdl,253);dec(money,12534);writeln('战斗力=>=>+253');endelseif (n5=3)and(money<12534) then writeln('你不够钱!');end;if n4=2 thenbeginwriteln('1.阿兰希勒+346    253钻石');writeln('2.维埃里+347    253钻石');writeln('3.黄博文+245    12537万元');readln(n5);if (n5=1)and(zs>=253) thenbegininc(zdl,346);dec(zs,253);writeln('战斗力=>=>+346');endelseif (n5=1)and(zs<253) then writeln('你不够钻石!');if (n5=2)and(zs>=253) thenbegininc(zdl,347);dec(zs,253);writeln('战斗力=>=>+347');endelseif (n5=2)and(zs<253) then writeln('你不够钻石!');if (n5=3)and(money>=12537) thenbegininc(zdl,245);dec(money,12537);writeln('战斗力=>=>+245');endelseif (n5=3)and(money<12537) then writeln('你不够钱!');end;if n4=3 thenbeginwriteln('1.埃尔格拉+346    253钻石');writeln('2.克洛尔+347    253钻石');writeln('3.李学鹏+245    12537万元');readln(n5);if (n5=1)and(zs>=253) thenbegininc(zdl,346);dec(zs,253);writeln('战斗力=>=>+346');endelseif (n5=1)and(zs<253) then writeln('你不够钻石!');if (n5=2)and(zs>=253) thenbegininc(zdl,347);dec(zs,253);writeln('战斗力=>=>+347');endelseif (n5=2)and(zs<253) then writeln('你不够钻石!');if (n5=3)and(money>=12537) thenbegininc(zdl,245);dec(money,12537);writeln('战斗力=>=>+245');endelseif (n5=3)and(money<12537) then writeln('你不够钱!');end;if n4=4 thenbeginwriteln('1.齐拉维特+346    253钻石');writeln('2.卡恩+347    253钻石');writeln('3.曾诚+245    12537万元');readln(n5);if (n5=1)and(zs>=253) thenbegininc(zdl,346);dec(zs,253);writeln('战斗力=>=>+346');endelseif (n5=1)and(zs<253) then writeln('你不够钻石!');if (n5=2)and(zs>=253) thenbegininc(zdl,347);dec(zs,253);writeln('战斗力=>=>+347');endelseif (n5=2)and(zs<253) then writeln('你不够钻石!');if (n5=3)and(money>=12537) thenbegininc(zdl,245);dec(money,12537);writeln('战斗力=>=>+245');endelseif (n5=3)and(money<12537) then writeln('你不够钱!');end;end;if n3=2 thenbeginwriteln('1.抽一次300钻石');writeln('2.抽十次2800钻石');if bz=false thenbeginwriteln('3.本次免费!');bz:=true;end;readln(n4);if (n4=1)and(zs>=300) thenbeginrandomize;c:=random(10);while c=0 dobeginrandomize;c:=random(10);end;writeln(qiuyuan[c]);inc(zdl,zhandouli[c]);dec(zs,300);writeln('战斗力=>=>+',zhandouli[c]);endelseif (zs<300)and(n4=1) then writeln('你不够钻石!');if (n4=3)and(bz1=true) thenbeginwriteln('没有这个选项！');end;if (n4=3)and(bz1=false) thenbeginrandomize;c:=random(10);while c=0 dobeginrandomize;c:=random(10);end;writeln(qiuyuan[c]);inc(zdl,zhandouli[c]);writeln('战斗力=>=>+',zhandouli[c]);bz1:=true;end;if (n4=2)and(zs>=2800) thenbeginfor i:=1 to 10 dobeginwriteln(qiuyuan[i]);inc(zdl,zhandouli[i]);writeln('战斗力=>=>+',zhandouli[i]);end;dec(zs,2800);endelseif (zs<300)and(n4=2) then writeln('你不够钻石!');end;end;if n2=3 thenbeginif time=0 thenreadln(n3);if (n3=1)or(time>0) thenbeginif (money>=200)or(time>0) thenbeginif time=0 then dec(money,200);writeln('时间:',time,'/5');inc(time);if time=6 thenbegintime:=0;randomize;ren1:=0;ren2:=0;ren3:=0;t:=0;while ren1=0 do ren1:=random(8);while ren2=0 do ren2:=random(8);while ren3=0 do ren3:=random(8);while t=0 do t:=random(10);writeln(ren[ren1],ren22[ren2],ren33[ren3],'=>=>+',zhandouli[t]);end;endelsebeginwriteln('你不够钱!');time:=0;end;end;if (n3>2) thenbeginwriteln('没有这个选项！');end;end;chengxu;
end;
begini:=0;rp:=10;exp:=0;expe:=3000;money:=1000;zdl:=461;zs:=200;dengji:=1;duiming1:='1.德国队';duiming2:='2.阿根廷队';duiming3:='3.韩国队';duiming4:='4.阿尔及利亚队';shangdian1:='1.买卖';shangdian2:='2.招募';writeln('世界杯风云');writeln('作者：陈铎友');writeln('版权归作者所有，盗版必究!');writeln('这是你的队徽');writeln('****************************');writeln('*             ,%%%%%%%%,   *');writeln('*           ,%%/\%%%%/\%%  *');writeln('*          ,%%%\c "" J/%%% *');writeln('* %.       %%%%/ o  o \%%% *');writeln('* `%%.     %%%%|   _  |%%% *');writeln('*  `%%     `%%%%(__Y__)%%  *');writeln('*  //       ;%%%%`\-/%%%   *');writeln('* ((       /  `%%%%%%%     *');writeln('* \\    .           |      *');writeln('*  \\  /       \  | |      *');writeln('*   \\/         ) | |      *');writeln('*     \         /_ | |_    *');writeln('*     (___________)))))))  *');writeln('****************************');writeln('请输入你的队名');readln(duiming);writeln('请输入',duiming,'的队长名');readln(duizhangming);writeln('好的，带领你的' ,' ',duiming,' ','冲吧');chengxu;
end.

pascal境界~~相关推荐

【挨踢人物传】马永亮：感悟学习三境界引领马哥教育的崛起（第18期）
[编者有话] 本期的嘉宾马永亮,一次误以为是"擅长"的选择,开始结缘计算机,然而当真正接触后才发现犹如"井底之蛙",此前的擅长根本不值一提,从天 ...
PASCAL VOC工具包解读
遇到不熟悉的问题时,还是直接看官方文档直接. 我想用Vocdevkit里对检测见过进行评估的程序,所以把从devkit_doc.pdf里看到的内容记录下: 4. Detection Task 4.1 ...
帕斯卡三角形(Pascal's triangle)
// The following code is compiled on VC2005 // #include "stdafx.h" /*--------------------- ...
[leedcode 118] Pascal's Triangle
Given numRows, generate the first numRows of Pascal's triangle. For example, given numRows = 5, Retu ...
Matlab与线性代数 -- Pascal矩阵
本文主要介绍利用Matlab实现pascal矩阵的相关知识.
编程十年的十种武学境界
首先非常感谢大家这么多阅读量,评论和推荐.针对大家评论中的问题,在这里做一下统一回复.首先对于要我介绍程序媛的女朋友问题.我周围有一些没结婚的程序媛.她们对男孩子的物质要求都不高.但是女孩子生性浪漫, ...
建立自己的voc数据集_一次将自己的数据集制作成PASCAL VOC格式的惨痛经历
因为准备训练keras-yolo3,开源代码上给出了voc_annotation.py文件,只要将自己的数据格式处理成PASCAL VOC格式,那么运行voc_annotation.py就可以将自己的 ...
「杂谈」白身，初识，不惑，有识，你处于深度学习哪一重境界了
https://www.toutiao.com/a6701683817700147715/ 今天我们来谈谈深度学习工程师那些境界的事儿.有三斗胆将学习深度学习的同志分为5大境界,分别是白身,初识,不惑 ...
干货丨大规模机器学习框架的四重境界（经典长文，值得收藏）
作者:carbon zhang 1. 背景自从google发表著名的GFS.MapReduce.BigTable三篇paper以后,互联网正式迎来了大数据时代.大数据的显著特点是大,哪里都大的大.本 ...

pascal境界~~

pascal境界~~相关推荐

最新文章

热门文章