SchRHT Blog

2007年4月6日 第四次pascal试验课 上机内容是函数及过程结构程序设计以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。P122_5_2.PASPROGRAM find(input,output);  {输入一个数n，返回其右数第k位数字}  VAR    n,k:integer;  {函数digit的说明}  F

2007年3月16日 第一次pascal试验课 上机内容是顺序结构程序设计以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。P14_1_2.PASPROGRAM count(input,output);  {输入三个数，计算并输出它们的平均值及乘积}  VAR    num1,num2,num3,average,product

2007年3月23日 第二次pascal试验课 上机内容是顺序和选择结构程序设计以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。P37_2_8.PASPROGRAM chars(input,output);  {输入三个字符，然后以不同次序输出并依次打印它们的序号}  VAR    ch1,ch2,ch3:char;  BE

2007年3月30日 第三次pascal试验课 上机内容是循环结构程序设计以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。P87_4_4.PASPROGRAM factorial(input,output);  {计算1到35的阶乘并逐行输出}  VAR    {n!是个很大的数，用整型会造成溢出，应当声明为实型}   

　　在做第四章（循环结构程序设计）的作业时，有一道“求1-100之间的所有素数”的题目，有意思的是最后出现了三种不同的写法，这三种写法的基本思想都差不多但其核心算法不同，做过求素数算法的人都知道，所谓素数就是除了1和它本身外没有其他数可以整除它的数，固然其核心算法就是检验这个数是否可以被其他数整除。毋庸置疑这个核心算法应当由循环结构来完成。明确了这些之后我们回来再说说这三种写法： 　　第一种写