高校问答封神英雄陆压几集出现:请看一下这个PASCAL程序哪里出问题了.
来源：百度文库 编辑：高校问答 时间：2024/04/30 23:54:27
var
a,t,b:integer;
begin
for a:=1 to 10 do
begin
t:=a*a;
b:=a*a*a;
writeln('a= ',a,' t=',t,' b=',b)
end
end.
提示是:CAN'T FIND UNTIL SYSTEM
为什么啊,我把书上的程序抄了1遍,居然也不行
a,t,b:integer;
begin
for a:=1 to 10 do
begin
t:=a*a;
b:=a*a*a;
writeln('a= ',a,' t=',t,' b=',b)
end
end.
提示是:CAN'T FIND UNTIL SYSTEM
为什么啊,我把书上的程序抄了1遍,居然也不行
程序没问题啊,是PASCAL 安装不对吧,用的FP? 如果不是安在C盘,把根目录 改成 安装的 地址啊
等号前面不可有冒号呀！
我执行了一下，没有问题呀，输出结果如下：
a= 1 t=1 b=1
a= 2 t=4 b=8
a= 3 t=9 b=27
a= 4 t=16 b=64
a= 5 t=25 b=125
a= 6 t=36 b=216
a= 7 t=49 b=343
a= 8 t=64 b=512
a= 9 t=81 b=729
a= 10 t=100 b=1000
是啊没问题
没问题啊！！！
我知道了
漏了
'Program XXX;'