Текущий архив: 2004.03.09;
Скачать: CL | DM;
Вниз
Как сделать так Найти похожие ветки
← →
Алексей (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;
← →
Думкин © (2004-02-17 16:28) [4]Т.е. в первом случае в буфере число и ....Enter нажималось?
Вот число потом считывается, а остальное остается. Readln он и считывает этот остаток, он доволен и заканчивается.
А во втором случае, считывается число а потом и остаток - в мусор, поэтому приходим к буферу без этого остатка - не довольны, ждем его. То бишь Enter"a.
Многие Паскалевые программы изобиловали идущими подряд в 2 Enter"ами, как раз поэтому, пока авторы не понимали.(студенческие конечно)
← →
Внук © (2004-02-17 16:37) [5]>>Многие Паскалевые программы изобиловали идущими подряд в 2 Enter"ами, как раз поэтому, пока авторы не понимали
Угу, было такое, грешен :)
Страницы: 1 вся ветка
Текущий архив: 2004.03.09;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
