今天第一次主要到Delphi也有goto语法，特别是其奇怪的label声明。估计主要是用来跳出多重循环，而且还真有人使用这种方式。记个笔记：procedure TForm1.btn3Click(Sender: TObject);var I, J: Integer;label label1...
分类：
其他好文 时间：
2014-06-28 14:29:04
阅读次数：
225
1 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 37 45 CREATE PROCEDURE ...
分类：
其他好文 时间：
2014-06-28 13:42:13
阅读次数：
163
You are given two linked lists representing two non-negative numbers. The digits are stored in reverse order and each of their nodes contain a single ...
分类：
其他好文 时间：
2014-06-28 10:45:34
阅读次数：
225
CCID_Receive Procedure byte conflict???According "a text book" for smart card.The terminal first sends the card a five-byte command header consisting ...
分类：
其他好文 时间：
2014-06-28 10:29:15
阅读次数：
241
1.欧拉筛法在线性时间内求素数以及欧拉函数代码： 1 procedure get; 2 var i,j,k:longint; 3 begin 4 tot:=0; 5 fillchar(check,sizeof(check),false); 6 for i:=2 to n do 7 be...
分类：
其他好文 时间：
2014-06-25 22:11:51
阅读次数：
574
其实就是容斥原理了代码： 1 uses math; 2 const maxn=55000; 3 var i,n,a,b,c,d,w,tot:longint; 4 ans:int64; 5 sum,mu,p:array[0..maxn] of int64; 6 procedure ge...
分类：
其他好文 时间：
2014-06-25 22:10:01
阅读次数：
299
题解：代码： 1 var i:longint; 2 n,k,ans:int64; 3 procedure main; 4 begin 5 readln(n); 6 ans:=n; 7 for i:=2 to trunc(sqrt(n)) do 8 if n mod i=0 the...
分类：
其他好文 时间：
2014-06-25 15:55:52
阅读次数：
204
题目
You are given two linked lists representing two non-negative numbers. The digits are stored in reverse order and each of their nodes contain a single digit. Add the two numbers and return...
分类：
其他好文 时间：
2014-06-24 21:46:24
阅读次数：
249
By语句By语句用于规定分组变量，控制set,merge,update或modify语句官方说明:BY variable-1variable-n> ;specifies the variable that the procedure uses to form BY groups. You can s...
分类：
其他好文 时间：
2014-06-23 07:29:42
阅读次数：
394
1.知识点
--第一个存储过程
/*
打印Hello World
create [or replace] PROCEDURE 过程名(参数列表)
AS
PLSQL子程序体；
调用存储过程:
1. exec sayHelloWorld();
2. begin
sayHelloWorld();
sayHelloWorld();
end;
/
...
分类：
数据库 时间：
2014-06-22 16:33:52
阅读次数：
354
