UC知道来帮我做Pascal
来源：百度知道 编辑：UC知道 时间：2024/05/25 21:05:42
7、写出程序，以摄氏为单位读入温度值，并以华氏为单位将它输出。摄氏——华氏的转换。
公式是：F＝95 ×C＋32.
8、 某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜。
公式是：F＝95 ×C＋32.
8、 某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜。
7.var c,f:real;
begin
readln(c);
f:=95*c+32;
writeln(f:2);
end.
8.var a,b,c,total:real;
begin
c:=0.5*2;
b:=(c+0.5)*2;
a:=(b+0.5)*2;
total:=a;
a:=total/2+0.5;
b:=a/2+0.5;
c:=b/2+0.5;
writeln(a:0,b:0,c:0);
end.
var
a:real;
begin
read(a);
write((a*95+32):10:3);
end.
利用公式（华氏度-32）*5/9=摄氏度
就行了，其他的你都会吧！
困死呢
7.program txx;
var
x:real;
begin
read(x);
write(x*95+32);
end.
8.program ex;
var x,y,z,t:real;
begin
z:=0.5*2;
y:=(z+0.5)*2;
x:=(y+0.5)*2;
write(x,' ',y,' ',z);
readln;
end.