摘要：此程序主要是验证文件功能的读写功能,总结到的东西有:①文件无论是读还是写,都要先建立链接关系才可以进行;②读与写不能同时进行,必须分开操作,这也可以理解,在实际鼠标操作时也是如此的!③读写后必须用close(文件变量名)关掉读写的文件;④学会了如何生成随机整数,并且学会了如何节省验证时间不再从键盘输入. 1 program Test07; 2 var 3 f:text; 4 i,a,b,c,max:integer; 5 begin 6 assign(f,'test.txt'); 7 rewrite(f); 8 randomize; 9 //生成三个随机数10 for... 阅读全文

摘要：虽然写出了代码，但一直没有明白其过程是如何实现的。 1 program E_daoxu; 2 procedure daoxu; 3 var 4 a:char; 5 begin 6 readln(a); 7 if a'*' then 8 daoxu; 9 write(a);10 end;11 12 begin13 daoxu;14 readln;15 16 end. 后面再慢慢的分析，一步步的来吧。下面是在网上找到的一段代码，和我同样的问题：为什么不是到输入的a为‘*’时只输出‘*’，而是将所有的原来输入的字符全都输出，并且是倒... 阅读全文

摘要：program fbnq;{输出菲波拉契数列的前10项}var a:array[1..10] of integer; i:integer;begin a[1]:=1; a[2]:=1; for i:=3 to 10 do a[i]:=a[i-1]+a[i-2]; for i:=1 to 10 do begin write(a[i],' '); end; readln;end. 阅读全文