www.qprq.net > 24点程序 PASCAL

24点程序 PASCAL

type arr=array[1..4] of integer; var d:arr; f:array[1..3,1..4] of integer; i,j,m,n:integer; procedure print; var i,j:integer; begin for i:=1 to 3 do begin for j:=1 to 3 do if j2 then write(f[i,j]) //除2以外其余都是数字 else cas...

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...

type arr=array[1..4]of integer; var a:arr; r:array[1..3,1..4]of integer; i:integer; procedure print; var i,j:integer; begin for i:=1 to 3 do begin for j:=1 to 4 do if j=2 then case r[i,j]of 1:write('+'); 2:write('-'); 3:write('...

网站地图

All rights reserved Powered by www.qprq.net

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