回 帖 发 新 帖 刷新版面

主题:求助~~~~

可能是运行的程序部分太长了,在最后加了个readln下去它读完程序之后还是自动返回编缉画面,连结果都没看到,哪位高手能指点一下小弟要怎么做才能使它读完程序之后还留在显示结果的那个画面

回复列表 (共6个回复)

沙发

用文件输出

板凳

Alt+F5 看输出屏幕呀?对吗?

3 楼

Alt+F5 

4 楼


用文件输出要怎么编定啊?举个例子好吗?

5 楼

var
  a,b:integer;
begin 
  assign(input,'work.in');reset(input);
  assign(output,'work.out');rewrite(output);
  readln(a,b);writeln(a,b);
  close(input);close(output);
end.

程序的意思是:
从工作目录(FP默认是'C:\pp\bin\go32v2')里的'work.in'文件中读两个数字,
a,b再把输出到工作目录里的'work.out'文件中。

注意事项:
1、如果要指定文件目录,比如说想从E盘里的文件中来读取该文件,代码是:
   assign(input,'e:\work.in');reset(input);
   其他依次类推,在NOIP中,应该从默认目录读取和输出到默认目录
2、最后一定要加close关闭文件,否则程序执行会出错误
3、input的文件一定要存在,而output的文件可以存在也可以不存在,如果不存在的话,系统会自动帮助你新建,并把结果输入进去。

6 楼

还是觉得Alt+F5方便。

我来回复

您尚未登录,请登录后再回复。点此登录或注册