纸牌搭塔技巧塔有什么技巧方法吗?

28 条评论分享收藏感谢收起已解决问题
搭扑克牌金字塔的技巧有哪些?
提问时间: 13:46:56
浏览次数:721
就像用砖头盖大楼 根基稳,则楼体坚固、抗震。&br/&&br/& 若是想搭扑克塔使之不易倒且高,就要把重心放在塔的物理中心就可以了。&br/&&br/& 具体实施办法参考如下: 方案1:既然可以用胶水就好办多了,下面多弄些扑克朝着四个方向搭好,粘牢固,正中间疯狂叠起扑克塔就可以。&br/&&br/& 暂时就想到这俩方法...OK? -------------------------------------------- 若是按您补充的那么搭的话,塔基部分必须得是三角型结构的,上面随意,但是会消耗掉大量材料,也就是扑克牌。
答案创立者
以企业身份回答&
快速解决你的电商难题
店铺优化排查提升2倍流量
擅长&nbsp 店铺优化
您可能有同感的问题纸牌搭塔有什么技巧吗?_百度知道
纸牌搭塔有什么技巧吗?
最后一层的时候总是倒 。。。
有高人给指点下吗?
全面一点 谢谢、
我有更好的答案
在搭完一个三角底座要搭建第二个的时候,一手抓住三角底座一手拿着一张“顶”牌放在两个三角底座之上。在每一层只要第一个搭好了其他的都好搭了。扑克牌的边毛一点固定的也会好一点。在最后一层的时候也就是一手拿一张牌轻轻一放就OK了。我也是初学者 ,不敢说是经验 ,希望能对你有点帮助。
采纳率:50%
就像用砖头盖大楼 根基稳,则楼体坚固、抗震。若是想搭扑克塔使之不易倒且高,就要把重心放在塔的物理中心就可以了。具体实施办法参考如下:方案1:既然可以用胶水就好办多了,下面多弄些扑克朝着四个方向搭好,粘牢固,正中间疯狂叠起扑克塔就可以。方案2:朝三个方向先铺扑克,然后中间搭塔,再用三个扑克做的支架连接塔体与塔基,形成三角形结构。暂时就想到这俩方法...OK?--------------------------------------------若是按您补充的那么搭的话,塔基部分必须得是三角型结构的,上面随意,但是会消耗掉大量材料,也就是扑克牌。不过个人感觉也可直接搭个大三角形。方案大致如下:
\这样可保证塔高的同时,也构建了三角形结构
没什么技巧,多练习,动作慢些,不要着急希望你能采纳我的回答,谢谢
为您推荐:
其他类似问题
纸牌的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。《好看》依托百度技术,精准推荐优质短视频内容,懂你所好,量身打造最适合你的短视频客户端!查看: 6046|回复: 5
再来个简单有趣的:搭扑克牌塔
阅读权限90
在线时间 小时
像下图中搭扑克牌的游戏相信即使没玩过也会见到过的
扑克牌塔jpg.jpg (49.96 KB, 下载次数: 4)
13:48 上传
输入要搭的层数 N (1&=N&=1,000,000),输出所需的牌数 除 当天日期 (格式为yyyymmdd形成的数) 的 余数
输入手中的牌数 M (1&=M&=10^13),输出能完整搭出塔的层数
阅读权限95
在线时间 小时
3张扑克视为一个单元(最底层除个),然后N层的话,就是1+2+3+.....................+N的和(这个求法应该是相当简单的),然后这个数乘上3,再减去底层多算的牌数(N张牌),所以这个N层所需的牌数应该是(3*N^2+N)/2
代码泥~?&
阅读权限30
在线时间 小时
本帖最后由 yuanhongly 于
15:22 编辑
先来个 根据层数求张数吧&&呵呵 没看最大数 改改 这样:
Function PSByCS(ByVal CS) '根据层数求张数
& & PSByCS = IIf(CS And 1, CS * ((CS - 1) / 2) + CS, (CS + 1) * (CS / 2)) * 3 - CS
End Function复制代码
10 ^ 13 -& Long?&
阅读权限30
在线时间 小时
yuanhongly 发表于
先来个 根据层数求张数吧&&呵呵 没看最大数 改改 这样:
没有仔细看最大层数&&这样就可以了 呵呵Function PSByCS(ByVal CS) '根据层数求张数
& & PSByCS = IIf(CS And 1, CS * ((CS - 1) / 2) + CS, (CS + 1) * (CS / 2)) * 3 - CS
End Function复制代码
阅读权限30
在线时间 小时
Q1是第一题的function
Q2是第二题的function
test是测试区Public Function Q1(n)
& & Dim c
& & c = Total(n)
& & Dim DateNumber As Long
& & DateNumber = CLng(Format(Now, &yyyymmdd&))
& & Dim a
& & Do
& && &&&a = a + 1
& && &&&If a * DateNumber & c Then Exit Do
& & Loop
& & Q1 = c - (a - 1) * DateNumber
End Function
Private Function Total(n)
& & Total = (3 * (n ^ 2) + n) / 2
End Function
Public Function Q2(M)
& & Dim a
& & Do
& && &&&a = a + 1
& && &&&If Total(a) & M Then Exit Do
& & Loop
& & Q2 = a - 1
End Function
Sub test()
& & Debug.Print Q1(1)
& & Debug.Print Q1(1000000)
& & Debug.Print Q2(1)
& & Debug.Print Q2(10 ^ 13)
End Sub
复制代码
阅读权限30
在线时间 小时
本帖最后由 yuanhongly 于
09:25 编辑
复制代码张数除当日日期形成的数求余数,这个简单,省略。复制代码Function PSByCS(ByVal CS)& &'根据层数求张数
& & PSByCS = IIf(CS And 1, CS * ((CS - 1) / 2) + CS, (CS + 1) * (CS / 2)) * 3 - CS
End Function
Function CSbyZS(ByVal PS) '根据张数求层数
CS = Int(PS / 3 * 2 / Int(Sqr(PS / 3 * 2) + 1))
If PS - (CS * 3 - CS) &= (CS + 1) * 3 - 1 Then CS = CS + 1
CSbyZS = CS
End Function
Sub Test() '测试
Debug.Print PSByCS(10 ^ 6)
Debug.Print CSbyZS(10 ^ 13)
End Sub
复制代码
玩命加载中,请稍候
玩命加载中,请稍候
Powered by
本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任! & & 本站特聘法律顾问:徐怀玉律师 李志群律师

我要回帖

更多关于 扑克牌塔楼搭建方法 的文章

 

随机推荐