Question

几道Pascal编程题帮忙做下(循环嵌套题)~高分悬赏

帮忙基础20分，作出1题15分，多做多追加！！！

一、蜘蛛有8条腿,蜻蜓有6条腿2对翅，蝉有6条腿1对翅。三种虫子共18只，共有118条腿和20对翅，问：每种虫子多少只？（答案：5，7，6）

二、我国古代数学问题：1兔换2鸡，2兔换3鸭，5兔换7鹅。某人用20只兔换得鸡、鸭、鹅共30只。问：其中鸡、鸭、鹅各几只？（答案：2，21，7或4，12，14或6，3，21）

三、利用循环嵌套打印行数n，打印n行如下的图形（例图以n=4为例）
1**** 2**** 3 **** 4* 5 *
**** **** **** ** **
**** **** **** *** ***
**** **** **** **** ****

6**** 7**** 8 * 9 *** 10*******
*** *** *** ***** *****
** ** ***** ******* ***
* * ******* ********* *

11 1 12 1 13 1 14 A
121 333 321 CCC
12321 55555 54321 EEEEE
1234321 7777777 7654321 GGGGGGG

15 A
BAB
CBABC
DCBABCD

四、利用循环嵌套打印行数n，打印n行如下的图形（例图以n=7为例）
1 * 2******* 3 D 4 ABCDCBA 5 4321234
*** ***** CDC BCDCB 32123
***** *** BCDCB CDC 212
******* * ABCDCBA D 1
***** *** BCDCB CDC 212
*** ***** CDC BCDCB 32123
* ******* D ABCDCBA 4321234

五、在你前面有一个长长的阶梯，如果你每步跨2阶，那么最后剩1阶；如果你每步跨3阶，那么最后剩2阶；如果你每步跨5阶，那么最后剩4阶；如果你每步跨6阶，那么最后剩5阶；如果你每步跨7阶，那么正好走完。问你这条阶梯最少有多少阶？（答案：119）

六、计算：1-1/2+1/3-1/4+1/5-…+1/99=？

七、计算：1+1/2+2/3+3/5+5/8+…前20项之和。

最好是文件输入输出，屏幕输入输出也行
非常感谢！
三四题的图不请:

2,4题右斜;3,5题左斜;其余均为对称

看的费事...抱歉啊....

Answer 1

倒着做吧..以前做过..但是程序不见了..晕..小学题..(此处按最优空间时间效率)
program p7;
var
j:array[0..20]of byte;
i:byte;
s:real;
begin
i:=1; j[0]:=1; j[1]:=1; s:=1;
for i:=2 to 20 do
begin j[i]:=j[i-1]+j[i-2]; s:=s+i/j[i]; end;
writeln(s);
end.

program p6;
var
s:real;
i:byte; j:integer;
begin
j:=1;
for i:=1 to 00 do
begin s:=s+1/i*j; j:=j*(-1); end;
end.

program p5;
var
i:integer;
begin
for i:=1 to 1000 do
if (i mod 2=1)and(i mod 3=2)and(i mod 5=4)and(i mod 6=5)and(i mod 7=0)
then begin writeln(i); halt; end;
end.

p3,p4图看不大懂..

program p2;
var
i,j,k:integer;
begin
i:=0;
while i<=15 do begin
j:=0;
while j<=20 do begin
k:=0;
while k<=(20-i-j) do begin
if 2*i+3*j/2+7*k/5=30 then writeln(i,' ',j,' ',k); inc(k,5);
end; inc(j,2); end; inc(i); end;
end.

七里香猪 - 门吏 二级 已经做了第一题,这里我修改下循环范围(不能根据答案写程序).
program p1;
var
z,q,c:integer;
begin
for z:=1 to 14 do
for q:=1 to 10 do
begin
c:=20-2*q;
if (z+q+c=18) and (z*8 +q*6 +c*6=118) and(q*2+c=20) then
writeln('zhizhu=',z,' ','qingting=',q,' ','chan=',c);
end;
end.

补充:关于3,4题的回文三角形,可按如下思路:
若当前做到第i行,则让j循环.
for j:=1 to i do write(chr(65+j-1);{这是输字母,从A开始.}
for j:=i-1 downto 1 do write(chr(65+j-1);{倒序}
如果是输出数字回文,那么直接write(j);就可以了.

答案修改了一下..回答就沉下来了....郁闷..原来在香猪下面的......

那些朋友们怎么吃饭吃丢了呢.....

Answer 2

1.
var
i,j,k:longint;
begin
for i:=1 to 16 do
for j:=1 to 16 do
for k:=1 to 16 do
if (i+j+k=18)and(i*8+j*6+k*6=118)and(j*2+k=20) then begin
writeln(i,' ',j,' ',k);
break;
end;
readln;
end.

2.
var
i,j,k:longint;
begin
for i:=2 to 28 do
for j:=3 to 28 do
for k:=7 to 28 do
begin
if (i+j+k=30)and((i div 2)+(j div 3)*2+(k div 7)*5=20)
and(i mod 2=0)and(j mod 3=0)and(k mod 7=0)
then
writeln(i,' ',j,' ',k);
end;
readln;
end.

3.
var
a,i,b,c:longint;
begin
b:=3;c:=1;
for a:=1 to 4 do
begin
for i:=1 to b do write(' ');
for i:=1 to c do write('*');
dec(b);c:=c+2;writeln
end;
b:=1;c:=5;
for a:=1 to 3 do
begin
for i:=1 to b do write(' ');
for i:=1 to c do write('*');
inc(b);c:=c-2;writeln;
end;
end.

var
a,i,b,c:longint;
begin
b:=0;c:=7;
for a:=1 to 4 do
begin
for i:=1 to b do write(' ');
for i:=1 to c do write('*');
inc(b);c:=c-2;writeln;
end;
b:=2;c:=3;
for a:=1 to 3 do
begin
for i:=1 to b do write(' ');
for i:=1 to c do write('*');
dec(b);c:=c+2;writeln;
end;
end.

我把打星号的给你 字母和数字的楼上提示了
你自己去想~ 没时间了

5.
var
i:longint;
begin
i:=0;
repeat
inc(i)
until (i mod 2=1)and(i mod 3=2)and(i mod 5=4)and(i mod 6=5)and(i mod 7=0);
writeln(i);
readln;
end.

6.
var
a:real;i:longint;
begin
a:=0;
for i:=1 to 99 do
if (i mod 2=0) then a:=a-1/i
else a:=a+1/i;
writeln(a);
readln;
end.

7.
var
i,x,y,z:longint;a:real;
begin
a:=1;
x:=1;y:=2;
for i:=1 to 19 do
begin
a:=a+x/y;
z:=x+y;x:=y;y:=z;
end;
writeln(a);
readln;
end.

.........我也要沉下去