Pascal 小題目一條

樓上的方法行不通，因為不能處理AA和AB這兩組string
因為pascal唔support dynamic array creation，我建議用個temp file做checking

1. open the text file(1)
2. create a temp file for checking(2)
3. while not EOF(1), read a line from (1)
{
4. open the temp file(2)
5. while not EOF(2), check whether the string appear in (2) or not
6. if EOF(2) and string not found, append the string to (2)
}
7. count the number of line of (2)
8. delete (2)

有問題的話不妨提出來大家研究一下

2008-11-23 23:57:28 補充：
sorry打錯左, 第三個point "read a line from (1)"應該係o係個while loop入面

你先起個array裝入26-128個字母，set count=0，而後讀入file，例如第一個係A，你將A同array比較，搵到A就將array內A位寫入null，set count=count+1。
file內第二個A將會搵唔到，count無變，直至file讀完，count數就係答案。
不過你點樣init array要研究一下，你要利用數值轉char碼，將26-128個ascii碼用looping方存入array就可以。
圖片參考：http://tw.yimg.com/i/tw/ugc/rte/smiley_1.gif