重複直到+ pascal中的菜單

Question

我有這段代碼的錯誤。有人可以告訴我哪部分是錯的嗎？ 該程序應該繼續，直到用戶退出程序。例如：如果他們選擇1，那麼在選擇執行後，他們應該再次被賦予菜單，直到他們選擇退出程序。

program calculator; 

var 
    a, b: integer; 
    c: real; 
    choice :integer; 


    begin 
    a:=5; b:=3; 
    writeln (' Welcome to computer program'); 
    repeat 
    writeln (' Please select your choice (1-5) '); 
    writeln (' 1: addition'); 
    writeln (' 2: subtraction'); 
    writeln (' 3: multiplication'); 
    writeln (' 4: dividion'); 
    writeln (' 5: exit'); 
    readln (choice); 

    case choice of 

    1: begin 
     a:=a+b; 
     writeln ('a: ',a); 
     readln; 
     end; 

    2: begin 
     a:=a-b ; 
     writeln ('a: ',a); 
     readln; 
     end; 

    3: begin 
     c:=a*b ; 
     writeln ('c: ',c); 
     readln; 
     end; 

    4: begin 
     a:=a div b ; 
     writeln ('a: ',a); 
     readln; 
     end; 

    5: begin 
     writeln (' Exit '); 
     halt; 
     end; 

    until choice = 5; // I've got error here but I don't know what to change. 

end. 

Answer 1

你缺少end;爲case of聲明。這就是它沒有編譯的原因。

除此之外： 您可以定義兩次退出值。您檢查until聲明和case構造中的選項。當choice等於5時，寫入'退出'並執行命令halt，該命令停止程序。所以until聲明中的條件永遠不會成立。因此這是不必要的。

你有兩種方法來擺脫這些檢查之一：

1. 由一個無限循環更換repeat..until choice = 5。例如while(true) do begin ... end;
2. 刪除case語句的值爲5.並在repeat..until循環下執行writeln(' Exit ')。