POJ 1001

　　前几天跟Clavichord比赛……比的就是POJ 1001.虽然是水题吧，但是参加了几届NOIP之后高精度一点也不会写了……

　　晚自习第三节“比赛”开始，比谁先写出这个题。题目是给若干组实数a、b，求a^b……

　　我刚打开Lazarus，Clavichord猥琐地说他已经写了一半了……不公平啊，逼迫他删的只剩下头文件……得，我也耍赖……我关了Lazarus直接打开Eclipse……

　　解法①：直接上Java……

import java.util.*;
import java.math.*;

public class Main {
	public static void main(String[] args) {
		Scanner scanner=new Scanner(System.in);
		BigDecimal a;
		BigDecimal ans;
		long b;
		while (scanner.hasNext()) {
			a=scanner.nextBigDecimal();
			b=scanner.nextLong();
			ans=a;
		    for (int i=2;i<=b;i++)
		    	ans=ans.multiply(a);
		    String str=new String(ans.toPlainString());
		    int len=str.length()-1;
		    while (str.charAt(len)=='0') len--;
		    if (str.charAt(len)=='.') len--;
		    int p=0;
		    while (str.charAt(p)=='0') p++;
		    for (int i=p;i<=len;i++)
		    	System.out.print(str.charAt(i));
		    System.out.println();
			
		}
	}
}

“我强烈鄙视高精度写Java的……”

好吧好吧，我写Pascal行了吧……

{$M 10000000}
program POJ_1001;
var s,ans:ansistring;
    c:char;
    n,i:longint;


function multiply(s,q:ansistring):ansistring;
var a,b,c:array[1..110000]of integer;
    len,len1,len2,float,i,j:longint;
    ans:ansistring;
begin
  fillchar(c,sizeof(c),0);
  multiply:='';
  float:=(length(s)-pos('.',s))+(length(q)-pos('.',q));
  delete(s,pos('.',s),1);delete(q,pos('.',q),1);
  ans:='';
  for i:=1 to length(s) do a[length(s)-i+1]:=ord(s[i])-ord('0');
  for i:=1 to length(q) do b[length(q)-i+1]:=ord(q[i])-ord('0');
  len1:=length(s);
  len2:=length(q);
  for i:=1 to len1 do
    for j:=1 to len2 do
      begin
        c[i+j-1]:=c[i+j-1]+a[i]*b[j];
        c[i+j]:=c[i+j]+c[i+j-1] div 10;
        c[i+j-1]:=c[i+j-1] mod 10;
      end;
  len:=len1+len2+1;
  while c[len]>0 do
    begin
      c[len+1]:=c[len] div 10;
      c[len]:=c[len] mod 10;
      inc(len);
    end;
  for i:=len downto 1 do ans:=ans+chr(c[i]+ord('0'));
  insert('.',ans,len-float+1);
  exit(ans);
end;

begin
  while not eof() do
    begin
      s:='';
      read(c);
      while c<>' ' do
        begin
          s:=s+c;
          read(c);
        end;
      readln(n);
      ans:=s;
      for i:=2 to n do
        ans:=multiply(ans,s);
      while ans[length(ans)]='0' do delete(ans,length(ans),1);
      while ans[1]='0' do delete(ans,1,1);
      if ans[length(ans)]='.' then delete(ans,length(ans),1);
      writeln(ans);
    end;
end.

最后还是悲剧地输了……输在忘了处理100.00的情况，我应该把小数点一起删掉的……