请你编程
下面先介绍中国纺织大学黄剑的程序中的一个函数：
ｐｒｏｃｅｄｕｒｅ ｓｗａｐ－ｃａｒｄ（ｓｔａｒｔ－ｃａｒｄ，ｅｎｄ－ｃａｒｄ：ｂｙｔｅ）；
｛在这个展示换牌动画的过程中，选用切换显示页的方法，纸牌的移动速度和用户选的等级呈正比关系，并且纸牌的移动曲线为ＳＩＮ函数曲线。｝
ｖａｒ ｉ：ｉｎｔｅｇｅｒ；｛循环变量｝
ｘ，｛所要交换的两张纸牌的横坐标距离｝
ｘ１，ｙ１：ｉｎｔｅｇｅｒ； ｛当前将要画纸牌的坐标｝
ｔ，｛ＳＩＮ函数变量｝
ｏｍｅｇａ，ｓｔｅｐ：ｒｅａｌ； ｛ｏｍｅｇａ为ＳＩＮ函数参数，ｓｔｅｐ为其变量每次的增量｝
ｐａｇｅ：ｉｎｔｅｇｅｒ； ｛用ｐａｇｅ对２取模的值作为显示页号｝
ｆｒａｍｅ－ｎｕｍｂｅｒ：ｉｎｔｅｇｅｒ； ｛动画的帧数，也可以看作动画的速度｝
ｄｅｌａｙ－ｔｉｍｅ：ｉｎｔｅｇｅｒ； ｛每帧动画之间的延迟｝
ｂｅｇｉｎ ｘ：＝（ｅｎｄ－ｃａｒｄ－ｓｔａｒｔ－ｃａｒｄ）＊１｛计算横坐标距离｝
ｆｒａｍｅ－ｎｕｍｂｅｒ：＝１１＋（ｅｎｄ－ｃａｒｄ－ｓｔａｒｔ－ｃａｒｄ）＊２－２＊（ｌｅｖｅｌ ｄｉｖ １０）；
ｉｆ（ｆｒａｍｅ－ｎｕｍｂｅｒ ｍｏｄ ２）＝０ ｔｈｅｎ ｉｎｃ（ｆｒａｍｅ－ｎｕｍｂｅｒ）；｛帧数调整｝
ｄｅｌａｙ－ｔｉｍｅ：＝（３－（ｘ ｄｉｖ １００））＊５＋１０；
ｏｍｅｇａ：＝ｐｉ／ｘ；ｓｔｅｐ：＝ｘ／ｆｒａｍｅ－ｎｕｍｂｅｒ；
ｔ：＝０；ｐａｇｅ：＝１；｛初始化变量｝
ｗｈｉｌｅ （ｔ＜＝ｘ） ｄｏ ｂｅｇｉｎ
｛动画循环｝
ｓｅｔａｃｔｉｖｅｐａｇｅ（ｐａｇｅ ｍｏｄ ２）； ｛选择当前不可见页为活动页｝
ｃｌｅａｒｄｅｖｉｃｅ；
ｆｏｒ ｉ：＝０ ｔｏ ３ ｄｏ ｛画出不作交换的两纸牌｝
ｉｆ （ｉ＜＞ｓｔａｒｔ－ｃａｒｄ） ａｎｄ （ｉ＜＞ｅｎｄ－ｃａｒｄ）
ｔｈｅｎ ｐｌａｃｅ－ｃａｒｄ（ｉ，１，ｄｏｗｎ－ｓｉｄｅ）；
ｘ１：＝１２０＋ｓｔａｒｔ－ｃａｒｄ＊１００＋ｒｏｕｎｄ（ｔ）；
ｙ１：＝１３０－ｒｏｕｎｄ（８０＊ｓｉｎ（ｏｍｅｇａ＊ｔ））；
ｄｒａｗ－ｃａｒｄ（ｘ１，ｙ１，１，ｄｏｗｎ－ｓｉｄｅ）；｛画出由左向右移动的一张纸牌｝
ｘ１：＝１２０＋ｅｎｄ－ｃａｒｄ＊１００－ｒｏｕｎｄ（ｔ）；
ｙ１：＝１３０＋ｒｏｕｎｄ（８０＊ｓｉｎ（ｏｍｅｇａ＊ｔ））；
ｄｒａｗ－ｃａｒｄ（ｘ１，ｙ１，１，ｄｏｗｎ－ｓｉｄｅ）；｛画出由右向左移动的一张纸牌｝
ｓｅｔｖｉｓｕａｌｐａｇｅ（ｐａｇｅ ｍｏｄ ２）；｛选择刚才输出动画的活动页为可见页｝
ｔ：＝ｔ＋ｓｔｅｐ； ｉｎｃ（ｐａｇｅ）； ｛变量各自加上增量｝
ｄｅｌａｙ（ｄｅｌａｙ－ｔｉｍｅ）；ｅｎｄ；ｅｎｄ ｛视觉延迟｝
另外，宁夏张永强编制的程序很有特色，他设计的扑克牌不仅有点数，而且有花色，并有大小王，画面漂亮。如：
#3 梅花：
ｆｉｌｌｅｌｌｉｐｓｅ（ｘｘ，ｙ＋６０，１０＊ｓｉｚｅ，１０）；
ｆｉｌｌｅｌｌｉｐｓｅ（ｘｘ＋８＊ｓｉｚｅ，ｙ＋７５，１０＊ｓｉｚｅ，１０）；
ｆｉｌｌｅｌｌｉｐｓｅ（ｘｘ－８＊ｓｉｚｅ，ｙ＋７５，１０＊ｓｉｚｅ，１０）；
ｌｉｎｅ（ｘｘ，ｙ＋７５，ｘｘ－３＊ｓｉｚｅ，ｙ＋９０）；
ｌｉｎｅ（ｘｘ，ｙ＋７５，ｘｘ＋３＊ｓｉｚｅ，ｙ＋９０）；
ｌｉｎｅ（ｘｘ－３＊ｓｉｚｅ，ｙ＋９０，ｘｘ＋３＊ｓｉｚｅ，ｙ＋９０）；
ｆｌｏｏｄｆｉｌｌ（ｘｘ，ｙ＋８９，ＢＬＡＣＫ）；
#3 黑桃：
ｌｉｎｅ（ｘｘ，ｙ＋５０，ｘｘ＋１５＊ｓｉｚｅ，ｙ＋７０）；
ｌｉｎｅ（ｘｘ，ｙ＋５０，ｘｘ－１５＊ｓｉｚｅ，ｙ＋７０）；
ｆｉｌｌｅｌｌｉｐｓｅ（ｘｘ＋５＊ｓｉｚｅ，ｙ＋７５，１２＊ｓｉｚｅ，１２）；
ｆｉｌｌｅｌｌｉｐｓｅ（ｘｘ－５＊ｓｉｚｅ，ｙ＋７５，１２＊ｓｉｚｅ，１２）；
ｌｉｎｅ（ｘｘ，ｙ＋７５，ｘｘ－３＊ｓｉｚｅ，ｙ＋１００）；
ｌｉｎｅ（ｘｘ，ｙ＋７５，ｘｘ＋３＊ｓｉｚｅ，ｙ＋１００）；
ｌｉｎｅ（ｘｘ－３＊ｓｉｚｅ，ｙ＋１００，ｘｘ＋３＊ｓｉｚｅ，ｙ＋１００）；
ｆｌｏｏｄｆｉｌｌ（ｘｘ，ｙ＋５２，ＢＬＡＣＫ）；
ｆｌｏｏｄｆｉｌｌ（ｘｘ，ｙ＋９９，ＢＬＡＣＫ）；
#3 红桃和方片用同样方法也可实现，用
ｓｅｔｔｅｘｔｓｔｙｌｅ（ＴＲＩＰＬＥＸ－ＦＯＮＴ，０，４）；
ｏｕｔｔｅｘｔｘｙ（ｘｘ－４５＊ｓｉｚｅ，ｙ＋５，ＣＡＲＤ－ｔｉｔｌｅ［ｔｉｔｌｅ］）语句显示点数。将５４张牌放入一个数组，使用者选择牌时，５４张牌可随机显示，用户通过按回车选牌，限于版面，不能一一登出。下面另给出一个完整的程序，虽其结果不够理想，但比较简单，也能够达到要求。
／＊Ｔｕｒｂｏ Ｃ ２．０＊／
＃ｉｎｃｌｕｄｅ ＜ｃｏｎｉｏ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｍａｔｈ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｓｔｄｉｏ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｄｏｓ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｂｉｏｓ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｃｔｙｐｅ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｓｔｄｌｉｂ．ｈ＞
＃ｉｎｃｌｕｄｅ ＜ｔｉｍｅ．ｈ＞
ｓｔａｔｉｃ ｃｈａｒ ｓ［１１］［１５］＝｛｛＂ ＂｝，
｛＂ ＂｝，
｛＂ ＂｝，
｛＂ ＂｝，
｛＂ ＂｝，
｛＂ ＂｝，
｛＂ ＂｝｝；
ｖｏｉｄ ｃｏｃｐ（ｉｎｔ ｃｏ） ／＊光标开关函数＊／
｛ｕｎｉｏｎ ＲＥＧＳ ｒｅｇｓ；
ｒｅｇｓ．ｈ．ａｈ＝１；
ｒｅｇｓ．ｈ．ｃｈ＝６；
ｒｅｇｓ．ｈ．ｃｌ＝ｃｏ；
ｉｎｔ８６（０ｘ１０，＆ｒｅｇｓ，＆ｒｅｇｓ）；｝
ｃｈａｒ ｉｎｋｅｙ（） ／＊键值读取函数＊／
｛ｕｎｉｏｎ ＲＥＧＳ ｒｅｇｓ；
ｒｅｇｓ．ｈ．ａｈ＝０；
ｉｎｔ８６（０ｘ１６，＆ｒｅｇｓ，＆ｒｅｇｓ）；
ｒｅｔｕｒｎ（ｒｅｇｓ．ｈ．ａｌ）；｝
ｉｎｔ ｔｉｍｅｉｎｋｅｙ（ｉｎｔ ｔ） ／＊定时读取键值函数＊／
｛ｕｎｉｏｎ ＲＥＧＳ ｒｅｇｓ；
ｉｎｔ ｉ，ｊ，ｍ；
ｆｏｒ（ｔ＝９；ｔ＞０；ｔ－－）
｛ｇｏｔｏｘｙ（１２，２３）；
ｐｒｉｎｔｆ（＂％ｄ＂，ｔ）；
ｇｏｔｏｘｙ（１０，２３）；
ｆｏｒ（ｊ＝１；ｊ＜１０；ｊ＋＋）
｛ｄｅｌａｙ（５００）；
ｒｅｇｓ．ｈ．ａｈ＝１；
ｉｎｔ８６（０ｘ１６，＆ｒｅｇｓ，＆ｒｅｇｓ）；
ｉｆ （（ｒｅｇｓ．ｘ．ｆｌａｇｓ ＆ ０ｘ６０）＝＝０）
／＊是否按键＊／
｛ｍ＝ｉｎｋｅｙ（）；
ｉｆ（ｍ＞４８ ＆＆ ｍ＜５３）
｛ｇｏｔｏｘｙ（１０，２３）；
ｍ＝ｍ－４８；
ｐｒｉｎｔｆ（＂％ｄ ＂，ｍ）；
ｒｅｔｕｒｎ（ｍ）；｝｝｝｝
ｒｅｔｕｒｎ（０）； ｝
ｖｏｉｄ ｄｉｓｐｌａｙ（ｌｄｘ，ｌｄｙ，ｄｘ，ｄｙ，ｘ，ｙ）／＊显示纸牌函数＊／
ｉｎｔ ｌｄｘ，ｌｄｙ，ｄｘ，ｄｙ，ｘ，ｙ；
｛ｉｎｔ ｉ，ｊ；
ｆｏｒ（ｉ＝０；ｉ＜ｄｙ；ｉ＋＋）
｛ｇｏｔｏｘｙ（ｘ，ｙ＋ｉ）；
ｆｏｒ（ｊ＝０；ｊ＜ｄｘ；ｊ＋＋）
ｐｕｔｃｈａｒ（ｓ［ｌｄｙ＋ｉ］［ｌｄｘ＋ｊ］）； ｝｝
ｖｏｉｄ ｍｏｖｅ（ａ，ｂ）／＊移动纸牌函数＊／
ｉｎｔ ａ，ｂ；
｛ｉｎｔ ｌｄｘ，ｌｄｙ，ｄｘ，ｄｙ，ｘ，ｙ，ｉ，ｍ，ｎ；
ｍ＝（ｂ－ａ）＊１５； ／＊未移动两纸牌之间距离＊／
ｆｏｒ（ｉ＝１３；ｉ＞２；ｉ－－）
｛ｄｉｓｐｌａｙ（１，１，１２，１０，ａ＊１５，ｉ）；
ｄｉｓｐｌａｙ（１，１，１２，１０，ｂ＊１５，ｉ）； ｝
ｆｏｒ（ｉ＝０；ｉ＜ｍ；ｉ＋＋）
｛ｎ＝ｍ－２＊ｉ－２； ／＊移动中那两个纸牌之间距离＊／
ｄｉｓｐｌａｙ（０，１，１３，９，ａ＊１５＋ｉ，３）；
ｉｆ（ａｂｓ（ｎ）＜１２）／＊两牌相遇时Ｂ牌显示范围调整＊／
ｉｆ（ｎ＞＝０）
ｄｉｓｐｌａｙ（１２－ｎ，１，ｎ＋２，９，ａ＊１５＋ｉ＋１３，３）；
ｅｌｓｅ ｄｉｓｐｌａｙ（１，１，－ｎ，９，ｂ＊１５－ｉ－１，３）；
ｅｌｓｅ ｄｉｓｐｌａｙ（１，１，１３，９，ｂ＊１５－ｉ－１，３）； ｝
ｆｏｒ（ｉ＝３；ｉ＜１４；ｉ＋＋）
｛ｄｉｓｐｌａｙ（１，０，１２，１０，ａ＊１５，ｉ）；
ｄｉｓｐｌａｙ（１，０，１２，１０，ｂ＊１５，ｉ）； ｝｝
ｍａｉｎ（）
｛ｉｎｔ ｉ，ｊ，ｋａ，ｋｂ，ａ［４］；
ｃｈａｒ ｍ；
ｃｌｒｓｃｒ（）；／＊清屏＊／
ｃｏｃｐ（０）；／＊消隐光标＊／
ｆｏｒ（ｉ＝１；ｉ＜５；ｉ＋＋）
｛ｄｉｓｐｌａｙ（１，１，１２，９，ｉ＊１５，１４）；
ｇｏｔｏｘｙ（ｉ＊１５＋６，１８）；
ｐｕｔｃｈａｒ（＇ ＇）； ｝
ｇｏｔｏｘｙ（１，２３）；
ｃｏｃｐ（７）；／＊显示光标＊／
ｐｒｉｎｔｆ（＂ｉｎｐｕｔ（２－９，ａ，ｊ，ｑ，ｋ）＂）；
ｆｏｒ（ｉ＝０；ｉ＜４；ｉ＋＋）
｛ｇｏｔｏｘｙ（ｉ＊１５＋２１，１８）；
ｍ＝ｉｎｋｅｙ（１）；
ｉｆ （ｍ＞４９ ＆＆ ｍ＜５８）
｛ａ［ｉ］＝ｍ－４８；ｐｕｔｃｈａｒ（ｍ）；ｃｏｎｔｉｎｕｅ；｝
ｉｆ （ｍ＝＝＇ ａ＇｜｜ ｍ＝＝＇Ａ＇）
｛ ａ［ｉ］＝１；ｐｕｔｃｈａｒ（ｍ）；ｃｏｎｔｉｎｕｅ；｝
ｉｆ （ｍ＝＝＇ｊ＇ ｜｜ ｍ＝＝＇Ｊ＇）
｛ａ［ｉ］＝１１；ｐｕｔｃｈａｒ（ｍ）；ｃｏｎｔｉｎｕｅ；｝
ｉｆ （ｍ＝＝＇ ｑ＇｜｜ ｍ＝＝＇ Ｑ＇）
｛ａ［ｉ］＝１２；ｐｕｔｃｈａｒ（ｍ）；ｃｏｎｔｉｎｕｅ；｝
ｉｆ （ｍ＝＝＇ｋ＇｜｜ ｍ＝＝＇Ｋ＇）
｛ａ［ｉ］＝１３；ｐｕｔｃｈａｒ（ｍ）；ｃｏｎｔｉｎｕｅ；｝
ｉ－－； ｝
ｇｏｔｏｘｙ（１，２３）；
ｐｒｉｎｔｆ（＂ ＂）；
ｃｏｃｐ（０）；
ｄｅｌａｙ（１８００）；
ｆｏｒ（ｉ＝１；ｉ＜５；ｉ＋＋）
｛ｇｏｔｏｘｙ（ｉ＊１５＋６，１８）；ｐｕｔｃｈａｒ（１７６）；｝／＊盖牌＊／
ｒａｎｄｏｍｉｚｅ（）；
ｆｏｒ（ｉ＝１；ｉ＜１１；ｉ＋＋）／＊随机调换两只纸牌十次＊／
｛ｋａ＝ｒａｎｄｏｍ（４）＋１；
ｋｂ＝ｋａ＋ｒａｎｄｏｍ（３）＋１；
ｉｆ（ｋｂ＞４）｛ｊ＝ｋａ；ｋａ＝ｋｂ－４；ｋｂ＝ｊ；｝
ｍｏｖｅ（ｋａ，ｋｂ）； ｝
ｇｏｔｏｘｙ（１，２３）；
ｃｏｃｐ（７）；
ｐｒｉｎｔｆ（＂ｍａｘｎａｂｅｒ：＂）；
ｊ＝ｔｉｍｅｉｎｋｅｙ（９）；
ｉｆ（ｊ＝＝０）｛ｃｌｒｓｃｒ（）；ｅｘｉｔ（０）；｝
ｇｏｔｏｘｙ（１，２４）；
ｆｏｒ（ｉ＝０；ｉ＜４；ｉ＋＋）
｛ｉｆ（ａ［ｊ－１］＜ａ［ｉ］）
｛ｐｒｉｎｔｆ（＂ＮＯ＂）；
ｅｘｉｔ（０）；｝ ｝
ｐｒｉｎｔｆ（＂ＹＥＳ＂）；｝