註意:在Pascal中，“writeln”是整行輸出，“readln”是整行輸入，賦值語句是“:=”,“’”代表壹個字符串，相當於VB或VC中的“”。
定義變量
密碼，次數，輸入:longint
開始
次數:= 3；{以下是剩余時間}
密碼:= 12345；{這是密碼}
重復
readln(輸入)；
如果輸入& lt& gt那就密碼
if times & lt1然後{確認沒有機會時}
開始
writeln('妳不能再輸入了！');{不允許更多信息}
停止；{強制退休，可根據需要更改}
結束
否則{當時代有另壹個機會}
開始
次數:=次數-1；
writeln('密碼錯誤！妳還有'次，'次剩余！');{顯示剩余機會的錯誤和提示}
結束；
直到輸入=密碼；
writeln('正確的密碼！');{輸入正確}
結束。
差不多吧。這只是壹個算法。我沒試過。希望壹次性編好。
還有就是縮進不好，不方便用軟件寫(這個代碼是寫在網頁上的)。嗯。多有趣啊