Longint

首页 > TAG信息列表 > Longint

Delphi下实现adsl自动拨号的两种方法

目录1.利用rasphone.exe2.利用系统api函数 1.利用rasphone.exe 这里直接贴一个断网、联网更换ip的函数，虽然简陋但是还算稳定。 procedure ChangeIp(ConnName: string; Delay1, Delay2: Integer); begin winexec(PChar('rasphone -h "' + ConnName + '"'), sw_hide); Sleep(Del

Delphi 系统[28]关键字和保留字 index、near、far、export、exports、external、name、resident

Delphi 系统[28]关键字和保留字 index、near、far、export、exports、external、name、resident 1、定义： index ：用于在属性中标识序号，以便用相同的属性方法（Get，Set）对不同的属性进行操作。index 关键字也用于在属性中指出多个元素。 near ：标明函数的调用协定，指出函数可以被本地调

复杂的结构化存取(一)

复杂的结构化存取(一) 之所以说复杂, 就是区别与以前谈到的结构化文件存取; 这种复杂的结构化文件也有叫做"复合文档".有些文档不是结构化的, 譬如记事本文件; 结构化的档可以分为以下几类:标准结构化文档、自定义结构化文档(譬如 bmp 文件)和复合文档.这里要谈到的

CF983E NN country

原题链接首先如果不考虑数据范围，珂以想到一个贪心：每一次询问的\(u,v\)，设它们的最近公共祖先为\(lca\)，若当前的\(u,v\)有一条\(u\rightarrow v\)的路径，就直接按这个路径跑；否则尽量往\(lca\)上跑。如果跑不动了，而且也没有\(u\rightarrow v\)的路径，就不能到达。正确性显然。但是数

delphi – LongInt和Integer,LongWord和Cardinal之间的区别

在Delphi中,LongInt和Integer,LongWord和Cardinal有什么区别？有时候我发现DWORD的用法是什么呢？它们在所有版本的Delphi中是否一致？我应该坚持哪一个？简而言之：Longint和Longword是固定大小的整数,前者是有符号的,后者是无符号的,并且通常都是32位大小. XE8中为 Their size

基数排序

第一步以LSD为例，假设原来有一串数值如下所示：73, 22, 93, 43, 55, 14, 28, 65, 39, 81首先根据个位数的数值，在走访数值时将它们分配至编号0到9的桶子中：01 812 223 73 93 434 145 55 65678 289 39第二步接下来将这些桶子中的数值重新串接起来，成为以下的数列：81, 22, 73, 93, 43, 14,

[NOIP2012TG] 洛谷 P1080 国王游戏

题意给定两个等长序列\(a[n],b[n]\)，与整数\(a,b\)。通过调换位置使 \[\max_{i=1}^{n}{\biggl\lfloor\frac{(a\times\prod_{j=1}^{i-1}a_i)}{b_i}\biggr\rfloor}\quad (\forall a_i,\forall b_i \in\mathbb{N+})\] 最小。分析从重新安排顺序容易看出，要求进行排序。这就要求我们

Tyvj P1153 间谍网络

原文链接：http://www.cnblogs.com/lexluthor/articles/1980197.html 代码来自dxh，注释来自lex 1 program ty1153; 2 var 3 inv,cost,nv,v,f,stk,dfn,low,min,sml:array[1..3000]of longint; 4 g,ng:array[1..3000,1..3000]of longint; 5

Tyvj P1106 题解与反思

原文链接：http://www.cnblogs.com/lexluthor/articles/2032950.html 　　好久没做题了，今天突然想刷个水题，这个题乍看像是一个人畜无害的数字三角形。等我充分入戏后才发现，NND，竟然是一道双重DP！双重就双重吧，在我WA了N次后，发现该题有一个充分猥琐的条件——

Dijkstra

原文链接：http://www.cnblogs.com/lexluthor/archive/2012/01/06/2314983.html 1 var i,j,n,s,t,p,min:longint; 2 a:array[1..1000,1..1000]of longint; 3 d:array[1..1000]of longint; 4 v:array[1..1000]of boolean; 5 6 7 8 pro

传说中的滑雪，巨丑勿拍（poj1088/tyvj1004）

原文链接：http://www.cnblogs.com/lexluthor/archive/2011/10/14/2211220.html 不大会写记忆化，各种不蛋定……const wx:array[1..4]of longint=(1,-1,0,0); wy:array[1..4]of longint=(0,0,1,-1); var ans,i,j,r,c:longint; a,f:array[0..100,0..100

Mobile Service

原文链接：http://www.cnblogs.com/lexluthor/archive/2011/10/17/2215817.html 这是一道很DT的DP，你认为呢？const infinite=1000000000; var w:array[0..200,0..200]of longint; n,i,j,x1,x2,ans,l:longint; p:array[0..200]of longint; f:array[0..3

Delphi 生成不重复随机数类

原文链接：http://www.cnblogs.com/kernelj/archive/2010/01/27/1657296.html 本类可用来产生从MinNumber到MaxNumber之间的随机数，只要设定Unique，每个数字就只使用一次。此外还可以检查数字是否使用过。一个动态的Tbit数组用来保证数字只会返回一次，并看是

匈牙利算法

本文转自大牛博客：http://www.byvoid.com/blog/hungary/ 这是一种用增广路求二分图最大匹配的算法。它由匈牙利数学家Edmonds于1965年提出，因而得名。定义未盖点：设Vi是图G的一个顶点，如果Vi 不与任意一条属于匹配M的边相关联，就称Vi 是一个未盖点。交错路：设P是图G的一条路