免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1671 | 回复: 2
打印 上一主题 下一主题

[其他] 为什么我写的程序无法编译通过? [复制链接]

论坛徽章:
8
2015年迎新春徽章
日期:2015-03-04 09:58:112015元宵节徽章
日期:2015-03-06 15:51:33数据库技术版块每日发帖之星
日期:2016-06-09 06:20:00数据库技术版块每日发帖之星
日期:2016-06-10 06:20:00数据库技术版块每日发帖之星
日期:2016-07-20 06:20:0015-16赛季CBA联赛之同曦
日期:2016-07-21 21:26:51数据库技术版块每日发帖之星
日期:2016-07-23 06:20:00数据库技术版块每日发帖之星
日期:2016-07-26 06:20:00
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2014-11-18 17:07 |只看该作者 |倒序浏览
本帖最后由 love_wisdom 于 2014-11-18 17:20 编辑

为什么我写的程序无法编译通过?平台:windows xp,free pascal.
PROGRAM EX3(INPUT,OUTPUT,F);
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.

论坛徽章:
8
2015年迎新春徽章
日期:2015-03-04 09:58:112015元宵节徽章
日期:2015-03-06 15:51:33数据库技术版块每日发帖之星
日期:2016-06-09 06:20:00数据库技术版块每日发帖之星
日期:2016-06-10 06:20:00数据库技术版块每日发帖之星
日期:2016-07-20 06:20:0015-16赛季CBA联赛之同曦
日期:2016-07-21 21:26:51数据库技术版块每日发帖之星
日期:2016-07-23 06:20:00数据库技术版块每日发帖之星
日期:2016-07-26 06:20:00
2 [报告]
发表于 2014-11-18 17:08 |只看该作者
大家在自己的机器上可以试试,也可以在Linux下尝试

论坛徽章:
8
2015年迎新春徽章
日期:2015-03-04 09:58:112015元宵节徽章
日期:2015-03-06 15:51:33数据库技术版块每日发帖之星
日期:2016-06-09 06:20:00数据库技术版块每日发帖之星
日期:2016-06-10 06:20:00数据库技术版块每日发帖之星
日期:2016-07-20 06:20:0015-16赛季CBA联赛之同曦
日期:2016-07-21 21:26:51数据库技术版块每日发帖之星
日期:2016-07-23 06:20:00数据库技术版块每日发帖之星
日期:2016-07-26 06:20:00
3 [报告]
发表于 2014-11-18 20:23 |只看该作者
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP