- 博客(9)
- 收藏
- 关注
原创 UVa OJ 11461-Square Numbers
<br />简单题,判断区间的平方数个数:<br />{ Author:wzx961008 Problem:UVa 11461-Square Numbers Verdict:Accepted Language:PASCAL Run Time:0.028s Submission Date:2011-02-11 05:31:21}var a,b,i,ans:longint; f:array[1..100000]of -1..1;begin while not e
2011-02-11 13:33:00 453
原创 UVa OJ 11417-GCD
<br /> <br />最大公约数:<br />{ Author:wzx961008 Problem:UVa 11417-GCD Verdict:Accepted Language:PASCAL Run Time:0.044s Submission Date:2011-02-11 03:54:23}var i,j,g,n:longint; f:array[1..501,1..501]of longint;function gcd(a,b:longint):lo
2011-02-11 12:01:00 736 2
原创 UVa OJ 10302-Summation of Polynomials
<br />水题,直接模拟:<br />{ Author:wzx961008 Problem:UVa 10302-Summation of Polynomials Verdict:Accepted Language:PASCAL Run Time:0.096s Submission Date:2011-02-11 03:39:05}var n:longint; ans,i:qword; f:array[1..50000]of qword;begin
2011-02-11 11:42:00 476
原创 UVa OJ 11636-Hello World!
<br />巨水:<br />{ Author:wzx961008 Problem:UVa 11636-Hello World! Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-02-10 08:19:21}var casenum,num,ans,t,n:longint;begin while true do begin inc(casenum); readln(n
2011-02-10 16:21:00 1033
原创 UVa OJ 748-Exponentiation
高精:{ # Problem Verdict Language Run Time Submission Date 8567185 748 Exponentiation Accepted PASCAL 0.016 2011-02-09 12:55:02}var s:string[9]; base,ans:ansistring; pt,ps,pp,i,m:longint;function HighMult
2011-02-09 20:57:00 634
原创 UVa OJ 10106-Product
<br /> <br />高精:<br />{ Author:wzx961008 Problem:UVa 10106-Product Verdict:Accepted Language:PASCAL Run Time:0.020s Submission Date:2011-02-09 11:43:13}var a,b:string;function HighMultiply(s1,s2:string):ansistring;var a,b,c:array[1..100
2011-02-09 19:55:00 595
原创 UVa OJ 673-Parentheses
<br /> <br />用栈轻松解决:<br />{ Author:wzx961008 Problem:UVa 673-Parentheses Balance Verdict:Accepted Language:PASCAL Run Time:0.136s Submission Date:2011-02-07 06:40:45}var n,i,top:longint; stack:array[1..128]of char; c:char;functi
2011-02-07 14:44:00 444
原创 UVa OJ 424-Integer Inquiry
<br />高精:<br />{ Author:wzx961008 Problem:UVa 424-Integer Inquiry Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-02-03 15:23:17}var sum,n:string;function HighPlus(s1,s2:string):string;var a,b,c:array[1..103]of int
2011-02-03 23:25:00 576
原创 UVa OJ 406-Prime Cuts
<br />简单质数运算,一开始格式错误,哎,然后加了个hash:<br />{ Author:wzx961008 Problem:UVa 406-Prime Cuts Verdict:Accepted Language:PASCAL Run Time:0.096s Submission Date:2011-02-03 15:04:49}uses math;var i,n,c,top,sum,point:longint; stack:array[1..1000]
2011-02-03 23:13:00 865
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人