为什么我写的程序无法编译通过?
pascal吧
全部回复
仅看楼主
level 5
为什么我写的程序无法编译通过?平台:windows xp,free pascal.
PROGRAM EX3(INPUT,OUTPUT);
TYPE
FILE1=FILE OF RECORD1;
RECORD1=RECORD
A:INTEGER;
B:CHAR;
C:BYTE;
END;
TYPE DATA=ARRAY [1..5] OF FILE1;
VAR A:DATA;
VAR I:INTEGER;
VAR F:FILE1;
BEGIN
ASSIGN(INPUT,F);RESET(F);READ(F,A[1],A[2],A[3],A[4],A[5]);
FOR I:=1 TO 5 DO
BEGIN
WRITE(A[I].A,A[I].B,A[I].C);
END;
END.
2014年11月18日 09点11分 1
level 5
把FILE1改成RECORD1
2014年11月18日 09点11分 2
把第9行的FILE1改成RECORD1
2014年11月18日 11点11分
level 9
应该是您的编译器或计算机配置问题。本人在Microsoft Windows XP Professional Version 2002 Service Pack 3系统,512MB内存的计算机上以Free Pascal Compiler Version 2.0.4编译成功。
2014年11月18日 11点11分 3
执行结果如何?
2014年11月18日 14点11分
将ASSIGN(INPUT,F);改成ASSIGN(F,INPUT);还能编译成功吗?
2014年11月18日 14点11分
1