Составители:
Рубрика:
prog=gpop();
}
/* Результат в стек gosub*/
void gpush(s)
char *s;
{
gtos++;
if (gtos==SUB_NEST)
{ serror(12);
return;
}
gstack[gtos]=s;
}
/* Проверка уровня вложенности gosub*/
char *gpop()
{
if (gtos==0)
{ serror(13);
return;
}
(gstack[gtos--]);
}
Значение prog помещается в стек GOSUB, адрес строки, с которой
начинается подпрограмма, помещается в prog. Когда встречается
RETURN, из стека GOSUB извлекается очередное значение и
присваивается prog. Оператор допускает вложенность GOSUB. Полный
текст интерпретатора размещен на сайте www.de.nwpi.ru.
2.3. Тестирование
В качестве тестов предлагаются простейшие программы,
использующие языковые конструкции, заложенные для Small BASIC.
Далее приведены примеры исходных текстов на языке Small BASIC с
использованием GOSUB и протоколы выполнения программ. Протоколы
демонстрируют процесс выполнения программы и правильность
реализации простых вычислений.
Страницы
- « первая
- ‹ предыдущая
- …
- 25
- 26
- 27
- 28
- 29
- …
- следующая ›
- последняя »
