帕斯卡進展狀態

Question

我想模擬免費帕斯卡的進度加載狀態，但我很難實現看起來像加載進度狀態的輸出。 代碼中，我有這樣的：

percent := 0; 
Writeln('Loading'); 
Repeat 
Write('(',percent,'%)'); 
percent = percent + 1; 
Delay(50); 
Until percent > 100; 

但輸出原來是這樣的：

Loading(0%)(1%)(2%) 

當我希望它看起來像這樣：

Loading(0%) -> Loading(1%) {The percent variable going up like a loading status} 

我只想在循環中改變的百分比變量。我已經看過刪除和插入程序，但我不認爲這是我正在尋找。

Answer 1

您需要使用退格返回並重寫。像這樣：

uses Crt; 
var percent: integer; 
begin 
    percent := 0; 
    Write('Loading '); 
    Repeat 
    Write('(',percent:3,'%)'#8#8#8#8#8#8); 
    percent := percent + 1; 
    Delay(50); 
    Until percent > 100; 
end.