|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.03.2010, 19:34 | #1 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
из процедурного в модульное
есть прога в процедурном, нужно переделать в модульное и сделать без использование LABEL. только метку эту надо удалить во всех процедурах...
|
29.03.2010, 19:36 | #2 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
Код:
|
29.03.2010, 19:37 | #3 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
Код:
|
29.03.2010, 19:54 | #4 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
в модульное переделал...все работает...а вот как убрать метки и что бы работало без них не знаю...помогите пл3
вот в модульном КУРС - основная прога орс - модуль |
29.03.2010, 21:26 | #5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
формальный (дословный без разбора алгоритма перевод)
1. label mmm; mmm: => flagmmm:=true; while (flagmmm) do begin flagmmm:=false; + end; там где найдем последний goto (после оператора не внутри case) goto mmm; => flagmmm:=true; continnue; аналогично label aaa; => flagaaa:=true; while (flagaaa) do begin flagaaa:=false; end; в конце оператора содерэжащего последний goto goto => flagaaa:=true; contunue; для label 16; => break;
программа — запись алгоритма на языке понятном транслятору
|
30.03.2010, 11:11 | #6 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
все равно не понимаю...
|
30.03.2010, 14:22 | #7 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
ссылка вверх(назад) это организация цикла
mmm: //начало цикла goto mmm; // повторить(начать новую итерацию ) необходимо заменить на цикл (while) организовать аналогичную схему переходов (continue) и выхода из цикла (flag) конец цикла определяется так последний оператор в которрм мы нашли goto в первом случае это case (=>конец цикла по окончании этого оператора) во втором if .. then .. else (=>конец цикла будем после ветки else ) Код:
необходимо выполнить завершение цикла (break);
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 30.03.2010 в 14:39. |
30.03.2010, 20:27 | #8 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 95
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Модульное программирование. | artemavd | Общие вопросы Delphi | 9 | 11.12.2009 13:14 |
Модульное программирование. | BARNEY | Общие вопросы Delphi | 5 | 28.07.2009 09:12 |
Модульное программирование | Marinka91 | Помощь студентам | 3 | 28.06.2009 20:16 |
подпрограммы с параметрами процедурного типа | stargirl | Помощь студентам | 2 | 14.03.2009 14:52 |
модульное программирование, С++ | Stiker | Помощь студентам | 1 | 09.12.2007 21:38 |