Программа закрывается сразу после последнего ввода

Question

Итак, я пытаюсь написать программу для школы Проблема в том, что даже с readln() программа закрывается сразу после последнего вывода. Это код, но я не знаю, в чем проблема, и я пробовал все;

program Calcolo; 
var El, EC, S, N:Real; 
var nome:string; 
function returnVote(a, b, c, d:Real):Real; 
begin 
returnVote:= a+(2 * b) - (c/2) - (d/4); 

end; 

begin 
writeln('Programma per calcolare il voto fornendo il numero di risposte esatte,'); 
writeln('quelle esatte e incomplete, quelle sbagliate e quelle non date'); 
writeln('====================================================================='); 
writeln('Fornire il nome dello studente: '); 
read(nome); 
writeln('Fornire il numero di risposte esatte e complete: '); 
read(EC); 
writeln('Fornire il numero di risposte esatte ma incomplete: '); 
read(El); 
writeln('Fornire il numero di risposte sbagliate: '); 
read(S); 
writeln('Fornire il numero di risposte non date: '); 
read(N); 
writeln('Il voto calcolato per lo studente ', nome,' e di: ', returnVote(El, EC, S, N):3:1); 
readln(); 
end. 

Answer 1

Когда пользователь вводит номер последнего и прессы введите число записывается в переменную N, но ввода остается в буфере. Поэтому, когда программа достигает последнего readln(), она считывает ввод и выходы.

Чтобы предотвратить это, вы должны заменить все свои read s на readln s (или, по крайней мере, на последний).

Это не хорошая практика использования readln, когда вам нужно посмотреть, что ваша программа записала на выходе. Если вы используете старый IDE, такой как Turbo Pascal, то есть пункт меню, который показывает вам результат после завершения программы. Современные IDE не закрывают окно, и если вы не используете какую-либо IDE, вы можете увидеть результат в своей консоли.