Question

在PASCAL语言程序编译中输入了数据，如何再让程序继续运行，显示最终结果？

在PASCAL语言程序编译中输入了数据，如何再让程序继续运行，显示最终结果？
比如这个程序：
var x,y,s:integer;
begin
writeln('x=');read(x);
s:=0;
for y :=1 to x do
if x mod y=0 then s:=s+y;
write('x=',x,'s=',s)
end.
在编译中第一次输入x的值，如输入112，如何再让它继续编译运行，计算表达式：if x mod y=0 then s:=s+y，最终输出s的值？
谢谢大家!
我的意思是：在输入x的值后，不能直接显示s的值，需要再按什么键来输出最终s的结果？

Answer 1

在FP界面下，按Alt + F5可以浏览程序运行结果。在仅仅打开这个程序时，则不能看到，不是他没出来，而是太快了，一闪而过。如果想看到结果，可在程序最后（“end.”之前）加上“readln;”便可看到，然而按一下“Enter”键，就会退出程序。

Answer 2

这样诶，应该是在命令提示符中用dir语句，找到这个程序来显示最终的程序结果吧，这是我们老师教的

Answer 3

再用一个循环，如repeat或while
var x,y,s:integer;
begin
repeat
writeln('x=');read(x);
s:=0;
for y :=1 to x do
if x mod y=0 then s:=s+y;
write('x=',x,'s=',s)；
until x=0；
end.
当输入x为0时退出
在程序后加一条readln语句，可显示，按回车退出。
实在不行加两条，肯定行。

Answer 4

你这个程序本来就是在计算表达式s 的值，我不知道你是什么意思。

你是不是看不到输出结果呢？ 如果是这样的话在程序end.前面写一个

writeln;

这样就能看到了。

Answer 5

var x,y,s:integer;
begin
writeln('x=');read(x);
s:=0;
for y :=1 to x do
if x mod y=0 then s:=s+y;
write('x=',x,'s=',s);
writeln;
readln;
end.