level 9
善良大白兔😜
楼主
为什么我写的程序无法编译通过？平台：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
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.
![[狂汗]](/static/emoticons/u72c2u6c57.png)
![[乖]](/static/emoticons/u4e56.png)