Pascal - Plus grand diviseur commun - Pas de sortie

Question

Nous vous remercions de votre aide à l'avance. Je dois commencer à programmer en Pascal et, honnêtement, ce n'est pas très agréable de changer de Java et de Python. J'ai essayé un programme simple pour retourner GCD, mais la console ne restera même pas ouverte malgré la lecture à la fin.

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

Ne sachant pas que vous Pascal utilisez, j'ai essayé cela dans FreePascal 3.0.0 pour Windows:

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(), tout cela dépend de l'entrée ligne en mémoire tampon, ne pas attendre pour un retour chariot , donc il va lire deux chiffres mais ne consomme pas le retour chariot final, c'est à dire c'est toujours dans le tampon d'entrée. Après que le programme calcule le GCD et l'affiche, le retour chariot qui est encore dans le tampon sera immédiatement lu par le readln final, ainsi la console se ferme juste après (readln ne doit pas attendre un retour chariot, car il est déjà — ou encore — dans le tampon).

Si vous utilisez readln(a); etc, chaque nombre sera entré sur sa propre ligne et la fonction attend un retour chariot et le consomme. Cela signifie que le dernier readln ne trouvera pas de retour chariot dans le tampon d'entrée, il attendra jusqu'à ce que vous appuyiez sur Entrez.