www.qprq.net > PAsCAl里24点的打法,最好旁边有批注

PAsCAl里24点的打法,最好旁边有批注

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

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和n个数(伪代码中用a[i]数组表示) 伪代码(习惯用C+所以有些用C+语言请见谅): init; //读入 s=0 for i =1 to n do s+= a[i] if s mod 24 =0 then writeln(s div 24) else writeln(s div 24 + 1);

网站地图

All rights reserved Powered by www.qprq.net

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