摘要：
单击Free Pascal的快捷方式→属性→选项→把当前代码页改成（OEM）美国→完成。短短的几步操作即可解决！方便吧？ 阅读全文
摘要：
Program Plus;Var a,b,c:array[1..100000] of Integer;Var i,len:Longint;Var x,y:String;Procedure Plus(x,y:String);Var m:Longint;Beginlen:=length(x);For i:=1 to len do a[len-i+1]:=ord(x[i])-ord('0');Len:=length(y);For i:=1 to len do b[len-i+1]:=ord(y[i])-ord('0');IF len<length(x) Then 阅读全文
摘要：
方法1:（实践可行）在安装 XP 和 Windows 7 双系统的电脑上，启动菜单中 Windows XP 启动项显示为“早期版本的 Windows”，看着很别扭。其实通过修改注册表，可以轻松修改启动项的名称。获得完全控制权限点击“开始”，在搜索框中输入“regedit”，按回车键打开注册表编辑器，定位至[HKEY_LOCAL_MACHINE\BCD00000000\Objects\]，右击，选择“权限”打开权限设置对话框，在这里选定需要修改权限的账户，一般是“Administrators”，将下面的“完全控制”项的“允许”项选中。修改双启动菜单定位至 [HKEY_LOCAL_MACHINE\ 阅读全文
摘要：
Program Problem_P1001;Var n,k:Longint;Var a:array[1..10000] of Longint;Var i,m:Longint;procedure qsort(dep,top:longint);var i,j,s,t:longint;begini:=dep; j:=top; s:=a[(i+j) div 2];repeatwhile a[i]<s do inc(i);while a[j]>s do dec(j); if i<=j thenbegint:=a[i];a[i]:=a[j];a[j]:=t;inc(i); dec(j); 阅读全文
摘要：
Program Problem_1025;Var n,i,j,k:Longint;Var a:array[1..10000] of Longint;Procedure Print(a:String;b:Longint);BeginIF b<>n ThenWriteln(a)ElseWrite(a);End;BeginReadln(n);For i:=1 to n do Read(a[i]);For i:=1 to n doBeginIF a[i] mod 2=0 ThenPrint('even',i)Else Print('odd',i);End;E 阅读全文
摘要：
上网两年多了，没有玩过博客，也算是一个孤陋寡闻的网民了，对博客的了解是那么少，可以说是近乎于零。这段时间，身边的朋友总是提到博客，使我对此也产生了浓厚的兴趣，决心上上博客，一观庐山真面目。今晚，是我在网络上的人生重要里程碑。从今天起，我将开始我的博客生涯，成为一名博客（呵呵，不知道这个词对不对？对博客了解的少，一些术语还不太清楚，以后慢慢了解吧。）没想到，由于自己的粗心，刚刚申请的号却遗忘了，怎么也上不去。这个下马威让我很失落，怎么一点也不顺利呢？哼，我一定要上，于是，我经过第二次的申请，终于上来了。先设计一个漂亮的首页再说，然后修改模板，这一改不要紧，改不回去了，唉，就这样吧，我可没时间琢. 阅读全文