题解：Pascal计算2^n次方

计算2的N次方

时间限制: 1 Sec  内存限制: 128 MB

题目描述

任意给定一个正整数N(N<=100)，计算2的n次方的值。

 

输入

输入一个正整数N。

 

输出

输出2的N次方的值。

 

样例输入

5

样例输出

32

分析

由于数据较大，所以我们需要高精度计算。

【参考程序主要框架】

procedure main;

begin

  fillchar(a,sizeof(a),0);   //初始化数组

  readln(n);

  a[1]:=1;

  len:=1;

  for i:=1 to n do

  begin

    for j:=1 to len do

    a[j]:=a[j]*2;                             //计算

    for j:=1 to len-1 do                //进位

    if a[j]>=10 then

    begin

      a[j+1]:=a[j] div 10+a[j+1];

       a[j]:=a[j] mod 10;

    end;

    while a[len]>=10 do      //开头去掉无用零

    begin

      a[len+1]:=a[len] div 10;

      a[len]:=a[len]mod 10;

      inc(len);

    end;

  end;

end；

转载于:https://my.oschina.net/u/3233411/blog/829346