IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> помогите как так чтоб программа не останавливалась, при запуске программы я ввожу имя
eldar219
сообщение 28.02.2010 19:35
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской
Реальное имя: eldar

Репутация: -  0  +


при запуске программы она не идет у меня доконца,проблема возникает тогда,когда меня просят ввести(сколько тебе лет),я ввожу значение и программа закрывается,вроде сделал все правильно



Program dialog;
const
Question='What is your name?';
Reply1='Паскаль-прост,но первый компилятор Паскаля был написан на Паскале';
Reply21='Вас ждет удивительное путешествие';
Reply22='сквозь джунгли возможнности и особенности языка';
ReplyS='Паскаль-разумный компромисс между желательным и эффектевным';
Reply4='Паскаль-академически элегантен';
var Name:string;Age:byte;
begin
writeln(Question);readln(name);
writeln('Hello,',Name,'!');
write('How old are you?');readln(age);
case Age of
0..11:writeln(Reply1);
12..19:begin writeln('Reply21');writeln(Reply22)end;
20..39:writeln(ReplyS);
40..150:writeln(Reply4);
else writeln('Вы ошиблись при вводе');
end;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Unconnected
сообщение 28.02.2010 19:37
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Перед заключающим end-ом поставь readln;. На данный момент программа выводит что нужно, но ты просто не успеваешь это увидеть.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
eldar219
сообщение 28.02.2010 19:40
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской
Реальное имя: eldar

Репутация: -  0  +


Цитата(Unconnected @ 28.02.2010 20:37) *

Перед заключающим end-ом поставь readln;. На данный момент программа выводит что нужно, но ты просто не успеваешь это увидеть.

там много эндов в каком именно поставить где в конце 2 enda?

Добавлено через 3 мин.
Цитата(Unconnected @ 28.02.2010 20:37) *

Перед заключающим end-ом поставь readln;. На данный момент программа выводит что нужно, но ты просто не успеваешь это увидеть.

Да прога работает,но не доконца после второго ввода цифр опять она закрывается
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
eldar219
сообщение 28.02.2010 20:05
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской
Реальное имя: eldar

Репутация: -  0  +


Да прога работает,но не доконца после второго ввода цифр опять она закрывается
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Unconnected
сообщение 28.02.2010 20:13
Сообщение #5


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Слово "заключающим" для тебя значит что-нибудь?


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
amega
сообщение 28.02.2010 20:37
Сообщение #6


?
***

Группа: Пользователи
Сообщений: 283
Пол: Мужской

Репутация: -  4  +


запусти свою программу через cmd и не мучайся, хотя можна мучатся и с cmd smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.07.2025 2:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"