Pascal编程二元一次解方程ax by=c,dx ey=f

一三一三亮晶晶满天都是小星星么!笨脑!求采纳

设平路长xkm,坡路长ykm由题意：列方程得x/60+y/30=6.5x/50+y/40=6即x+2y=3904x+5y=1200联立解得：x=150,y=120∴平路长150km,坡路长120km

解题思路：铁皮的总面积等于所有罐头盒的总面积解题过程：设：X张铁皮做罐头盒的侧面，Y张铁皮做罐头盒的底面X+Y=75；2*16X=43YX=43；Y=3216X=16*43=688铁皮75张共可做68

programex1_1;vara,b,c:integer;beginreadln(a,b,c);a:=adiv3;b:=b+a;c:=c+a;b:=bdiv3;a:=a+b;c:=c+b;c:=cd

甲、乙两人速度xy4x+4y=364.5x+(4.5-1.5)y=3630x+5.5=30y(33+15)x=15y

vara,b:array[1..1000000]oflongint;k,n,s,t:longint;procedurebg(p,q:longint);varm,i,j,y:longint;begini

     21x+23y=243 -) 23x+21y=241---------------------  &

这题需要用到高精度加法以及高精度乘法【参考程序】constmaxn=100;varlen,n,i,j,h,k:longint;     a,b:arr

Constn=3;Vara:Array[1..1000]ofinteger;i,m,j,s:integer;BeginFori:=1tomdoa[i]:=1;read(m);j:=0;Fori:=1t

1.C2.B3.C4.A

其实我没编译,但愿能过vari,j,n:longint;beginreadln(n);fori:=1tondobeginforj:=iton-i+1dowrite('');forj:=1toidowr

VARi,j,k:integer;BEGINFORi:=0TO33DOFORj:=0TO50DOBEGINk:=90-i-j;IF15*i+10*j+5*k=500THENwriteln(i:5,j:

programxiaoqiu;varb:integer;a,c:real;begina:=100;c:=100;forb:=2to3do{第一次落地时走过路程为100,也就是a,所以从第2次开始循环}

1、题目没错吧下面是程序,不过不可能符合的啊vari:longint;beginfori:=0to9doifi*6528=(30+i)*8256thenwriteln(i);end.2、vari:lo

vars:string;i:longint;beginreadln(s);writeln(length(s));fori:=1tolength(s)dowrite(s[i],'');writeln;f

x=[-b±√(b^2-4ac)]/(2a)2x^2-4x-1=0a=2,b=-4,c=-1b^2-4ac=16+8=24所以x=(4±2√6)/4x1=(2+√6)/2,x2=(2-√6)/25x+

varm,i,max,j,t:longint;a:Array[0..10000]oflongint;f:array[1..10000]oflongint;beginreadln(m);fori:=1t

这好像是一元二次方程吧?vardet:real;a,b,c:integer;beginread(a,b,c);det:=sqr(b)-4*a*c;ifdet

var  n,k,i:longint;  x,p:extended;begin  readln(k);  x:=0;&n