UC知道一个编程问题Pascal的
来源：百度知道 编辑：UC知道 时间：2024/05/30 23:37:08
编程是：Program ex3;
var
u:arry[0..3] of integer=1,2,3,4;
a,b,c,x,y,z::integer;
begin
read(u[0],u[1],u[2],u[3]);
a:=u[0]+u[1]+u[2]+u[3]-5;
b:=u[0]*(u[1]-u[2] div u[3]+8);
c:=u[0]*u[1] div u[2]*u[3];
x:=(a+b+2)*3-u[(c+3) mod 4];
y:=(c*100-13) div a div (u[b mod 3]*5;
if((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
z:=(a+b+c-x-y)*2;
writeln(x+y-z);
end.
请写出结果：
var
u:arry[0..3] of integer=1,2,3,4;
a,b,c,x,y,z::integer;
begin
read(u[0],u[1],u[2],u[3]);
a:=u[0]+u[1]+u[2]+u[3]-5;
b:=u[0]*(u[1]-u[2] div u[3]+8);
c:=u[0]*u[1] div u[2]*u[3];
x:=(a+b+2)*3-u[(c+3) mod 4];
y:=(c*100-13) div a div (u[b mod 3]*5;
if((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
z:=(a+b+c-x-y)*2;
writeln(x+y-z);
end.
请写出结果：
你程序存在问题
Program ex3;
const
u:array[0..3] of integer=(1,2,3,4);
var
a,b,c,x,y,z:integer;
begin
a:=u[0]+u[1]+u[2]+u[3]-5;
b:=u[0]*(u[1]-u[2] div u[3]+8);
c:=u[0]*u[1] div u[2]*u[3];
x:=(a+b+2)*3-u[(c+3) mod 4];
y:=(c*100-13) div a div (u[b mod 3]*5);
if((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
z:=(a+b+c-x-y)*2;
writeln(x+y-z);
end.
结果是111
没有结果吧...
read(u[0],u[1],u[2],u[3]);
这句是 读取用户输入的数字.没有指定输入的数字.怎么知道结果
初赛题自己算{仔细点}
搞清mod的负数运算
输入是什麽？？？？？？？？？？？
这怎么算那？？！！
111
u:array[0..3] of integer=(1,2,3,4);他会显示error 85“；”expected。
应该写到常量里。 read(u[0],u[1],u[2],u[3]);就不要了
答案是111