做了一个free pascal程序,但是不能运行,请问为什么

2025-03-23 13:31:29
推荐回答(1个)
回答1:

”你把输出文件也当作“输入“了。下面这样就行了:
program exam1(input,output);
const inf='exam1.in';
outf='exam1.out';
var a,b,c:real;
begin
assign(input,inf); reset(input);
assign(output,outf); rewrite(output);
readln(input,a,b);
c:=(a+b)*2;
writeln(output,'c=',c);
close(input); close(output);
end.