我的程序问题出在哪里?

来源:百度知道 编辑:UC知道 时间:2024/06/17 21:27:28
我用turbo pascal编写了一个简单的计算机程序
老是被无情的报错
如下:
program jsq;
var
f1:text;
a,b,h,c,j:vear
begin
assign(f1,'jisuanqi.txt');
read(f1,a,b);
h=a+b;
c=a-b;
j=a*b;
assign(f2,'f:jisuanqi2');
writeln(f2,'he shi:'h:5);
writeln(f2,'cha shi:'c:5);
writeln(f2,'ji shi:'j:5);
if b=0 then writeln(f2,'cuo wu!')
else writeln(f2,'shang shi:'a/b:5);
close(f1);
close(f2);
end.
希望所有大哥哥大姐姐多多指教!
我用turbo pascal编写了一个简单的计算机程序
老是被无情的报错
如下:
program jsq;
var
f1:text;
a,b,h,c,j:vear
begin
assign(f1,'jisuanqi.txt');
read(f1,a,b);
h=a+b;
c=a-b;
j=a*b;
assign(f2,'f:jisuanqi2');
writeln(f2,'he shi:'h:5);
writeln(f2,'cha shi:'c:5);
writeln(f2,'ji shi:'j:5);
if b=0 then writeln(f2,'cuo wu!') <

问题有点多啊
首先,var f1,f2:text;(未定义f2)
a,b,h,c,j:real( 没有vear类型)
其次,assign(f1,'jisuanqi.txt'); 后
没写reset(f1) (写f1文件)
assign(f2,'f:jisuanqi2'); (有这个'f:jisuanqi2'文件吗)
没写rewrite(f2) (写f2文件)
还有,输出格式中writeln(f2,'he shi:',h:5);
(少个','号)
这样改一下应该就对了

你把变量设成vear了。。。
这是什么啊。。。。