Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
Vazhik © (2007-06-26 15:03:00)
Здравствуйте! У меня возникла проблема: к примеру я создаю самое элементарное консольное приложение: сумма чисел (К ПРИМЕРУ!). Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
x, y, rez: integer;
begin
ReadLn(x, y);
rez:= x+y;
WriteLn(rez);
end.

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

Дядя (2007-06-27 08:07:00) [1]
А у меня вопрос немного не в тему, однако относится к консольному приложению. В турбо паскаль была такая процедура, ClrScr, которая очищала
экран, её ещё надо было подключить в списке uses, а в Дельфи её нет. Может есть аналогичная процедура и там?

Anatoly Podgoretsky (2007-06-26 22:44:00) [2]
> Правильный Вася (26.06.2007 21:54:20) [20]

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

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

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

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

Anatoly Podgoretsky (2007-06-26 21:44:00) [4]
> Правильный Вася (26.06.2007 21:40:18) [18]

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

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

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

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

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

Vazhik (2007-06-26 20:28:00) [6]
выходить из этого детища надо нажав крестик.
да, комбинациями клавиш в данном случае не выйдет. надо создавать специальную обработку.

Правильный Вася (2007-06-26 18:56:00) [7]
> А выходить как из твоего детища?
тетю Глашу со шваброй

oldman (2007-06-26 18:52:00) [8]
Тогда Ctrl-Alt-Del
:)

Anatoly Podgoretsky (2007-06-26 18:50:00) [9]
А шиш вам, для Alt+F4 нужно окно или писать свою обработку.

oldman (2007-06-26 18:40:00) [10]

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

Alt-F4

:)))

tesseract (2007-06-26 18:18:00) [11]

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

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

TUser (2007-06-26 18:14:00) [12]
FAR

Vazhik (2007-06-26 16:21:00) [13]

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

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

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

homm (2007-06-26 15:42:00) [14]
> И можешь объяснить, как работает эта программа?

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

MBo (2007-06-26 15:36:00) [15]
>но я применил оператор повтора repeat
И можешь объяснить, как работает эта программа?

oldman (2007-06-26 15:36:00) [16]

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

А почему не:

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

???

Vazhik (2007-06-26 15:34:00) [17]
спасибо за ответы! но я применил оператор повтора 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:10:00) [18]

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

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

oldman (2007-06-26 15:09:00) [19]

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

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

engine (2007-06-26 15:08:00) [20]

> WriteLn(rez);

Readln;

> end.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »