program xxx;
begin
write ('xxxx');
read;
end.
помогите новичку pliiiz
люди помогите новичку, у меня такая проблема, все программы сделанные мною в Паскале выключаются (окно пропадает) при открытии или при нахождении правельного ответа...например >> program xxx;
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
Цитата:
Originally posted by solinoid
люди помогите новичку, у меня такая проблема, все программы сделанные мною в Паскале выключаются (окно пропадает) при открытии или при нахождении правельного ответа...например >> program xxx;
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
люди помогите новичку, у меня такая проблема, все программы сделанные мною в Паскале выключаются (окно пропадает) при открытии или при нахождении правельного ответа...например >> program xxx;
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
Код:
вставь реад и тогда она не закроется пока не введешь еникей.
Цитата:
Originally posted by AlexandrVSmirno
вставь реад и тогда она не закроется пока не введешь еникей.
вставь реад и тогда она не закроется пока не введешь еникей.
Не уверен, что Read без параметров прокатит. А ставить Паскаль влом. Вроде, надо или переменную типа char описывать, или использовать ReadLn.
Код:
program xxx;
begin
write ('xxxx');
ReadLn;
end.
begin
write ('xxxx');
ReadLn;
end.
В данном примере "вводить" надо Enter.
Цитата:
Originally posted by smartsoft
Не уверен, что Read без параметров прокатит. А ставить Паскаль влом. Вроде, надо или переменную типа char описывать, или использовать ReadLn.
В данном примере "вводить" надо Enter.
Не уверен, что Read без параметров прокатит. А ставить Паскаль влом. Вроде, надо или переменную типа char описывать, или использовать ReadLn.
Код:
program xxx;
begin
write ('xxxx');
ReadLn;
end.
begin
write ('xxxx');
ReadLn;
end.
В данном примере "вводить" надо Enter.
Я Паскаль уже тоже не помню, но ReadLn b ввод Enter катит точно.
Цитата:
Originally posted by AlexandrVSmirno
Я Паскаль уже тоже не помню, но ReadLn b ввод Enter катит точно.
Я Паскаль уже тоже не помню, но ReadLn b ввод Enter катит точно.
Так ReadLn означает ввод целой строки "в никуда". Можно вводить, что угодно, только Enter не забыть нажать. ;)
спасибо за ответы , да с ReadLn все работает по плану, но например ..такая прогр-ма >>>>
program koren;
var n,max:integer;
begin
writeln('число max ? ');
readln(max);
n:=2;
while n<=max do begin
writeln(n);
n:=n*2
end;
writeln('конец')
end.
как толко я ввожу любое число (25 например) ,прог. должна выдать
ответ >>16 ...после нажатия на ввод , вместо етого она закривается
program koren;
var n,max:integer;
begin
writeln('число max ? ');
readln(max);
n:=2;
while n<=max do begin
writeln(n);
n:=n*2
end;
writeln('конец')
end.
как толко я ввожу любое число (25 например) ,прог. должна выдать
ответ >>16 ...после нажатия на ввод , вместо етого она закривается
Цитата:
Originally posted by solinoid
спасибо за ответы , да с ReadLn все работает по плану, но например ..такая прогр-ма >>>>
program koren;
var n,max:integer;
begin
writeln('число max ? ');
readln(max);
n:=2;
while n<=max do begin
writeln(n);
n:=n*2
end;
writeln('конец')
end.
как толко я ввожу любое число (25 например) ,прог. должна выдать
ответ >>16 ...после нажатия на ввод , вместо етого она закривается
спасибо за ответы , да с ReadLn все работает по плану, но например ..такая прогр-ма >>>>
program koren;
var n,max:integer;
begin
writeln('число max ? ');
readln(max);
n:=2;
while n<=max do begin
writeln(n);
n:=n*2
end;
writeln('конец')
end.
как толко я ввожу любое число (25 например) ,прог. должна выдать
ответ >>16 ...после нажатия на ввод , вместо етого она закривается
Ну ты всегда в конце программы перед end. ставь ReadLn;
Ну ты всегда в конце программы перед end. ставь ReadLn; [/QUOTE]
Fatal:Syntax error,;expected but identifier READLN found <<<вот что пишет Dev-Pascal ,что то сдесь не так ...
Fatal:Syntax error,;expected but identifier READLN found <<<вот что пишет Dev-Pascal ,что то сдесь не так ...
Цитата:
Originally posted by solinoid
Fatal:Syntax error,;expected but identifier READLN found <<<вот что пишет Dev-Pascal ,что то сдесь не так ...
Fatal:Syntax error,;expected but identifier READLN found <<<вот что пишет Dev-Pascal ,что то сдесь не так ...
Забыл точку с запятой:
Код:
writeln('конец');
ReadLn;
ReadLn;
всё работает,спасибо большое!
Цитата:
Originally posted by solinoid
люди помогите новичку, у меня такая проблема, все программы сделанные мною в Паскале выключаются (окно пропадает) при открытии или при нахождении правельного ответа...например >> program xxx;
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
люди помогите новичку, у меня такая проблема, все программы сделанные мною в Паскале выключаются (окно пропадает) при открытии или при нахождении правельного ответа...например >> program xxx;
begin
write ('xxxx')
end.
ета программа будет закрываться сразу после открития ...как сделать что бы при окончании про-ма не закривалась сама ?
Еще один способ хороший есть:[COLOR=blue]
Program proga;
uses Crt;
var ----;
begin
---
---
---
Repeat until readkey=#27;
end.[/COLOR]
Программа не закроется пока не нажмешь на кнопку Esc.
Закрывается после зауска из Паскаля, или прямо из виндов?
Цитата:
Originally posted by wanja
Закрывается после зауска из Паскаля, или прямо из виндов?
Закрывается после зауска из Паскаля, или прямо из виндов?
в любом случае закрывается,если не написать перед end. readLn;
Цитата:
Originally posted by solinoid
в любом случае закрывается,если не написать перед end. readLn;
в любом случае закрывается,если не написать перед end. readLn;
Если из паскаля, то есть твакие клавиши Alt-F5. А еще есть NC или Far.
Легче всего сделать так:
Program xxx;
uses crt;
begin
write('xxx');
readkey {считывает любое нажатие}
end.
А если хочешь чтобы окно закрывалось при нажатии на определенную клавишу тогда:
Program xxx;
uses crt;
var a:char;
begin
write('xxx');
a:=readkey;
case a of
'1':end. {При нажатии на '1' =>закрытие окна}
Program xxx;
uses crt;
begin
write('xxx');
readkey {считывает любое нажатие}
end.
А если хочешь чтобы окно закрывалось при нажатии на определенную клавишу тогда:
Program xxx;
uses crt;
var a:char;
begin
write('xxx');
a:=readkey;
case a of
'1':end. {При нажатии на '1' =>закрытие окна}