 Вопрос новичка. |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| Сибиряк 2 |
 19.08.2007 4:17
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Сергей Репутация:  0   |
Как закончить код программы чтоб после ее выполнения и нажатия ентер она возвращалась к первоначальному состоянию. Например var a, b, c: integer;
write('a='); readln(a); write('b='); readln(b); c:= a+b; write('c') end. Как после вывода ответа и нажатия ентер вернуться назад к вводу первого числа чтоб решить другой аналогичный пример? Спасибо. Сообщение отредактировано: Сибиряк 2 - 19.08.2007 4:21 |
   |
 
|
  |
Ответов
| Bokul |
19.08.2007 4:45
Сообщение
#2
|
 Гуру  Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: 11 |
Использовать условные циклы repeat...until (условие) или while (условие) do
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
|
|
|
| Сибиряк 2 |
19.08.2007 6:37
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Сергей Репутация: 0 |
Я примерно понимаю это. Но если не трудно как это будет выглядеть в вышеуказанном примере? Спасибо.
|
|
|
|
Сообщений в этой теме
Сибиряк 2 Вопрос новичка. 19.08.2007 4:17
volvo uses crt;
var a, b, c: integer;
begin
repeat
... 19.08.2007 8:08
Сибиряк 2 Ясно спасибо. 20.08.2007 21:40 spill А еще можно так:
uses crt;
var a, b, c: integ... 29.09.2007 12:23 volvo А еще НУЖНО проверять то, что ты пишешь! :mad... 29.09.2007 13:08 Айра uses crt;
var a, b, c: integer; !
...
If a ... 29.09.2007 13:09 daZe1 Та да.... может a - Char??? :nea: 1.11.2007 13:17 2ral
writeln('Повторить? [y/n]');
ReadLn (A... 10.11.2007 23:37 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 4.09.2025 6:17 |