一个问题。。

升空高飞

问题描述
科学家在热带森林中发现了一种特殊的小动物，取名为“吱吱”。“吱吱”的生长繁殖过程很有规律，每对小“吱吱”经过X个月就长成一对大“吱吱”，每对大“吱吱”每个月都产下Y对小“吱吱”。假设开始时有一对小“吱吱”，并且每对“吱吱”都不死，问：过Z个月后，共有多少对“吱吱”？（X≥1，Y≥1，1≤Z≤24）
（注：若当前是1月，则“过”2个月，是表示到3月的时候）

输入文件1.in：一行，三个整数X，Y，Z

输出文件1.out：一行 一个整数, 表示“吱吱”的总对数。

样例

输入：

2 2 4

输出：

11

这么一道题。。不会PASCAL的也可以懂的。。

我怎么感觉这个样例有问题。。或者说我有问题。。

升空高飞

问题描述：
    在书架上放有编号为1 ，2 ，…，n的n（n<=100）本书。现将n本书全部取下然后再放回去，当放回去时要求每本书都不能放在原来的位置上。
    例如：n = 3时：
    原来位置为：1  2  3
    放回去时只能为：3  1  2  或  2  3  1  这两种
    问题：当取n本书时满足以上条件的放法共有多少种？
输入文件4.in，一行，一个整数n。
输出文件4.out，仅1行，一个整数，表示满足以上条件的放法总数。
样例：
输入
3
输出   
2
此题用高精度解。。不知道我哪里错了。。
var
  f:array[1..100,1..100] of integer;
  a:array[1..100]of integer;
  n,i,k:longint;
begin
   assign(input,'4.in');
  assign(output,'4.out');
  reset(input);rewrite(output);
  read(n);
  f[2,100]:=1;
  for i:= 3 to n do
    begin
      fillchar(a,sizeof(a),0);
      for k:= 100 downto 1 do
        begin
          a[k]:=f[i-1,k]+f[i-2,k]+a[k];
          if a[k]>9 then begin a[k-1]:=a[k-1]+a[k] div 10;a[k]:=a[k] mod 10;end;

        end;
       for k:=100 downto 1 do
         begin
           f[i,k]:=(i-1)*a[k];
           if f[i,k]>9 then begin f[i,k-1]:=f[i,k-1]+f[i,k] div 10;f[i,k]:=f[i,k]mod 10;end;
         end;
    end;
  k:=1;
  while f[n,k]=0 do k:=k+1;
  for i:= k to 100 do
   write(f[n,i]);
   close(input);close(output);
end.

wzxhhcm

我晕了
....别看我

纽约之眼

？？？
LZ写的都是啥？？

津津

直接被绕晕！

升空高飞

- =极光知道。。。。。。。。。。。。。。。。。

升空高飞

不过第一个是数学问题。。。。

flyingpig

PASCAL语法...学C的路过...

极光

用数
X就是X棵树
然后这样下去


PS：LS。。。。。算法是相同的,C语言只不过灵活一点而已，数学还是比不上PASCAL的

升空高飞

哦。。。我好像没想到。。。。。。。。。。。。

flyingpig

- =...
我在网上除了玩游戏就是看动漫
除了看动漫就是看同人
除了看同人就是看小说
除了看小说就是qq聊天
除了qq聊天就是......啥捏...反正就不学点正规知识