作业帮 > 综合 > 作业

英语翻译SET TALK OFF   n=0   CLEAR   GO TOP   DO WHILE!EOF()

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/04 01:00:05
英语翻译
SET TALK OFF
   n=0
   CLEAR
   GO TOP
   DO WHILE!EOF()
     IF AT("勇",xm)>0
       n=n+1
      ENDIF
     SKIP
   ENDDO
这是一个比较古老的语言了:
SET TALK OFF 是程序的开头
n=0 初始化n的值
CLEAR 清除屏幕命令
GO TOP 将读取针至文件头
DO WHILE!EOF()
END DO是一个循环语句 !EOF()是条件:没读取到文件尾
 IF AT("勇",xm)>0
       n=n+1
      ENDIF
是判断语句 AT("勇",xm)>0是条件:xm是文件指针 在文件里找“勇”字 如果能找到的话 那么值至少大于1 一定大于0 一个没找到就小于0 那么就不会执行n=n+1(这句执行后n的值就会自加1)
SKIP 记录文件读取针的当前位置
?n 输出n的值 也就是文件记录里“勇”字的个数