提问 ( 积分: 5 )

潇

潇湘剑客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #1

1.一个数除以2再减一，再除以2再减一，到第十次结果是一，求这个数，pascal语言，for....=..to..do语句;
2.1-1/2+1/3-1/4+.....+1/9999-1/10000;
3.勒让德多项式,可用下列函数表示:
Pn(x)={1 (n=0)
{x (n=1)
{(2n-1)/n*x*Pn-1(x)-(n-1)/n*Pn-2(x) (n>1)pascal语言.

 

潇

潇湘剑客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #2

1.一个数除以2再减一，再除以2再减一，到第十次结果是一，求这个数，pascal语言，for....=..to..do语句;
2.1-1/2+1/3-1/4+.....+1/9999-1/10000;
3.勒让德多项式,可用下列函数表示:
Pn(x)={1 (n=0)
{x (n=1)
{(2n-1)/n*x*Pn-1(x)-(n-1)/n*Pn-2(x) (n>1)pascal语言.

 

F

farsail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-08

• #3

1.
n := 1;
for i := 1 to 10do
n := (n+1)*2;
2.
sym := 1;
e := 0;
for i := 1 to 10000do
begin
e := e+1/i*sym;
sym := -sym;
end;

3.
此问题较难, 弄不出来

 

A

agelie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-28

• #4

第一个问题：
var
i,D:integer;
begin
D=1;
for i:=1 to 10do
begin
D=(D+1)*2;
end;
...
第二个问题：
var
i,D:integer;
begin
D:=0;
for i:=1 to 10000do
begin
D:=D+1/((-1)^(i-1));
end;
...

 

丁

丁满

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-04

• #5

第3题应该用递归

 

无

无有人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-17

• #6

第1题实际上就是经典的“猴子吃桃”问题，用一个递规就可以解决。
第2题farsail已经做出了。
第3题也是一个递规。
这三个题目是C语言的常见问题。