#include 1. max_element(v.begin(), v.end());2. min_element(v.begin(), v.end());3. find(v.begin(), v.end(), 3);4. sort(v.begin(), v.end());5. reverse(p...
分类：
其他好文 时间：
2014-08-18 14:20:42
阅读次数：
170
1 DATA:num TYPE i. 2 CONSTANTS: times TYPE i VALUE 29. 3 DATA: BEGIN OF ih_lgty, 4 lgty TYPE lgtyp, 5 END OF ih_lgty, 6 it_lgty LIKE TABLE OF ih_lg...
分类：
其他好文 时间：
2014-08-18 10:34:03
阅读次数：
183
var g:array[1..10,1..10] of longint; d:array[1..10] of longint; f:array[1..10] of boolean;procedure prim; var i,j,k,min:longint; begin fillchar...
分类：
其他好文 时间：
2014-08-17 22:41:22
阅读次数：
181
以下标程均为十进制，如改为10n进制可提高n倍速度。建议不要使用operator对运算符进行重载，虽然用起来很方便，但是NOIP中不一定能用，速度也会慢一些。高精度数大小比较function a_dy_b(a,b:arr):boolean;var i:integer;begin i:=a[0]; ....
分类：
其他好文 时间：
2014-08-17 22:31:02
阅读次数：
401
4.11054.2*vec.begin()=*（vec.begin()）//先调用点运算符，再解引用*vec.begin()+1=(*vec.begin())+1//先解引用，再加一4.3略？4.4(12/3*4)+(5*15)+(24%4/2)=914.5（a）-86（b）-16（c）0 （d）0...
分类：
编程语言 时间：
2014-08-17 21:09:52
阅读次数：
365
procedure TForm1.Timer1Timer(Sender: TObject);varm:tmessage;begin m.Msg:=WM_VSCROLL; m.WParamLo:=SB_LINEDOWN; m.WParamHi:=1 ; m.LParam:=0; postmessage...
分类：
数据库 时间：
2014-08-16 16:26:00
阅读次数：
181
A. Pashmak and Garden题意：给你两个正方形的顶点坐标，让你求出另两个顶点的坐标题解：分情况讨论即可代码： 1 var x1,x2,y1,y2:longint; 2 begin 3 readln(x1,y1,x2,y2); 4 if x1=x2 then writeln(x...
分类：
其他好文 时间：
2014-08-16 13:43:50
阅读次数：
242
--数字处理的几个常用自定义Sql函数--小数开头没有0和末尾多余0处理CREATE function [dbo].[FormatFloat](@dec decimal(18,10)) returns varchar(30) as begin declare @inValue varchar(30)...
分类：
数据库 时间：
2014-08-16 12:28:10
阅读次数：
242
delphi使用outputdebugstring调试程序和写系统日志procedure TForm1.btn1Click(Sender: TObject);begin OutputDebugString('dddddd'); OutputDebugString('11');end;proced.....
分类：
其他好文 时间：
2014-08-16 12:25:20
阅读次数：
347
//譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取:var s: string;begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS}end;%WINDIR% {系统目录 -...
分类：
其他好文 时间：
2014-08-16 09:36:40
阅读次数：
210
