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