回 帖 发 新 帖 刷新版面

主题:一个底智商问题

当用repeat做循环输入时,想用回车结束输入,until后加什么?[em10]

回复列表 (共9个回复)

沙发

repeat
  readln(x);
until eoln;

板凳

repeat
  read(x);
  read(c);  {c:char}
until c=#13;

3 楼

var a:char;

repeat
  readln(a)
until a=''

4 楼

repeat
  read(x);
  read(c);  {c:char}
until c=#13;

5 楼

好象是加 你退出的情况

6 楼

2、3、4楼的代码效果都一样么?

7 楼

2,4楼的应该效果都一样

#13就是回车的ASCII值

8 楼

var c:char;

............

repeat
  
.......
read(c);
until c=#13;

9 楼

repeat
......
until SeekEof

我来回复

您尚未登录,请登录后再回复。点此登录或注册