加载中…
个人资料
林老师的LOGO_PYTHON_C语言之家
林老师的LOGO_P
YTHON_C语言之家
微博
  • 博客等级：
  • 博客积分：0
  • 博客访问：45,449
  • 关注人气：563
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

还有几种三角形数字阵列源程序

(2024-05-14 10:21:02)
标签：

林老师

pclogo

mswlogo

fmslogo

 分类： WinXP~7~8~10运行Logo语言
还有几种三角形数字阵列源程序
N阶正三角形数字阵列
to Asjx1 :n  
  make "s 1          
  for[i :n 1 -1][   
    for[j :i 1 -1][  
      type :s        
      ifelse :s<10[(type char 32 char 32)] 
        [type char 32]
      make "s :s+1   
        ]pr[]        
      ]
end
输出实例：
还有几种三角形数字阵列源程序


N阶倒三角形数字阵列
to Asjx2 :n  
  make "s 1        
  for[i 1 :n][       
    for[j :i 1 -1][  
      type :s        
      ifelse :s<10[(type char 32 char 32)] 
        [type char 32]
      make "s :s+1   
        ]pr[]        
      ]
end

输出实例：
还有几种三角形数字阵列源程序



N阶右对齐正三角形数字阵列
to Asjx3 :n  
  make "s 1         
  make "h 1         
  for[i :n 1 -1][   
    for[hh 1 :h][   
      (type char 32 char 32 char 32)]
    make "h :h+1    
    for[j :i 1 -1][ 
      type :s       
      ifelse :s<10[(type char 32 char 32)]
        [type char 32]
      make "s :s+1   
        ]pr[]        
      ]
End

输出实例：
还有几种三角形数字阵列源程序


N阶倒计数正三角形数字阵列
to Asjx5 :n 
  make "s (1+:n)*:n/2  
  for[i :n 1 -1][
    for[j :i 1 -1][
      type :s
      ifelse :s<10[(type char 32 char 32)]
        [type char 32]
      make "s :s-1
        ]pr[]
      ]
End

输出实例：
还有几种三角形数字阵列源程序


还有几种三角形数字阵列源程序
还有几种三角形数字阵列源程序


还有几种三角形数字阵列源程序

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有