博客介绍了让TP编译的程序实现计算完dos窗口不关闭的方法，即在主程序外套一个无限循环，使主程序执行完一遍后立即执行下一遍，主程序中要有read函数，并给出了示例代码。
主要就是在主程序外套一个无限循环，让主程序执行完一遍再立即执行第二遍。（当然，主程序里是要有一个read函数啦！）这样，就可以实现TP编译的程序实现程序计算完dos窗口不关闭。
program aaa (input,output);
var
i:integer;
//声明部分
begin
for i:=1 to 5 do
begin
i := i+i;
//正式过程
end ;
end .
program aaa (input,output);
var
i:integer;
//声明部分
begin
for i:=1 to 5 do
begin
i := i+i;
//正式过程
end ;
end .
扫一扫
2万+
到【灌水乐园】发言
