13518219792
首先while语句明白什么意思吧 就是当满足while后面的条件时执行下面的语句。这里的f表示是否已经找到与d相同的数字。如果f为true，表示已经找到了，所以这个check函数一定为true，不必再找下去了。
成都创新互联公司主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务海丰,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
在PASCAL中，子程序有两种形式：函数和过程。自定义的函数必须放在它的主程序的说明部分。调用自定义函数就象调用标准函数一样。函数最终返回一个值，故函数可看成一个数据，并放入表达式中。
下图为主程序调用子程序的关系图，我们应注意到当完成某子程序调用后，总是返回到调用点的下一个语句继续执行。在PASCAL中，子程序有两种形式：函数和过程。自定义的函数必须放在它的主程序的说明部分。
这是一个找最大相同真子串的长度的程序。即从所给的字符串中找出二个不同的等长子串，若它们相同，则记录其长度。输出满足这个要求的最大长度。例：11111 这个子串中，最前的4个字符，与最后的四个字符完全相同。
while ((ch = getchar()) == \n)读到换行符，即行结束了。
使用标准库函数feof()可判断是否到达文件结尾。用法：include stdio.h int feof(FILE *stream)；参数流 ：FILE结构的指针。
打开文件。使用fopen函数打开文件， 由于txt为文本文件，所以模式应选择r或者rt。比如 FILE *fp = fopen(in.txt， r)；按字节读取文件，并识别换行。
i]的值不为0，进循环。{ i++；} 那么，数组里有字符0的话，显然不会停止。因为0不等于0， 翻下书看看0的ascii码值是多少。如果c是一个字符串，如果c[5]的值为0，那必然已经到了字符串的最后一个。
不能写入e：\等地止！！pascal知支持在pascal的制定目录下写入，输出。
其中D和L与调试有关，调试时必须打开这两个参数 N+可以使程序能够使用扩展实型。一般情况下，Real速度最慢，不应该使用。
0*2=0 0/8=0 所以最后的结果是0。第二题：这些函数涉及ASCLL码的取值。在计算机系统中，每一个字符都对应一个ASCLL码，但每种编译器拥有不同的ASCLL码。
=1 to n do begin len：=maxlen+1；repeat dec(len)； until f[ording[i]].s[len]0；for j：=len downto 1 do write(f[ording[i]].s[j])；writeln( )；end；writeln；end.在turbo pascal上测试成功。
procedure不需要有返回值。而function则需要函数返回值，也就是说你定义的是一个类型值，这个类型值通过你的function的定义得出你所需的值。
你试过Turbo Pascal没有问题，你用的是free pascal 在使用free pascal时，会遇到“fatal：compilation aborted”的错误提示，其意思就是：致命的：编译失败。
