UVa OJ
LaMarcus
OIer
展开
-
UVa OJ 11933-Splitting Numbers
<br />还是模拟:<br />{ Author:wzx961008 Problem:UVa 11933-Splitting Numbers Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-03-23 16:35:17}uses math;var ans1,ans2,len,n,i,num:longint; s,a,b:string;function change_原创 2011-03-24 01:22:00 · 818 阅读 · 0 评论 -
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 · 597 阅读 · 0 评论 -
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 · 445 阅读 · 0 评论 -
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 · 578 阅读 · 0 评论 -
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 · 867 阅读 · 0 评论 -
UVa OJ 10008-What's Cryptanalysis?
<br /> <br />简单统计,水题:<br />{ Author:wzx961008 Problem:UVa 10008-What's Cryptanalysis? Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-01-30 16:26:08}type letter=record c:char; num:longint;原创 2011-01-31 00:32:00 · 552 阅读 · 0 评论 -
UVa OJ 10929-You can say 11
<br /> <br />水题:<br />{ Author:wzx961008 Problem:UVa 10929-You can say 11 Verdict:Accepted Language:PASCAL Run Time:0.032s Submission Date:2011-01-30 15:54:17}var n:ansistring; sum,i:longint;begin while true do begin readln(n);原创 2011-01-30 23:59:00 · 472 阅读 · 0 评论 -
UVa OJ 10994-Simple Addition
<br /> <br />纯数学题,搞了好久:<br />{ Author:wzx961008 Problem:UVa 10994-Simple Addition Verdict:Accepted Language:PASCAL Run Time:0.028s Submission Date:2011-01-30 15:00:23}var p,q:longint;function f(n:int64):int64;var ans:int64; i:longi原创 2011-01-30 23:09:00 · 483 阅读 · 0 评论 -
UVa OJ 495-Fibonacci Freeze
<br /> <br />水题,高精:<br />{ Author:wzx961008 Problem:UVa 495-Fibonacci Freeze Verdict:Accepted Language:PASCAL Run Time:0.660s Submission Date:2011-01-27 15:59:00}var f:array[0..5001]of ansistring; n:array[1..10000]of longint; i,t,原创 2011-01-28 12:38:00 · 686 阅读 · 0 评论 -
UVa OJ 488-Triangle Wave
<br /> <br />简单模拟:<br />{ Author:wzx961008 Problem:UVa 488-Triangle Wave Verdict:Accepted Language:PASCAL Run Time:0.248s Submission Date:2011-03-19 04:29:26}var n,i,j,k,t,cas,amp,fre:longint;begin readln(n); for cas:=1 to n do begin原创 2011-01-15 11:43:00 · 576 阅读 · 0 评论 -
UVa OJ 568-Just the Facts
<br /> <br />简单数论:<br />{ Author:wzx961008 Problem:UVa 568-Just the Facts Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-01-14 14:20:24}var n,i,s:longint;begin while not eof do begin readln(n); s:=1; for原创 2011-01-14 23:30:00 · 402 阅读 · 0 评论 -
UVa OJ 494-Kindergarten Counting Game
<br /> <br />果然是幼儿园题目:<br />{ Author:wzx961008 Problem:UVa 494-Kindergarten Counting Game Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-01-14 03:44:47}var s:string; p,tot:longint;begin while not eof do begi原创 2011-01-14 12:30:00 · 552 阅读 · 0 评论 -
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 · 637 阅读 · 0 评论 -
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 · 1036 阅读 · 0 评论 -
UVa OJ 10171-Meeting Prof. Miguel...
<br />本来一个Floyd Warshall可以秒过的,但是我用了Dijikstra+heap锻炼水平,并且数据大时也不怕,算法:分别以各自能否走构两个图,枚举每个碰面点,分别在这两个图里做最短路,加起来最短的那个就是碰面点:<br />Source:UVa OJ 10171-Meeting Prof. Miguel...原创 2011-03-24 22:33:00 · 1092 阅读 · 0 评论 -
UVa OJ 11926-Multitasking
<br /> <br />模拟:<br />{ Author:wzx961008 Problem:UVa 11926-Multitasking Verdict:Accepted Language:PASCAL Run Time:0.084s Submission Date:2011-03-23 16:32:05}const maxnum=1000000;var ok1,ok2:array[0..1000000]of boolean; n,m,T,i,l,r,ta原创 2011-03-24 01:19:00 · 651 阅读 · 0 评论 -
UVa OJ 11935-Through the Desert
<br />模拟:<br />{ Author:wzx961008 Problem:UVa 11935-Through the Desert Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-03-23 16:37:16}var now_csp,now_loc,last_loc,leak_num,space_num:longint; now_fuel,min_volume:ex原创 2011-03-24 01:26:00 · 726 阅读 · 0 评论 -
UVa OJ 11934-Magic Formula
<br />数学题:<br />{ Author:wzx961008 Problem:UVa 11934-Magic Formula Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-03-23 16:36:15}var a,b,c,d,L,i,tot:longint;function f(x:integer):longint;begin exit(a*x*x+b*x+c);原创 2011-03-24 01:24:00 · 597 阅读 · 0 评论 -
UVa OJ 11015-05-2 Rendezvous
<br />图论水题,一个裸的Floyd Warshall再枚举:<br />{ Author:wzx961008 Problem:UVa 11015-05-2 Rendezvous Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-03-22 12:48:53}const oo=maxlongint;var graph:array[1..22,1..22]of qword;原创 2011-03-22 20:55:00 · 622 阅读 · 0 评论 -
UVa OJ 10591-Happy Number
<br />模拟:<br />{ Author:wzx961008 Problem:UVa 10591-Happy Number Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-03-05 06:32:08}var n,i,num:longint; f:array[1..1000]of boolean;function happy(num:longint):boolean原创 2011-03-19 17:31:00 · 513 阅读 · 0 评论 -
UVa OJ 11462-Age Sort
<br /> <br />快排:<br />{ Author:wzx961008 Problem:UVa 11462-Age Sort Verdict:Accepted Language:PASCAL Run Time:0.948s Submission Date:2011-02-14 09:34:03}var a:array[1..2000000]of longint; n,i:longint;procedure qsort(l,r:longint);va原创 2011-03-19 17:36:00 · 702 阅读 · 0 评论 -
UVa OJ 11727-Cost Cutting
<br />题目能够水成这样:<br />{ Author:wzx961008 Problem:UVa 11727-Cost Cutting Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-02-11 09:39:13}var n,i,a,b,c:longint;begin readln(n); for i:=1 to n do begin readln(a,b,c)原创 2011-03-19 17:27:00 · 588 阅读 · 0 评论 -
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 · 454 阅读 · 0 评论 -
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 · 740 阅读 · 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 · 479 阅读 · 0 评论 -
UVa OJ 10018-Reverse and Add
<br />高精+简单模拟,一次AC:<br />{ Author:wzx961008 Problem:UVa 10018-Reverse and Add Verdict:Accepted Language:PASCAL Run Time:0.828s Submission Date:2011-01-14 02:48:35}var n,i,tot:longint; s:string;function Reverse(s:ansistring):ansistrin原创 2011-01-14 11:02:00 · 113 阅读 · 0 评论 -
UVa OJ 458-The Decoder
<br /> <br />..........唉:<br />{ Author:wzx961008 Problem:UVa 458-The Decoder Verdict:Accepted Language:PASCAL Run Time:0.032s Submission Date:2011-01-13 16:23:17}var i:longint; s:string;begin while not eof do begin readln(s);原创 2011-01-14 00:29:00 · 710 阅读 · 1 评论 -
UVa OJ 10055-Hashmat the Brave Warrior
<br /> <br />一开始变量开小了,哎:<br />{ Author:wzx961008 Problem:UVa 10055-Hashmat the Brave Warrior Verdict:Accepted Language:PASCAL Run Time:0.152s Submission Date:2011-01-13 09:29:12}var a,b:int64;function abs(i:int64):int64;begin if i>0 t原创 2011-01-13 17:37:00 · 498 阅读 · 0 评论 -
UVa OJ 10815-Andy's First Dictionary
<br /> <br />简单统计+快排:<br />{ Author:wzx961008 Problem:UVa 10815-Andy's First Dictionary Verdict:Accepted Language:PASCAL Run Time:0.528s Submission Date:2011-01-14 12:43:12}var dict:array[1..5001]of string; num,i:longint; t:boole原创 2011-01-14 21:00:00 · 531 阅读 · 0 评论 -
UVa OJ 299-Train Swapping
<br /> <br />简单,不解释:<br />{ Author:wzx961008 Problem:UVa 299-Train Swapping Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-01-14 04:46:24}var i,j,n,t,ans:longint; a:array[1..51]of longint;procedure swap(var a,原创 2011-01-14 20:19:00 · 437 阅读 · 0 评论 -
UVa OJ 10082-WERTYU
<br /> <br />模拟:<br />{ Author:wzx961008 Problem:UVa 10082-WERTYU Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-03-19 05:37:43}const s:string='`1234567890-=QWERTYUIOP[]//ASDFGHJKL;''ZXCVBNM,./';var i:longint;原创 2011-01-14 20:17:00 · 436 阅读 · 0 评论 -
UVa OJ 113-Power of Cryptography
<br />double的强大:<br />{ Author:wzx961008 Problem:UVa 11461-Square Numbers Verdict:Accepted Language:PASCAL Run Time:0.028s Submission Date:2011-02-11 05:31:21}uses math;var n,p:double;begin while not eof do begin readln(n); read原创 2011-01-14 11:28:00 · 398 阅读 · 0 评论 -
UVa OJ 10035-Primary Arithmetic
<br /> <br />简单高精:<br />{ Author:wzx961008 Problem:UVa 10035-Primary Arithmetic Verdict:Accepted Language:PASCAL Run Time:0.032s Submission Date:2011-01-14 01:44:21}uses math;var s1,s2:string; c:char; i,add,tot:longint;begin原创 2011-01-14 09:51:00 · 457 阅读 · 0 评论 -
UVa OJ 10038-Jolly Jumpers
<br /> <br />一开始忘打readln了:<br />{ Author:wzx961008 Problem:UVa 10038-Jolly Jumpers Verdict:Accepted Language:PASCAL Run Time:0.016s Submission Date:2011-01-14 00:47:15}var a:array[1..3001]of longint; f:array[0..6001]of boolean; i,原创 2011-01-14 08:53:00 · 411 阅读 · 0 评论 -
UVa OJ 10071-Back to High School Physics
<br /> <br />对此题表示很无语:<br />{ Author:wzx961008 Problem:UVa 10071-Back to High School Physics Verdict:Accepted Language:PASCAL Run Time:0.028s Submission Date:2011-01-13 09:14:36}var v,t:integer;begin while not eof do begin readln(v,t原创 2011-01-13 17:19:00 · 679 阅读 · 0 评论 -
UVa OJ 10361-Automatic Poetry
<br /> <br />还是字符串处理:<br />{ Author:wzx961008 Problem:UVa 10361-Automatic Poetry Verdict:Accepted Language:PASCAL Run Time:0.008s Submission Date:2011-01-12 06:41:09}var i,j,n,top:longint; s1,s2,s3:string; word:array[1..5]of strin原创 2011-01-13 15:24:00 · 405 阅读 · 0 评论 -
UVa OJ 537-Artificial Intelligence?
<br /> <br />简单的字符串处理:<br />{ Author:wzx961008 Problem:UVa 537-Artificial Intelligence? Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-01-12 09:14:55}var n,ii,j,t:longint; I,P,U:extended; tp,tu,ti:boolean;原创 2011-01-13 15:23:00 · 529 阅读 · 0 评论 -
UVa OJ 375-Inscribed Circles and Isosceles Triangles
<br />简单数学题:<br /> <br />{ Author:wzx961008 Problem:UVa 375-Inscribed Circles and Isosceles Triangles Verdict:Accepted Language:PASCAL Run Time:0.088s Submission Date:2011-01-12 16:08:51}var l,n,i,j,tmp:longint; b,h,h1,r,r1,e,ans:doubl原创 2011-01-13 15:15:00 · 534 阅读 · 0 评论 -
UVa OJ 136-Ugly Numbers
<br />这个真不解释了:<br />{ Author:wzx961008 Problem:UVa 136-Ugly Numbers Verdict:Accepted Language:PASCAL Run Time:0.012s Submission Date:2011-01-11 12:43:59}begin writeln('The 1500''th ugly number is 859963392.');end.原创 2011-01-13 15:09:00 · 1169 阅读 · 0 评论 -
UVa OJ 10300-Ecological Premium
<br /> <br />彻底无语。。。:<br />{ Author:wzx961008 Problem:UVa 10300-Ecological Premium Verdict:Accepted Language:PASCAL Run Time:0.008s Submission Date:2011-01-14 15:33:45}var task,i,n,ans,a,b,c:longint;begin readln(task); for task:=1 to原创 2011-01-14 23:39:00 · 464 阅读 · 0 评论