паскаль консоль
Пользователи, просматривающие топик: 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 …………..
|
|
|
|
|