UC知道pascal问题.
来源：百度知道 编辑：UC知道 时间：2024/06/10 19:18:09
1. program s401;
var p,q:array[0..5] of integer;
i,x,y:integer;
begin
y:=20;
for i:=0 to 4 do read(p[i]);
readln;
q[0]:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;
q[1]:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);
q[2]:=p[0]*p[1] div p[2];
q[3]:=q[0]*q[1];
q[4]:=q[1]+q[2]+q[3];
x:=(q[0]+q[4]+2)-p[(q[3]+3) mod 4];
if (x>10) then
y:=y+(q[1]*100-q[3]) div (p[p[4] mod 3]*5)
else
y:=y+20+(q[2]*100-q[3]) div (p[p[4] mod 3]*5);
writeln(x,',',y);
end.
/*注：本例中，给定的输入数据可以避免分母为 0 或下标越界。*/
输入：6 6 5 5 3
输出：
我要的是解题思路..
答案已经有了..
var p,q:array[0..5] of integer;
i,x,y:integer;
begin
y:=20;
for i:=0 to 4 do read(p[i]);
readln;
q[0]:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;
q[1]:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);
q[2]:=p[0]*p[1] div p[2];
q[3]:=q[0]*q[1];
q[4]:=q[1]+q[2]+q[3];
x:=(q[0]+q[4]+2)-p[(q[3]+3) mod 4];
if (x>10) then
y:=y+(q[1]*100-q[3]) div (p[p[4] mod 3]*5)
else
y:=y+20+(q[2]*100-q[3]) div (p[p[4] mod 3]*5);
writeln(x,',',y);
end.
/*注：本例中，给定的输入数据可以避免分母为 0 或下标越界。*/
输入：6 6 5 5 3
输出：
我要的是解题思路..
答案已经有了..
这是初赛里面的程序阅读题吧，没什么别的诀窍啊，就是把6 6 5 5 3代进去自己模拟一遍，这样的程序很简单(没有循环)，所以就是考细心的，认真做一下都可以对的，没有什么具体意义，也没有什么思路，纯手排
你的题都不说怎么说思路啊？
题目哦~~~
这种题不能找捷径,关键是计算要细心,注意:模拟计算千万不要出错