王朝知道

分享

 

01.pascal 快排标程的祥解
原理：把数组分成两边，使左边的数总是小于右边的，再分别排序（好像是分治....）procdure sort(l,r:longint);var i,j,x,y:longint;begin i:=l;j:=r;x:=a[(i+j) shr 1]; {shr 1就是 div 2,x似乎只是用来比较...查看完整版>>pascal 快排标程的祥解02.[pascal]有一只老兔子，每个月生小兔子，然后……
.Fibonacci序列 除第一、第二项外每一项是它前两项的和； 若首项为f0为0,则序列为0，1，1，2，3，5，8...递推关系为(n>=2)fn=fn-1+fn-2 前n项的和Sn=f0+f1+f2+...+fn=fn+2-1 例9:以下是Fibonacci的示例: ...查看完整版>>[pascal]有一只老兔子，每个月生小兔子，然后……03.解释我的pascal程序，问题我已经写出来了，请解释一下
program rr; var s,i:char; begin for i:='a' to 'd' do{当循环结束时，i='d'} begin if ord(i<>'a')+ord(i='c')+ord(i='d')+ord(i<>'d')=3 {判断谁说谎}then s:=i;{把说谎者存入‘s'中} end; write(s);...查看完整版>>解释我的pascal程序，问题我已经写出来了，请解释一下04.简单PASCAL
上楼的朋友在输出的结果有时好象会出现除不尽的数。以下这个如何？program du_fen_miao_;var du1,du2,du3,fen1,fen2,fen3,miao1,miao2,miao3:integer;begin writeln; write('du1='); read(du1); write('fen1='...查看完整版>>简单PASCAL05.pascal问题
又是"小"问题while i<n*n do begin for i:=i+1 to i+k do begin x:=x+y; //注意,应该是x:=x+j;r[x,y]:=i; end;...查看完整版>>pascal问题06.我用super-pascal 2.0编程,运行后自动关
不是没注册!（不需要注册啊）按“Alt” +“F5”就可以查看结果。如果你不喜欢这样，就在最后一个end.前面加一个readln;...查看完整版>>我用super-pascal 2.0编程,运行后自动关07.Pascal标准函数里Chr求ASCII码值和Trunc截尾函数各是什么意思？
ASCII码实际上是将数字与字符一一对应，如‘A’对 65 '1' 对 49chr(65)='A'chr(49)='1'这是将数字转换成它对应的字符。是将integer转换成char。这是它的反函数，将字符转换成它对应的数字。是将char转换成integer。...查看完整版>>Pascal标准函数里Chr求ASCII码值和Trunc截尾函数各是什么意思？08.汉诺塔PASCAL源程序有个问题
这是一个递归调用的例子，下面的网页有此问题的较详细资料，包括源程序、递归调用分析等。...查看完整版>>汉诺塔PASCAL源程序有个问题09.关于VB和Pascal~
我学的数据结构就是用类pascal语言的啊，与pascal类似的。建议要了解。对付考试...查看完整版>>关于VB和Pascal~10.PASCAL问题！急！请诸位大虾帮帮忙吧！！！
var n : integer; a : array[0..20] of integer;procedure cal(dep:integer;now:integer);var i : integer;begin if now=n then // 走完时 begin for i:=1 to dep-1 do write(a); writeln; ex...查看完整版>>PASCAL问题！急！请诸位大虾帮帮忙吧！！！

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。