【题解】洛谷1028 数的计算

本题地址： http://www.luogu.org/problem/show?pid=1028

题目描述

　　我们要求找出具有下列性质数的个数(包含输入的自然数n):
　　先输入一个自然数n(n<=1000),然后对此自然数按照如下方法进行处理:
　　1.不作任何处理;
　　2.在它的左边加上一个自然数,但该自然数不能超过原数的一半;
　　3.加上数后,继续按此规则进行处理,直到不能再加自然数为止.

输入输出格式

输入格式：

一个自然数n(n<=1000)

输出格式：

一个整数，表示具有该性质数的个数。

输入输出样例

输入样例#1：

6

输出样例#1：

6

说明

满足条件的数为
6，16，26，126，36，136

题意不清，实际上所谓原数不是得到的新数，而是加上的那个数，即有个不断更新的x,新x不能超过原来x的一半，求合法的数目。

写法一：递推

状态转移方程：f[i]:=f[i-1](+f[i div 2]（odd(i)时)

其实挺好理解，看懂题意即可。

var a:array[0..100000]of longint;

  i,j,sum,n:longint;

begin

readln(n);

a[1]:=1;

for i:=2 to n do

  if i mod 2=0 then

  a[i]:=a[i-1]+a[i div 2]

    else a[i]:=a[i-1];

writeln(a[n]);

end.

写法二：递归

这是个刚看上去比较神奇的写法，但我默默看了眼标签是函数与递归。。。好吧可能这个才是出题人的答案，用dp刷题多了会有惯性的。不过殊途同归嘛

说一下这个写法，就是对于当前的i,从1到i div 2递归下去，记录每一个合法的路径点。

var sum,n,i:longint;

procedure dep(x:longint);

  var t,i:longint;

  begin

  inc(sum);

  t:=x div 2;

  for i:=1 to t do

    dep(i);

  end;

begin

readln(n);

dep(n);

writeln(sum);

end.