паскаль консоль
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
паскаль консоль - 2011-12-12 19:38:52.520000
|
|
|
SPaVor
Сообщений: 4
Оценки: 0
Присоединился: 2011-12-12 19:13:30.903333
|
написал простую программу А+Б на free pascal, создало exe файл,
я его запускаю, открывается консоль, ввожу два числа, нажимаю энтер и консоль закрывается не выведя результат.
как исправить?
код программы в порядке:
var
a,b,c:longint;
begin
read(a,b);
c:=a+b;
write(c);
end. пробовал перед end ставить readln, не помогло.
|
|
|
|
|
RE: паскаль консоль - 2011-12-12 19:44:25.816666
|
|
|
SPaVor
Сообщений: 4
Оценки: 0
Присоединился: 2011-12-12 19:13:30.903333
|
возможно на форуме это уже обсуждалось, но я не смог найти
|
|
|
|
|
RE: паскаль консоль - 2011-12-13 07:09:54.473333
|
|
|
zzsnn
Сообщений: 7459
Оценки: 680
Присоединился: 2007-09-25 07:17:14.240000
|
write©;
сюда поставь
Write('Нажмите enter для выхода');
ReadLn;
end.
Просто нужно в прогах с терминала ставить строку с ожиданием клавиши ввода. Иначе они просто после отработки закрываются.
|
|
|
|
|
RE: паскаль консоль - 2011-12-13 20:19:55.270000
|
|
|
SPaVor
Сообщений: 4
Оценки: 0
Присоединился: 2011-12-12 19:13:30.903333
|
zzsnn, не помогло,(FreePas) нажимаю Ctrl+F9 прога запускается, ввожу 2 числа,нажимаю энтер, прога закрывается, я опять нажимаю Ctrl+F9 и оно открывает прогу(консоль), и там есть выведенный результат, но запускается уже новая программа
|
|
|
|
|
RE: паскаль консоль - 2011-12-13 20:31:58.156666
|
|
|
mineralo4ka1
Сообщений: 85
Оценки: 0
Присоединился: 2011-08-16 14:08:30.880000
|
попробуй
readln
end.
без точки с запятой.
или введи еще одну переменную и сделай
readln(x);
end.
|
|
|
|
|
RE: паскаль консоль - 2011-12-13 21:41:59.453333
|
|
|
zzsnn
Сообщений: 7459
Оценки: 680
Присоединился: 2007-09-25 07:17:14.240000
|
Попробуй
ReadKey; {ожидание нажатия клавиши}
Стандартно эта функция используется в виде
write ('Введите букву - ');
Sym := readKey;
writeln ('Вы ввели букву - ', Sym);
if Sym = 'q'
then
…………..
|
|
|
|
|
|
