Tcl 语言改写Java题目-1
Java题目:https://blog.csdn.net/wenzhi20102321/article/details/52274976
Program1.
proc fun_1 {x} {
if {$x<3} {
return 1
} else {
return [expr [fun_1 [expr $x - 1]] + [fun_1 [expr $x - 2]]]
}
}
puts [fun_1 10]
program 2
#判断是不是素数的函数
#namespace import ::tcl::mathfunc::*
#循环结束都没有返回0才能判断是素数,则返回1;注意return 的返回值
proc fun_2 {x} {
for {set i 2} {$i < sqrt($x)} {incr i} {
if {$x % $i == 0} {
return false
}
}
return True
}
proc fun_3 {a b} {
set sum 0
for {set j [expr $a - 1 ]} {$j < $b} {incr j} {
if {[fun_2 $j]} {
set sum [expr $sum + 1]
puts $j
if { $sum % 5 == 0} {
puts "\n"
}
}
}
return $sum
}
puts [fun_3 101 200]
Program 3
#判断一个数是否是水仙花数
proc func_1 {x} {
set n 10
set k 100
#i=3
set i [expr $x %$n]
#j=5
set j [expr [expr $x / $n] % $n]
#z=1
set z [expr $x / $k]
# set y [expr [expr pow($i,3)]+ [expr pow($j,3)] +[expr pow($z,3)]]
set y [expr pow($i,3)+ pow($j,3)+ pow($z,3)]
if {$x == $y} {
return True
} else {
return false
}
}
#打印出所有的水仙花数:1)是一个三位数,2)是一个水仙花
for {set i 100} {$i < 1000} {incr i} {
if {[func_1 $i]} {
puts $i
}
}
Program 6
#最大公约数和最小公倍数
proc func_1 {a b} {
if {[expr $b % $a] == 0} {
puts $b
} else {
while {[expr $b % $a] != 0} {
set z [expr $b % $a]
set b $a
set a $z
}
puts $a
}
}
puts [func_1 27 36]
program 8
proc func_1 {} {
set a 3
set n 3
set q 10
#计算第n个数的大小
set x [expr $a * [expr [expr 1 - pow(10,$n)] / [expr 1 - $q]]]
#计算S=a+aa+aaa+aaaa+aaaaa的和
set sum 0
for {set i 1} {$i <= $n} {incr i} {
set x [expr $a * [expr [expr 1 - pow(10,$i)] / [expr 1 - $q]]]
set sum [expr $sum + $x]
}
return $sum
}
puts [func_1]
转载于:https://www.cnblogs.com/hyq-1/p/9068900.html
Tcl 语言改写Java题目-1相关推荐
- 2,Java语言基础-Java语言基本程序设计知识
Java语言基础 Java语言基本程序设计知识 1,JavaAPI概述 1.1,什么是API API是指应用程序接口( Application Program Interface, API),故名思意 ...
- MySQL学习(三) 数据类型约束、TCL语言、流程控制
数据类型和约束(ddl) 数据类型 一.数值型 1.整型 tinyint.smallint.mediumint.int/integer.bigint 1 2 3 4 8 特点: ①都可以设置无符号和有 ...
- tcl计算机语言,TCL语言
本词条缺少概述图,补充相关内容使词条更完整,还能快速升级,赶紧来编辑吧! Tcl (最早称为"工具命令语言""Tool Command Language", 但 ...
- java语言的实现机制_JAVA语言之Java NIO的工作机制和实现原理介绍
本文主要向大家介绍了JAVA语言之Java NIO的工作机制和实现原理介绍,通过具体的内容向大家展示,希望对大家学习JAVA语言有所帮助. 前言 本文只简单介绍NIO的原理实现和基本工作流程 I/O和 ...
- 怎么用python画个电脑_python语言还是java如何用python画爱心
用python绘制爱心的基本步骤如下: 002pc.com对<python语言还是java如何用python画爱心>总结来说,为我们学习Python很实用. 首先先下载安装好python程 ...
- 大一c语言大作业课题大全,昆明理工大学大一C语言大作业题目.doc
昆明理工大学大一C语言大作业题目 综合性实践排序求平均值(包括将数拆散求最大最小值).函数ReadDat()随机产生100个存放到数组aa中00个jsSort()函数的功能是:进行降序排列.最后调用函 ...
- 1008c语言答案,c语言大作业题目01008.doc
c语言大作业题目01008 一.学生信息管理程序 基本要求: 1.要求实现学生信息的查找.添加.删除.修改.浏览.保存.从文件读取.查看奖学金信息8个功能,每个功能模块均能实现随时从模块中退出,而且可 ...
- c语言趣味教学题目及答案,C语言趣味程序设计-题目百例.doc
C语言趣味程序设计-题目百例 Contest - 2011级C语言课程大作业Start Time: 2012-02-19 16:25:00 End Time: 2012-03-01 22:00:00C ...
- c语言 python-C语言、Java语言和python语言的区别在哪里
原标题:C语言.Java语言和python语言的区别在哪里 我们经常听到C语言.Java语言和python语言,那么这三者的区别在哪里呢?随着科技的进步以及新技术的推进,编程语言的种类也是越来越多,随 ...
最新文章
- [kuangbin带你飞]专题七线段树 更新ing
- 用qss 来控制qlabel显示字体的位置_Word表格总填不好,这些技巧轻松来拯救
- 西南民族大学计算机考试试题,西南民族大学预科教育学院 2007级《计算机》模拟试题(含答案)...
- El表达式和fn函数一起使用
- Oracle新建用户、角色,授权,建表空间
- Delphi7 如何调整背景色为黑色容易护眼
- MLDN 五子棋。笔记
- 使用c语言的多学科协同仿真软件,一种多学科协同仿真系统及方法与流程
- hex文件转bin格式
- http_load压力测试步骤
- python为什么被称为胶水语言_为什么只有python成了胶水语言?
- 联想微型计算机怎么拆开图解,Lenovo(Ideapad)笔记本如何拆卸及安装电池
- #每日一题 力扣第22题 黑白格子画
- Autoware.auto 毫米波雷达目标检测demo展示
- 一个计算机专业学生几年的Java编程经验汇总
- windows 服务器使用量高导致网络异常
- How to Install Cinnamon Desktop on Ubuntu
- 小程序进阶-emoji表情
- 结构-02. 有理数加法
- #5月23日湖北省赛总结 + 个人计划变更
热门文章
- 如何使用 SSH 控制连接 Windows 服务器
- redis集群 + 哨兵 + zookeeper_技术干货 | Redis的哨兵和集群
- html日期选择框_第十课 日期选择框(datepicker)的操作
- Hessian之简单使用
- bzoj2683bzoj4066
- windows 下安装Python easy_install 和pip
- 0037 Java学习笔记-多线程-同步代码块、同步方法、同步锁
- Java 加密 base64 encode
- eclipse在ubuntu13.04下崩溃crash
- 公众号出现该公众号提供的服务出现故障分析