Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
Vazhik ©   (2007-06-26 20:28) [17]

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


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


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

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

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


 
Anatoly Podgoretsky ©   (2007-06-26 21:44) [19]

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

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


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


> Anatoly Podgoretsky ©   (26.06.07 21:44) [19]

ты у меня спрашиваешь?


 
Anatoly Podgoretsky ©   (2007-06-26 22:44) [21]

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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.025 c
15-1181831248
DrAndrey
2007-06-14 18:27
2007.07.22
Программисты и ХО


15-1182195895
Petr V.Abramov
2007-06-18 23:44
2007.07.22
Вендекапец!


15-1182169577
русланннннннн
2007-06-18 16:26
2007.07.22
Ошибка Ado


15-1182509369
sergeyst
2007-06-22 14:49
2007.07.22
Видео


6-1166559294
PHPDeveloper
2006-12-19 23:14
2007.07.22
аплоад файлов