若干你不太可能用到的Free Pascal的techniques
FreePascal作為當前流行的Pascal編譯器，支持了許多中語法，包括針對TP和Delphi的支援。FreePascal有一些功能一般很少用到，現在來看看~
以下內容很BT，很不河蟹。不少包含了十分醜陋的編程習慣，初學者繞道，MM請無視此文~。僅供參考~
WARNING: the things below are really awful.
PG13 Level.
[以下某些技巧或許可以小幅度提高程序效率。]
一．返回地址運算符
C/C++中有個很有名的運算符&用來返回變量的地址。因為Pascal對指針的依賴沒有C那樣顯著，我一直寫了幾年程序都沒有理過動態存儲（Dynamic）。直到有一次學習pascal中運算符的執行等級時看到，pascal有類似的運算符，@。
眾所周知，如果以下定義
Type pLongint = ^longint;
Var s : pLongint;
這裡longint前的標號表示指針類型。而在程序中調用s表示調用指針s的地址，s^才表示s對於的數據。
那么這個@有什麽價值呢？
一般沒啥特大的價值，這就是多數人知道^不知道@的原因~而NOIp考過@，於是就來複習一下。
@可以取某個變量或者過程的地址。
如：
Var s : Longint;
用@s可以取回s對應變量的內存地址~（當然是程序自己的線性內存地址，用32位四字節無符號整數表示。）
這個功能對於動態和靜態數據結構混用時非常有用。[?]
二．壞習慣，break，exit，halt，goto的前世今生
Break用於退出當前循環（回圈），exit用於退出子程（在主程序中會強制退出程序），halt強退程序。在Fpascal的function中，可以直接exit(函數返回值)退出。注意默認FP下，如果直接halt可能導致輸出文件的內容丟失。緣由在於，寫入到東西還在buffer。除非你試場flush，否則切記closefile。（這裡不是我把close錯寫成closefile，我是學習Delphi的）
Break，exit，halt，goto理論上可以完全避免。他們的不和諧的低俗的存在使得程序有多個入口出口和運作路線，使得結構化編程十分不易，然而，適當的運用可以使代碼更加秀色可餐[來源請求]。
當年一道簡單的20行標程的按ASCII替換字符的題目，筆者所見有人用了幾個goto，exit在不同的子程序中跳來跳去（新的FPC2.0不支持，在1.9才支持）~寫了100多行~[來源請求]
這點尤其初學者勿學~
非在Programming場上摸爬滾打多年的人速速離開，否則~後面更加Ws。
三．Inline
據說學習了C。但是要討論的不是在pascal中插入c或者彙編。（這個特性沒有考過~）
Inline可以跟在procedure或function的定義后，表示提示inline編譯。
Procedure dfs ( I : Longint ); inline;
Begin
…
End;
這會令編譯器以inline插入的方式編譯子程。這對於swap兩個變量之類的小過程很有提高效率的意義。對於更多的也許也可以提速[來源請求]~我的USACO的betsy就是這樣A的，用每個都inline編譯的方式從1.085s的TLE到0.903s的AC。
或許可以小幅提效。
四，類C的功能。
變量可以直接在定義時預定值。
/*C++ Code* Fragment/
Int a=72;
Int c,d;
/*C++ Code Fragment*/
PASCAL中可以:
//Pascal Code Fragment
Var a : Longint = 72;
Var c,d : Longint ;
//Pascal Code Fragment
PASCAL中打開編譯開關（在options中或{$operator(s?) on}）可以打開下列：
A+=1; // a:=a+1
a-=1
a*=2
a/=2
類似C的operator。
可惜還是不能簡單隨處申請變量~也不能用++。
五，函數重載，定義操作符。
FP中支援函數重載，只有函數的變數不完全相同（包括變數類型）。所以
Procedure love(a:integer);
Procedure love(a:longint);
是完全不同的兩個東西~這一點常常令人confuse，尤其是許多人不理integer和longint！
這也意味著函數Forward的時候也要有完整的參數列表，下面撰寫時也要！
Operator可以自定義。
六．函數可以返回複雜類型
可以返回數組、記錄、集合等。
我不推薦，但越是不推薦的越要說，因為夠猥瑣。
七．用指針回溯！！
想象搜索時你需要遍歷一棵DFS樹，然後輸出符合規定的節點到根的序列。
顯然DFS。然而過程不能直接讀入上層過程的變量，所以返回出處序列是個問題。也不能直接exit。因為如果有多個節點的路徑要輸出，你要重新遞歸進去然後甚至要判重輸出怎么樣~
很簡單，把一個pre指針作為參數傳給子程，使它得到一條從根到當前節點的路徑構成的鏈錶（linked list）。
八．位運算
Xor, or, and, shl, shr, xor, not…
大家要吃飽，胃才能做好位運算。
九、指針
不是很猥瑣。
New, dispose, ^, getmem, freemem, nil, GPE而已。
十、sizeof
很簡單，不過是否動態數據結構又有不同。
十一。動態數組~
當當當當~ （婚禮進行曲）
終於說道這裡~我一直以為動態數組要自己用指針去做~
今天上fpc的community才弄清楚~
Example：
//PASCAL
//by phoeagon
//for tripley
Var
C : array of array of longint;
Begin
Setlength(c,100); //c is now an array [0..99], each element is a one-dimension
//dynamic array
Setlength(c[10],100);//c[10]is now an array[0..9]of longint;~~~
….
End.
很好很ws~
十二、ansistring、int64.
下面越来越恶心~
我知道会有人不相信上文的告示闯进来。
我還是再說一遍~以下內容很BT，很不河蟹。不少包含了十分醜陋的編程習慣，初學者繞道，MM請無視此文~。僅供參考~ 切記切記~MM不能學的如此猥瑣~否則期望找MM的OIers來找筆者的麻煩就不得了了~
十三、變數還是常量？
Const裏的叫常量，var裏的叫變數~廢話~
但是，在子程傳遞參數時，如果不需要改變變數參數的值，又希望不要拷貝變量傳遞，可以加上const標識，就像var一樣加，可以加快速度（比var快，不過這取決于編譯器~）
更加噁心的是，常量是可以變的~！！！只要打開F***Pascal或Delphi或laz的options中compiler的一項，打開“Assignable typed constants”就可以了~或者加上編譯參數$J+。
為何常量是可變的?這是爲了向下兼容16-bit的pascal和delphi~
十四、還是離不開C！
我知道有人要抓狂了，這裡還是要說C~這裡不跟上面和在一起是因為，這裡太噁心了~
在C中變量其實是不論類型的，你可以把布爾型賦值給整數，也可以把char賦值給布爾型~總之只是內存中那個機器碼的拷貝~（類似與CPU中的寄存器，只是名字不同）
但是討厭的Pascal居然不讓~
於是，經過不懈努力，F***PASCAL中，以及Delphi中，有了一種媲美C中變量，variant。Variant真是好兄弟，跳過所有的類型檢測~相當于萬能形（不完全準確~）。
//by phoeagon (word 老是把p大寫，很不大方美觀得體~)
//for tripley
var
i:longint;
x:variant;
j:char;
q:boolean;
begin
x:=q; i:=x;
x:=j; q:=x;
x:=i; j:=x;
end.
請注意每個不同類型的變量是如何變化的~但是它很慢~
十五、還是數據類型
數據類型強制轉換，又叫字符映射。
如longint(‘N’)可以強制把char變成longint~總之試著吧類型名稱變成單元函數~
還有許多函數。
其中，最要說的是，，，，round。
Round~很麻煩~一些版本里是四捨五入，一些是銀行家捨入~因為round使用了CPU的MPU，數學協處理器，這些處理器，有的機器有有的沒有（主要是老爺機沒有），有的是銀行家捨入法等等~很可吐了~
變量還可以用hi取出高字節的內容，lo取出低字節的內容，用swap作交換高低字節，用high取出變量上限，low取出變量下限！！！
數據類型還有文件~集合、記錄、數組、動態指針、枚舉、子界。其中變量相容性的檢測也是很奇怪的~
(to be continued)
| 
