请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

版权申明
查看: 1267|回复: 3

为什么我写的程序无法编译通过?

[复制链接]

该用户从未签到

发表于 2014-11-18 12:44:36 | 显示全部楼层 |阅读模式
本帖最后由 摇摆兔 于 2014-11-18 17:23 编辑

平台: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 RECORD1;
VAR AATA;
VAR I:INTEGER;
VAR F:FILE1;
BEGIN
ASSIGN(F,INPUT);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 15:49:30 | 显示全部楼层

未命名.bmp(3.00M)
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-11-27 08:54:15 | 显示全部楼层
图片太大了,用 jpg 格式的。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2014-11-27 08:56:47 | 显示全部楼层
注意函数的参数。
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2019-6-19 17:10 , Processed in 0.125991 second(s), 21 queries .

Powered by Discuz! F1.0 Build 20160930

© 2001-2019 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表