用FORTRAN语言编译两个子函数，关于任意一个自然数的位数..

lolita1995 · 发表于 2014-11-4 10:13:31

实在无头绪，刚学习这门语言，跪求各位大神帮忙。
给一个任意的自然数 n ，n = c ...c c k 1 0
定义以下两个函数
fp(n) = n - SUM (p(j)**j, j=0..k), 其中 p(j) = cj
fq(n) = n - SUM (q(j)**j, j=0..k), 其中 q(j)为在数字集合{c ...c c }中位数为偶数的数量
按照惯例，我们把0**0=1
例如 n = 1234567890
fp(n) = 1234567890 - (0**0 + 9**1 + 8**2 + 7**3 + 6**4 + 5**5 + 4**6 + 3**7 +2**8 + 1**9) = 1234567890 - 11378 = 1234556512
fq(n) = 1234567890 - (1**0 + 1**1 + 2**2 + 2**3 + 3**4 + 3**5 + 4**6 + 4**7 +5*8 + 5**9) = 1234567890 - 2364568 = 1232203322

txt数据为
| 1 | 49160 | | | |--------------------------------|------------| | 2 | 785778 | | | |--------------------------------|------------| | 3 | 682474 | | | |--------------------------------|------------| | 4 | 8435751 | | | |--------------------------------|------------| | 5 | 6805525 | | | |--------------------------------|------------| | 6 | 71706204 | | | |--------------------------------|------------| | 7 | 54957028 | | | |--------------------------------|------------| | 8 | 126234547 | | | |--------------------------------|------------| | 9 | 124038715 | | |

fcode · 发表于 2014-11-4 10:37:12

表示看不懂。如果文字表述有困难，可以写在 word 里，截图也好，上传doc文件也好。

fcode · 发表于 2014-11-4 11:15:54

排了排版，差不多了解了。除了那个 txt 文件之外。

这可能是你想要的代码

[Fortran] 纯文本查看 复制代码

01Program www_fcode_cn
02  Implicit None
03  Integer , parameter :: KI = SELECTED_INT_KIND(10)
04  write(*,*) fp( 1234567890_ki ) , fq( 1234567890_ki )
05   
06contains
07   
08  Integer(Kind=KI) Function fp( n )
09    Integer(Kind=KI) :: n
10    integer(Kind=KI) :: t
11    integer :: k , i
12    integer , allocatable :: c(:)
13    t = n
14    k = 1
15    do
16      if ( t < 10 ) exit
17      t = t/10
18      k = k + 1     
19    end do
20    allocate( c(k) )
21    t = n
22    do i = 1 , k
23      c(i) = mod( t , 10 )
24      t = t/10
25    end do
26    t = 0
27    do i = 1 , k
28      t = t + c(i)**(i-1)
29    end do   
30    fp = n - t
31  End Function fp
32   
33  Integer(Kind=KI) Function fq( n )
34    Integer(Kind=KI) :: n
35    integer(Kind=KI) :: t
36    integer :: k , i , tq
37    integer , allocatable :: c(:) , q(:)
38    t = n
39    k = 1
40    do
41      if ( t < 10 ) exit
42      t = t/10
43      k = k + 1     
44    end do
45    allocate( c(k) , q(k) )
46    t = n
47    tq = 0
48    do i = 1 , k
49      c(i) = mod( t , 10 )
50      t = t/10
51      if ( mod(c(i),2)== 0 ) tq = tq + 1
52      q(i) = tq
53    end do
54    t = 0
55    do i = 1 , k
56      t = t + q(i)**(i-1)
57    end do   
58    fq = n - t
59  End Function fq
60   
61End Program www_fcode_cn

lolita1995 · 发表于 2014-11-5 23:07:51

fcode 发表于 2014-11-4 11:15
排了排版，差不多了解了。除了那个 txt 文件之外。

这可能是你想要的代码

谢谢大神帮忙，不过我已经做出来了。可能我翻译的不太好，TXT那个就是给的数据，然后加个文件读取，语言组织有些凌乱。

跪谢大神帮忙。

[通用算法] 用FORTRAN语言编译两个子函数，关于任意一个自然数的位数..

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章