王朝知道

分享

 

01.帮我解决一道pascal题
vara:array[1..1000] of longint;m,i,j,n,s:longint;begins:=0;readln(n);for i:=1 to n do beginread(a);m:=m+a;end;m:=m div n;for i:=1 to n do a:=a-m; for i:=2 to n doif a[i-1]<>0 then begina:=a+a[i-...查看完整版>>帮我解决一道pascal题02.帮我解决一道pascal题
const maxn=20;varfname:string;a:array[1..maxn]of integer;p:array[1..400]of boolean;n:integer;fin:text;function gcd(a,b:integer):integer;begin if b=0 then gcd:=a else gcd:=gcd(b,a mod b);end;fun...查看完整版>>帮我解决一道pascal题03.帮我解决一道pascal题
var c:char;a:longint;b:boolean;begin b:=true; while not eof do begin read(c); if not odd(ord(c)-48) then begin b:=false; readln; ...查看完整版>>帮我解决一道pascal题04.帮我解决一道题~~
设甲的速度x千米每小时，则乙为x+10千米每小时根据甲乙两人用时间相同列方程：15/x=20/60+40/60+(15+15)/(x+10)解得x=5千米每小时所以甲用时15/5=3小时所以两人同时到达B地是6＋3＝9点整...查看完整版>>帮我解决一道题~~05.帮我解决一道题
2xy-1=0 2xy=1x+y-2=0 x+y=2x^2+6xy+y^2=(x+y)^2+4xy=4+4=8...查看完整版>>帮我解决一道题06.请您帮我解决一道题~~
设最大利润为Q,Q=x*P-R=x*(150-2x)-500-30x=-2x^2+120x-500(其中x^2意思是x的平方),接下来的问题便是求一元二次函数最值的问题,这里看成是Q关于x的一元二次函数,且求最大值,则当x=30时,Q最大为1300...查看完整版>>请您帮我解决一道题~~07.谁能帮我解决一道难题~谢谢
1+a+a*a+a*a*a=0(1+a)(1+a*a)=0a=-1所以原式=2...查看完整版>>谁能帮我解决一道难题~谢谢08.谁能帮我解决一道题
设杨树为X，柳树为Y，桃树为Z。2/5*X=Y-70=5/4*ZX+Y+Z=1360解得X=750Y=370Z=240...查看完整版>>谁能帮我解决一道题09.谁能帮我解决一个PASCAL的练习？
1楼的太烦琐2楼的不精确如果只是小时的转化楼主请看下面代码希望可以满意var a:integer; begin readln(a); if a>12 then writeln(a mod 12,'pm');if a<12 then writeln(a,'am'); end. 加上分秒只需vara,b,c:in...查看完整版>>谁能帮我解决一个PASCAL的练习？10.帮我解决一道很简单的题目
根据企业会计制度（2001）的规定，资产负债表“应收账款”项目，反映企业因销售商品、产品和提供劳务等而应向购买单位收取的各种款项，减去以计提的坏账准备后的净额。本项目应根据“应收账款”科目所属各明细科目的...查看完整版>>帮我解决一道很简单的题目

 

 

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