Pascal练习！求解！求解！

显示全部楼层 · 2011-3-5 03:15:25

11. 从键盘输入三个正整数a,b,c分别表示一个三角形的三条边，编程确定是否能构成三角形，若能，则输出三角形的类型（用0表示任意三角形，1表示等腰三角形，2表示等边三角形，3表示直角三角形，4表示等腰直角三角形）
12. 设定月收入t的所得税税率r如下：
t
r
t800 0
1000t=800
5%
1500t=100010%
3000t=150015%
t=3000 20%
分别用if语句和Case语句来编写程序，输入某人的月收入，输出所得税、应缴所得税款以及扣除所得税后的实际收入。
13. 某全自动加油站a,b,c三种汽油的单价(元/kg)分别是1.50、1.35和1.18，也提供了“自己加”或“协助加”两个服务等级，这样用户可以得到5%或10%的优惠。编一个程序，用户输入加油量、汽油品种和服务类型(f-自动，m-自己，e-协助)，然后计算应付款。
14. 当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明）
15. 编程模拟剪刀、石头、布游戏：用S表示剪刀，用R表示石头，用P表示布。规则是：剪刀剪布，石头砸剪刀，布包石头。游戏者分别把自己的选择输入，计算机给出结果
16. 输入20个数，求出其中的最大值与最小值.
17. 求100——999中的水仙花数,要求打印出是水仙花的数,并统计个数（水仙花数：若三位数abc，a^3 b^3 c^3=abc ,则称该数为水仙花数。例如： 153，1^3 5^3 3^3=153，则153称为水仙花数）(正确结果: 水仙花数有4个,分别是153,370,371,407)
18. 读入n，利用下列公式计算并输出所求的值。
。
19. 已知，当序列中某乘积项的值小于0.000000001时，表达式的值可作为的近似值，试计算的近似值。
20. 计算式子\" 1－2 4－8 16－32 64－...＋1024\" 的和; (正确结果:683)
21. 求数列a0，a1，a2,a3，……，a10。已知
a0=0，a1=1，a2=1
a3=a0 2a1 a2
a4=a1 2a2 a3
……
正确结果：01136132860129277

各位如果能做出来的话我追加30悬赏！谢谢了！

千问 · 2011-3-5 03:15:25

<pre id=\"best-answer-content\" class=\"reply-text mb10\">r s,n,t,i,j:longint;
begin
assign(input,\'d1.in\');reset(input);
assign(ouput,\'d1.out\');rewrite(output);
readln(n);
j:=-2;
for i:=1 to n do
begin

j:=j 3;

if i mod 2=1 then t:=1 else t:=-1;

s:=s t*j;
end;
writeln(s);
close(input);
close(output);
end.
第二题：
program baid2;
var s,i:longint;
begin
assign(input,\'d2.in\');reset(input);
assign(output,\'d2.out\');rewrite(output);
s:=1;
for i:=1 to 9 do
s:=(s 1)*2;
writeln(s);
close(input);close(output);
end.
第五题：
program dd5;
var s,n,i,a,t:longint;
begin
assign(input,\'d5.in\');reset(input);
assign(output,\'d5.out\');rewrite(output);
readln(n);
s:=1;a:=0;
for i:=2 to n-1 do
begin

t:=s;

s:=s a;

a:=t;
end;
write(s,\' \');
t:=s;
s:=s a;a:=t;
write(s,\' \');
s:=s a;
writeln(s);
close(input);
close(output);
end.
累了，睡觉去了，下面不做了，看着给点分好了。测试过了，应该是对的。