Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c