我用的编辑器是这个Visual Prolog 5.2 Personal Edition,请你基于这个编辑器的环境写一个简单完整的 Turbo prolog 程序
时间: 2024-03-11 22:50:32 浏览: 15
好的,以下是一个简单的Turbo Prolog程序,它可以计算斐波那契数列的前20个数字:
```
% 斐波那契数列计算程序
% Turbo Prolog版本
fib(0, 0).
fib(1, 1).
fib(N, F) :-
N > 1,
N1 is N - 1,
N2 is N - 2,
fib(N1, F1),
fib(N2, F2),
F is F1 + F2.
% 执行程序
go :-
write('Fibonacci sequence: '),
nl,
fib_loop(0, 20).
% 循环计算并打印斐波那契数列
fib_loop(X, N) :-
X < N,
fib(X, F),
write(F),
write(' '),
X1 is X + 1,
fib_loop(X1, N).
```
在Visual Prolog 5.2 Personal Edition环境下,您可以按照以下步骤运行这个程序:
1. 创建一个新的Turbo Prolog源文件(扩展名为.PL),并将上述程序复制粘贴到文件中。
2. 在Visual Prolog的菜单栏中选择“工具” -> “Turbo Prolog” -> “编译”来编译程序。
3. 编译成功后,在菜单栏中选择“工具” -> “Turbo Prolog” -> “运行”来运行程序。
4. 您应该会看到一个打印了前20个斐波那契数列数字的控制台窗口。
希望这可以帮助您入门Turbo Prolog编程。