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

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

版权申明
查看: 298|回复: 4

总是编译错误,找不到原因

[复制链接]

该用户从未签到

发表于 2018-8-12 10:22:43 | 显示全部楼层 |阅读模式
  1. PROGRAM CONSECUTION;
  2. VAR N:INTEGER;
  3. FUNCTION CONSEUCTION(N:INTEGER):INTEGER;
  4. VAR R,K:INTEGER;
  5. BEGIN
  6.         R:=0;K:=N;
  7.         REPEAT
  8.                 K:=K DIV 5;
  9.                 R:=K+R;
  10.         UNTIL(K=0);
  11.         CONSECUTION:=R;
  12. END;
  13. BEGIN
  14.         READ(N);
  15.         WRITE(CONSEUCTION(N));
  16. END.
复制代码
错误大致是fatal "." expected but ":=" found,定位在11行

点评

海!外直播 t.cn/RxmJTRa 禁闻视频 t.cn/Rxl1r5X 中国人的一天:早上起来呼吸过滤了的空气,上午喝一杯过滤过的水,工作的时候看一下过滤过的新闻....  发表于 2018-8-26 12:45
回复

使用道具 举报

该用户从未签到

 楼主 发表于 2018-8-12 13:33:08 | 显示全部楼层

RE: 总是编译错误,找不到原因

将第3、11、15行CONSEUCTION或CONSECUTION替换成CONSECUTIONS
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-3 16:49:00 | 显示全部楼层

RE: 总是编译错误,找不到原因

FUNCTION CONSEUCTION 返回值又是CONSECUTION:=R; 不一致啊

建议11行修改成 RESULT:=R;比较通行的写法。
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2018-9-7 10:26:53 | 显示全部楼层

RE: 总是编译错误,找不到原因

PROGRAM CONSECUTION;
VAR N:INTEGER;
FUNCTION CONSEUCTION(N:INTEGER):INTEGER;

根据楼上的提示,怀疑是这里的问题。
回复 支持 反对

使用道具 举报

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

GMT+8, 2018-9-23 18:40 , Processed in 0.044835 second(s), 10 queries , Redis On.

Powered by Discuz! F1.0 Build 20160930

© 2001-2018 Comsenz Inc. & Discuz! Fans

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