Консольное приложение

← →
Vazhik © (2007-06-26 15:03) [0]

Здравствуйте! У меня возникла проблема: к примеру я создаю самое элементарное консольное приложение: сумма чисел (К ПРИМЕРУ!). Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x, y, rez: integer;
begin
ReadLn(x, y);
rez:= x+y;
WriteLn(rez);
end.

Запускаю, ввожу цифры нажимаю энтр и окно исчезает, я не могу увидеть ответа. Как это исправить?

← →
oldman © (2007-06-26 15:06) [1]

Между WriteLn и end поставить паузу
:)))

← →
Плохиш © (2007-06-26 15:06) [2]

Надо запустить своё консольное приложение из консоли. Или указать в ярлыке, что после выполнения твоего приложения, окно консоли закрывать не надо, но это уже тематика другого форума...

← →
engine © (2007-06-26 15:08) [3]

> WriteLn(rez);

Readln;

> end.

← →
oldman © (2007-06-26 15:09) [4]

> engine © (26.06.07 15:08) [3]

Сработает только на Enter

← →
oldman © (2007-06-26 15:10) [5]

> engine © (26.06.07 15:08) [3]

:))), ессно...

← →
Vazhik © (2007-06-26 15:34) [6]

спасибо за ответы! но я применил оператор повтора repeat:

program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x, y, rez : integer; end1: boolean; begin end1:=false; repeat ReadLn(x, y); rez:= x+y; WriteLn(rez); until end1; end.

← →
oldman © (2007-06-26 15:36) [7]

> ReadLn(x, y);
> rez:= x+y;
> WriteLn(rez);

А почему не:

ReadLn(x, y);
WriteLn(x+y);

???

← →
MBo © (2007-06-26 15:36) [8]

>но я применил оператор повтора repeat
И можешь объяснить, как работает эта программа?

← →
homm © (2007-06-26 15:42) [9]

> И можешь объяснить, как работает эта программа?

Она не «работает», она «выполняется» :)

← →
Vazhik © (2007-06-26 16:21) [10]

> А почему не:
>
> ReadLn(x, y);
> WriteLn(x+y);

согласен, так лучше.
> И можешь объяснить, как работает эта программа?

Следующим образом: как только завершено выполнение операторов программа начинает выполняться заново, запрашивает ввести значения переменных, потом вычисляет и выводит результат. И так до тех пор пока End1 не станет правдой. Но это никогда не случится в данном случае.

← →
TUser © (2007-06-26 18:14) [11]

FAR

← →
tesseract © (2007-06-26 18:18) [12]

> И так до тех пор пока End1 не станет правдой. Но это никогда
> не случится в данном случае.

А выходить как из твоего детища? хоть на ESC проверяй.

← →
oldman © (2007-06-26 18:40) [13]

> tesseract © (26.06.07 18:18) [12]
> А выходить как из твоего детища?

Alt-F4

:)))

← →
Anatoly Podgoretsky © (2007-06-26 18:50) [14]

А шиш вам, для Alt+F4 нужно окно или писать свою обработку.

← →
oldman © (2007-06-26 18:52) [15]

Тогда Ctrl-Alt-Del
:)

← →
Правильный Вася (2007-06-26 18:56) [16]

> А выходить как из твоего детища?
тетю Глашу со шваброй

выходить из этого детища надо нажав крестик.
да, комбинациями клавиш в данном случае не выйдет. надо создавать специальную обработку.

← →
Правильный Вася (2007-06-26 21:40) [18]

> надо нажав крестик.

аналогично-варварски

> тетю Глашу со шваброй

> Правильный Вася (26.06.2007 21:40:18) [18]

Откуда в консоли крестик

← →
Правильный Вася (2007-06-26 21:54) [20]

> Правильный Вася (26.06.2007 21:54:20) [20]

Нет
Вопрос общий

← →
Дядя (2007-06-27 08:07) [22]

А у меня вопрос немного не в тему, однако относится к консольному приложению. В турбо паскаль была такая процедура, ClrScr, которая очищала
экран, её ещё надо было подключить в списке uses, а в Дельфи её нет. Может есть аналогичная процедура и там?

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