Программирование на языке Турбо-Пролог 2.0. Николаев В.Г - 62 стр.

UptoLike

- 62 -
Буква "с" в этой конструкции указывает Турбо Прологу, что
эта функция использует соглашения вызовов Си.
Заметьте, что значение возвращается в виде указателя.
3.2. Пример вычисления факториала
Приведем пример программы вычисления факториала созданной из
двух исходных модулей. Один из них написан на языке Турбо-Си,
другой на языке Турбо-Пролог.
3.2.1 Исходный файл Турбо Си: FACT.C
void factorial_0(inttop, double *result)
/* Вычисляет факториал */
{
double x;
int i;
if (top<1) {
*result = 0.0; return;
}
for (x=2.0, *result = 1.0; top>1; top--, x = x+1.0)
*result = *result*x;
} /* Конец функции factorial_0 */
После редактирования и сохранения на диске файла fact.C, вам
необходимо выбрать опции для его компиляции. Турбо Си для этого
предоставляет вам два метода:
1). Выберете опции для компиляции из меню Турбо Си:
Options/Compiler/Model/Large/ (-ml)
Options/Compiler/Optimization/Jump Optimization/ (-o)
Options/Compiler/Code generation/Generate underbars Off/ (-u-)
Options/Compiler/Optimization/Use register variables Off/ (-r-)
Сразу после выбора опций, выберите в главном меню Турбо Си
опцию Options/Store options - Опции/Сохранить опции, когда же на-
чальная установка параметров будет сохранена, выберите Compile -
Компилировать.
2). Если вы предпочитаете компилировать fact.C командной
строкой по стандарту Си, вместо использования меню Турбо Си, то