Как сделать так

← →
Алексей (2004-02-17 14:01) [0]

чтобы консольное приложение на Delphi не закрывалось после завершения работы, а показало результат? Вставка в конец "readln" не помогает.

← →
Думкин © (2004-02-17 14:10) [1]

Сравни:

var a : extended; begin read(a); readln end. var a : extended; begin readln(a); readln end.

← →
Алексей (2004-02-17 15:19) [2]

Спасибо. А почему так?

← →
Думкин © (2004-02-17 16:07) [3]

Буфер не очищается.
Эх, в Паскале старом еще:

Procedure Chist; var ch: char; begin while Keypressed do ch:=readkey end;

Т.е. в первом случае в буфере число и ....Enter нажималось?
Вот число потом считывается, а остальное остается. Readln он и считывает этот остаток, он доволен и заканчивается.
А во втором случае, считывается число а потом и остаток - в мусор, поэтому приходим к буферу без этого остатка - не довольны, ждем его. То бишь Enter"a.

Многие Паскалевые программы изобиловали идущими подряд в 2 Enter"ами, как раз поэтому, пока авторы не понимали.(студенческие конечно)

>>Многие Паскалевые программы изобиловали идущими подряд в 2 Enter"ами, как раз поэтому, пока авторы не понимали
Угу, было такое, грешен :)

Как сделать так Найти похожие ветки