 задача с оператором ветвления |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| stalin |
 3.03.2009 20:40
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация:  0   |
я недавно начал программировать!и мне это нравиться и я достиг определенных успехов!но вот задался вопросом а как будет выглядеть код такой задачи в которой будет выполнятся какое-то действие например с:=а+в и после этого действия будет следовать вопрос: может еще?Y/N и если будет дано Y, то цикл- а еcли N то End.
P.S.(естественно код должен быть примитивен как 5 рублей) подскажите пожалуйста! спасибо всем кто откликнется! |
   |
 
|
  |
Ответов
| Unconnected |
3.03.2009 20:57
Сообщение
#2
|
 mea culpa  Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Можно использовать оператор безусловного перехода goto (многие воспринимают его как зло, правда).. Создаёшь переменную типа label, например label p; перед секцией var, вставляешь её перед вводом данных например:
p: {ввод данных}. Далее, при запросе y/n если выбрано y, то goto p; if (key='y') or (key='Y') then goto p; {key - переменная типа char или string} Сообщение отредактировано: Unconnected - 3.03.2009 21:19 -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
|
|
|
Сообщений в этой теме
stalin задача с оператором ветвления 3.03.2009 20:40
stalin а нельзя ли на примере показать код?а то чет я не ... 3.03.2009 21:07 Unconnected var
c1:char;
a,b,c:byte;
label p;
be... 3.03.2009 21:21 amega можно еще так
только непомню код n N;
repeat
{д... 3.03.2009 21:23
stalin всем спасибо!тему можно закрывать! 4.03.2009 17:19 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.06.2025 6:54 |