パスカル - 最大公約数 - 出力なし

Question

ありがとうございました。私はパスカルでプログラミングを始めなければなりません。それはJavaとPythonからの楽しい変化ではありません。私はGCDを返すための簡単なプログラムを試しましたが、最後にreadlnがあってもコンソールは開いたままになりません。あなたが使用しているパスカル知らない

program App1Learning; 

var 
    a, b : integer; 

begin 
    read(a); 
    read(b); 
    while a <> b do 
    begin 
    if a < b then b := b - a; 
    if a > b then a := a - b; 
    end; 
    writeln(a); 
    readln; 
end. 

Answer 1

、私は、Windows用のFreePascalと3.0.0でこれを試してみました：

program App1Learning; 

var 
    a, b : integer; 

begin 
    readln(a); 
    readln(b); 
    // Or, instead of the two previous lines: readln(a, b); 
    while a <> b do 
    begin 
    if a < b then b := b - a; 
    if a > b then a := a - b; 
    end; 
    writeln(a); 
    readln; 
end. 

Read()、それはバッファリングライン入力に依存しながら、キャリッジリターンを待ちません。したがって、2つの数値を読み込みますが、は最後のキャリッジリターンを消費しません。つまり、入力バッファに残ります。プログラムがGCDを計算して表示すると、バッファに残っているキャリッジリターンは、最終的にreadlnによって直ちに読み取られるので、コンソールは直後に閉じます（readlnはキャリッジリターンを待つ必要はありません）。すでに—またはまだ—がバッファー中にある）。

代わりにreadln(a);などを使用すると、各番号が独自の行に入力され、関数はキャリッジリターンを待って消費します。これは、最後のreadlnが入力バッファでキャリッジリターンを検出しないため、を入力するまで待つことを意味します。を入力します。