撸尔山在线黄色视频

当前位置:计算机资讯网文章中心网站开发其他 → 黑客武林批处理第21课--发扑克牌算法

黑客武林批处理第21课--发扑克牌算法

减小字体 增大字体 作者:admin  来源:本站整理  发布时间:2013-5-2 3:05:55
@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是从52个数中选出13个
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /l %%i in (1,1,52) do set a%%i=%%i
::将a1~a52分别赋值为1~52

set total=52
::总共有52张牌

set count=13
::发13张

:1
if %count% equ 0 goto 2
::如果发完13张就跳出。

set/a temp=%random%%%%total%+1
::利用随机数产生一个[1,52]区间的整数并赋值给变量temp。

set   puker%count%=!a%temp%!
::把得到的随机数赋值给变量puker%count%,系统便发出了一张牌。

set/a a%temp%=!a%total%!
::由于已经发了一张牌,我们就用当前排序最大的那张牌把已经发的牌覆盖掉。这样就把刚发过的牌从a%temp%这个序列中抛除了,但同时当前序列最大的那张牌就等于有了两张(马上就会扔掉一个)。

set/a total=%total%-1
::把总数减一以后就相当于把序列最大的那张牌扔掉了。

set/a count=%count%-1
::待发的牌数减一。

goto 1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下将13个数由大到小排序
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:2
for /l %%i in (1,1,12) do (
 set/a w=%%i+1
 for /l %%j in (!w!,1,13) do (

  if  !puker%%i! lss !puker%%j! (
   set/a tt=!puker%%i!
   set/a puker%%i=!puker%%j!
   set/a puker%%j=!tt!
  )
 )
)
::用冒泡法由大到小排序。
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是将数字变换为扑克符号AKQJT(T代表10)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

for /l %%i in (1,1,13) do (
 set/a gg=!puker%%i!-1
 set/a flag%%i=!gg!/13
::每张牌由flag来区分分类(黑桃、红桃、方块、梅花)
 set/a puker%%i=!puker%%i!%%13+1
)
::puker%%i由于原来是在区间[1,52]中现转化到区间[1,13]中。

for /l %%i in (1,1,13) do (
 if !puker%%i! equ 13 set puker%%i=K
 if !puker%%i! equ 12 set puker%%i=Q
 if !puker%%i! equ 11 set puker%%i=J
 if !puker%%i! equ 10 set puker%%i=T
 if !puker%%i! equ 1 set puker%%i=A
)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是输出
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set /p bb=黑桃:<nul
for /l %%i in (1,1,13) do (if !flag%%i! equ 3 set/p a=!puker%%i!<nul  )
echo.


set /p bb=红桃:<nul
for /l %%i in (1,1,13) do (if !flag%%i! equ 2 set/p a=!puker%%i

[1] [2]  下一页


本文引用网址:

在下列搜索引擎中搜索“黑客武林批处理第21课--发扑克牌算法”的相关信息:

谷歌搜索 百度搜索 360搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1如何做爱真人示范图片 男女ML常...
  • 2雨后小故事 qq表情姐弟雨后小故...
  • 3如何做爱更舒服?教你做爱72式...
  • 4情侣酒店开房qvod 情侣做爱视频...
  • 5怎么做爱舒服?真人示范做爱姿...
  • 1如何搭建第一个网站?做网站有...
  • 2dedecms如何更换fck编辑器
  • 3dedecms如何调用软件下载排行
  • 4科讯CMS如何修改后台登陆认证码...
  • 5DEDE:显示文章上级栏目的名称和...
  • 1合肥艳照门事件 合肥艳照门全套...
  • 2中国女大学生的淫靡生活
  • 3武汉十七中教室门种子 教室门q...
  • 4嫩白少妇与猛男户外疯狂车震遭...
  • 5性感MM裸体私房照 大秀美腿傲人...
  • 1如何做服务器安全维护?有哪些...
  • 2解决configure: error: OpenSS...
  • 3网络工程师常用英文单词和缩写...
  • 4用rewrite实现APACHE绑定多域名...
  • 5黑客是如何组织一次DDoS攻击的...
  • 赞助商广告

    图片文章导读

    撸尔山在线黄色视频