Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2014, 14:41   #1
роман11
Подтвердите свой е-майл
 
Регистрация: 14.12.2014
Сообщений: 3
По умолчанию считывание кода из текста

Здравствуйте, помогите пожалуйста, нужно сделать некий конструктор программы для исполнителя робот, т.е. код задается во время выполнения программы. Например на форме есть различные кнопки и нажимая эти кнопки, массив команд заполняется различными словами (идентификаторами) кода, такими как ВЛЕВО, ВПРАВО.., ДЕЛАТЬ, КОНЕЦ, ЦИКЛ ПОКА, СЛЕВА СВОБОДНО, СПРАВА СВОБОДНО .. , ЦИКЛ СО СЧЕТЧИКОМ. С простыми командами все понятно и с циклами тоже, но не могу придумать как сделать цикл в цикле. Вот например код для ЦИКЛА СО СЧЕТЧИКОМ, но он не работает для случая цикл в цикле


Код:
procedure CycleFor(var mas: array of byte; var i: byte);
var
  k: byte;// переменная счетчика 
  m: byte;// смещение индекса массива после выполнения цикла
 
begin
  for k := 1 to (mas[i + 1] - 100) do // следущее значение после идентификаотора цикла - конечное значение счетчика - 100
 
  begin
    m := 0;
    i:= i + 2;
    while mas[i] <> 15 do  // выполнение тела цикла, 15 идентификатор слова КОНЕЦ;
    
    begin
 
      action(mas[i]); // выполнение простого действия
      inc(i);
      inc(m);
    end;  
    
    i := i - m - 2;      // переносим индекс в конец тела цикла 
  end;    
 
end;
 
end;
роман11 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Считывание текста из файла Van-89 Паскаль, Turbo Pascal, PascalABC.NET 10 20.04.2012 11:36
считывание текста из файла с++ fidot Помощь студентам 0 25.05.2011 14:59
Считывание текста из файла. semchik Общие вопросы Delphi 5 07.04.2011 22:33
Считывание текста с картинки Revival001 Общие вопросы Delphi 3 17.05.2009 19:37
Считывание скан кода IgorKr Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 25.02.2009 00:47