www.qprq.net > pAsCAl,求24点计算程序

pAsCAl,求24点计算程序

Type nt=record val:real; c:integer; s:string[100]; end; an=array[1..4] of nt; Var b:an; a:array[1..4] of real; i:integer; found,error:boolean; Function ist(n:integer):string; var s:string; begin s:=''; repeat s:=chr(ord('0')+n ...

可能有点小超时(pp为个数,ppp为所求数) Type nt=record val:real; c:integer; s:string[100]; end; an=array[1..100] of nt; Var b:an; a:array[1..100] of real; pp,ppp,i:integer; found,error:boolean; Function ist(n:integer):string; va...

下面是N年前用JS写的,那时刚学编辑,方法很笨,连命名都不规范,后面写了一个很简洁的,但代码找不见了,和pascal语法不一样,你可以参考一下编辑思路,然后改写一下 function fun1(e1,e2,e3,e4) { var i,j,k,a,b,c,d,t1,t2,t3; var opx=["+","...

网站地图

All rights reserved Powered by www.qprq.net

copyright ©right 2010-2021。
www.qprq.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com