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

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

这是怎么回事?

[复制链接]

该用户从未签到

发表于 2015-8-3 21:05:05 | 显示全部楼层 |阅读模式
本帖最后由 摇摆兔 于 2015-8-3 21:24 编辑
  1. PROGRAM MAX;
  2. VAR A:INTEGER;
  3. PROCEDURE UNSIGNEDMAX(VAR MAXINT:INTEGER);
  4. BEGIN
  5. MAXINT:=NOT 0;
  6. END;
  7. PROCEDURE SIGNEDMAX(VAR MAXINT:INTEGER);
  8. BEGIN
  9. MAXINT:=(NOT 0) SHR 1;
  10. END;
  11. BEGIN
  12. UNSIGNEDMAX(A);
  13. WRITELN(A);
  14. SIGNEDMAX(A);
  15. WRITELN(A);
  16. END.
复制代码
回复

使用道具 举报

该用户从未签到

 楼主 发表于 2015-8-3 21:21:50 | 显示全部楼层
编译不通过
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-8-4 15:04:45 | 显示全部楼层
可以编译通过啊!  lazarus 1.42
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主 发表于 2015-8-4 15:15:45 | 显示全部楼层
我用的是free pascal 2.6.4,platform: gentoo。
回复 支持 反对

使用道具 举报

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

GMT+8, 2019-3-18 22:20 , Processed in 0.053352 second(s), 9 queries , Redis On.

Powered by Discuz! F1.0 Build 20160930

© 2001-2019 Comsenz Inc. & Discuz! Fans

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