loops - 艾菲尔环路测试程序

Question

我正在学习埃菲尔语言并尝试做一些基本的事情，如下所示：

class
    APPLICATION

inherit
    ARGUMENTS

create
    make
feature  
        make
local
        testvar:INTEGER
        i:INTEGER
 do
from
    i := 0
until
    i >= 10

loop
    Io.putstring ("input number")
    Io.read_integer
    testvar:= Io.last_integer
    if
        testvar>=2
    then
        Io.putstring ("bigger")
        i:=i+1
    else
        Io.putstring ("smaller")
        i:=i+1
        Io.put_integer(testvar)
 end
 end    

基本上我只是测试一个循环，它读取整数并在屏幕上打印更大或更小，直到“i”达到 10。但是，这不编译，它与我认为的循环有关。我做错了什么？

谢谢你

Answer 1

您缺少 2 个“结束”。您需要一个“结束”来关闭“if”，另一个来关闭“循环”，另一个来关闭“make”例程，最后另一个来关闭类“APPLICATION” . 所以需要 4 个“结束”，而你只有 2 个。