幫我解邏輯題..解完了~謝謝 (第4頁)

libraleu
個人積分：35分
文章編號：13490400

35分

31樓

2009-07-22 16:34

用VISUAL C++ 的 CONSOLE MODE.
#include "stdafx.h"
#include <stdio.h>
#include <conio.h>
long int cal(long a)
{
if (a==0) return 1;
else return cal(a-1) * (cal(a-1)+1);
}
int _tmain(int argc, _TCHAR* argv[])
{
int i;
for(i=0;i<=5;i++) printf("%d-->%ld\n", i,cal(i));
scanf("%c",&i);
return 0;
}

ofay

ofay
個人積分：1分
文章編號：13490404

1分

32樓

2009-07-22 16:35

a b c d e f
a*(a+1)=b
b*(b+1)=c
.
.
.
.

強尼走路

強尼走路
個人積分：0分
文章編號：13490419

0分

33樓

2009-07-22 16:35

ccccp wrote:
太強大了 ~~~~真...(恕刪)

1乘上下一個數字2等於2

2乘上下一個數字3等於6

6乘上下一個數字7等於42

42乘上下一個數字43等於1086

1086乘上下一個數字1087等於3263442

ccccp

ccccp
個人積分：11分
文章編號：13490501

11分

樓主

2009-07-22 16:38

sorry,被朋友嗆聲..

Joyce, 妳一定要答出來，不然我會笑死妳…

好大的挑戰哦..看來我是當律師的料.

goodversion

goodversion
個人積分：1558分
文章編號：13490519

1558分

35樓

2009-07-22 16:38

libraleu wrote:
用VISUAL C+...(恕刪)

那麼.........

下一個請用組語寫..........

libraleu

libraleu
個人積分：35分
文章編號：13490541

35分

36樓

2009-07-22 16:39

KiKiUnicorn wrote:
A1=1
Aa=A(a-1) X {A(a-1) + 1 }

有點小問題,應改為:
A0=1
An=A(n-1) x (A(n-1) + 1 ) --> n>0

依你的式子, 沒有第0項, 用1代入就錯了.

libraleu

libraleu
個人積分：35分
文章編號：13490777

35分

37樓

2009-07-22 16:46

組語不太會, 用 VB.NET
Sub Main()
Dim i As Integer
For i = 0 To 5
Console.WriteLine(i.ToString + "-->" + cal(i).ToString)
Next
Console.ReadKey()
End Sub
Public Function cal(ByVal a As Long) As Long
If a = 0 Then
Return 1
Else
Return cal(a - 1) * (cal(a - 1) + 1)
End If
End Function

KiKiUnicorn

KiKiUnicorn
個人積分：4825分
文章編號：13490995

4825分

38樓

2009-07-22 16:54

libraleu wrote:
有點小問題,應改為:
A0=1
An=A(n-1) x (A(n-1) + 1 ) --> n>0

依你的式子, 沒有第0項, 用1代入就錯了.

對喔....

那我加一條N>=2