파스칼 - 가장 큰 공통 분모 - 출력 없음

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 용 프리 파스칼 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()를,이 버퍼 라인 입력에 의존하면서, 캐리지 리턴을 기다리지 않습니다 , 그래서 그것은 두 개의 숫자를 읽을 것이지만 은 최종 캐리지 리턴을 소비하지 않습니다. 즉 이것은 여전히 ​​입력 버퍼에 있습니다. 프로그램이 GCD를 계산하고 표시 한 후에도 여전히 버퍼에있는 캐리지 리턴은 최종 readln에 의해 즉시 읽혀 지므로 콘솔이 바로 닫힙니다 (readln은 캐리지 리턴을 기다릴 필요가 없습니다). 이미 —이거나 여전히 버퍼에 —).

readln(a); 등을 대신 사용하면 각 번호가 자체 행에 입력되고 함수는 캐리지 리턴을 기다리고 소비합니다. 즉, 최종 readln은 입력 버퍼에서 캐리지 리턴을 찾지 않으므로 을 입력 할 때까지 기다릴 것입니다.을 입력하십시오.