Закрывается консоль, несмотря на readln(); - Free Pascal
Формулировка задачи:
Здравствуйте, появилась такая проблема
Вроде как readln() стоит, а консоль все равно захлопывается, в ходе натурных экспериментов удалось выяснить , что если задвоить в конце Readln() или вместо последнего read написать readln, консоль подождет.
Но, если написать сколь угодно много read() в конце, консоли будет все равно, она захлопнется
Где-то на подкорке после всех этих экспериментов я понимаю как работает, но вразумительного объяснения у меня нет почему происходит так, может кто-то подскажет?
program Project1; var i,j,k:integer; begin read(i); read(j); //если вместо этого написать readln консоль подождет writeln(i, ' ', j); readln();// захлопывается если не задвоить readln end.
program Project1; var i,j,k:integer; begin read(i); read(j); writeln(i, ' ', j); read(); read(); //захлопывается end.
Решение задачи: «Закрывается консоль, несмотря на readln();»
textual
Листинг программы
ReadLn(число);
Объяснение кода листинга программы
- Закрывается консоль;
- Вводится число;
- Результат не сохраняется ни в одной переменной;
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д