摘要：
虽然写出了代码，但一直没有明白其过程是如何实现的。 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. 阅读全文