Versão testada: v2.3.1

Status: Erro

Seu programa apresentou defeito(s) com as seguinte(s) entrada(s):
fail5.vbs

Sub main()
    Dim a as integer
    a = 5 --2
    if a then 
        print 100
    end if
end sub

Comentários:

• Seu programa rodou e imprimiu normalmente, quando deveria ter dado erro de semantica (não pode usar número como condição booleana de um if);

Corrija o que foi apontado nesta issue para a próxima release. Não se esqueça de manter a EBNF e o DS atualizados, eles são a documentação da linguagem de seu compilador.

Abraços!

Versão testada: v2.1.1

Status: OK

Comentários:

• Seu ebnf e DS estao desatualizados;
• Peço para que receba o nome do arquivo de entrada pela entrada padrão do python;

Exemplo:

$ python3 main.py test.vbs

Por favor corrija estes problemas na proxima release, e responda esta issue quando tiver corrrigido.

Abraços!

Você não entregou a última versão (v2.3).

Versão: 0.1

Situação: OK

Seu código rodou com sucesso todos os testes, parabéns!

Versão testada: v2.4.1

Status: Erro - Incompleto

Seu programa apresentou defeito(s) com as seguinte(s) entrada(s):
test1.vbs

Sub test()
    Dim a as integer
    a = 5
    print a
End Sub

Sub main()
    ' hello world
    Call test()
End Sub

test2.vbs

Sub test(a as integer)
    print a
End Sub

Sub main()
    ' hello world
    Dim top as integer
    top = 5
    Call test(top)
End Sub

test3.vbs

Function test(a as integer, c as integer) as integer
    print a

    Dim b as integer
    b = a * 5

    if b < c then
        test = b
    else
        test = a
    end if

End Function

Sub main()
    ' hello world
    Dim top as integer
    top = input
    print test(top, 100)
End Sub

test4.vbs

Sub check(n as integer)
    dim tres as integer
    dim cinco as integer
    dim flag as boolean
    
    tres = (n - (n / 3 * 3))
    cinco = (n - (n / 5 * 5))
    flag = True

    if (tres = 0) and (cinco = 0) then
        print 00001111
        flag = False
    end if

    if (tres = 0) and (flag = True) then
        print 0000
        flag = False
    end if

    if (cinco = 0) and (flag = True) then
        print 1111
    end if
End Sub

Sub fizzBuzz()
    ' adaptado da sabrina
    Dim n as integer

    n = input

    while n > 0
        Call check(n)
        n = n - 1     
    wend
End Sub

Sub main()
    Call fizzBuzz()
end sub

test5.vbs

Function fibonacci(n as integer) as integer
    ' codigo do raphael costa
    dim flag as boolean
    
    flag = false
    if n = 0 then
        fibonacci = 1
        flag = true
    end if

    if n = 1 then 
        fibonacci = 1
        flag = true
    end if

    if flag = false then
        fibonacci = fibonacci(n-2) + fibonacci(n-1)
    end if

End Function
Sub Main()
    print fibonacci(5)
End Sub

Comentários:

• Nenhum dos testes criados funciona.

• Seu DS e EBNF estão desatualizados, portanto sua entrega ficará como incompleta;

Corrija os erros de código/EBNF/DS apontados nesta issue.

Abraços!

Versão testada: v1.1.1

Status: erro de execução

seu programa apresentou defeito(s) com as seguinte(s) entrada(s):
' bla \n 1+1
2 + 3 * ' bla \n 5

Parece que seu código nao aceita comentarios no meio do calculo, nem antes. Cheque por favor se o seu codigo aceita quebra de linha no input do terminal (de o replace de "\\n" por "\n" no seu input). Por favor corrija estes problemas até a próxima release, e responda esta issue quando tiver corrrigido.

Abraços!

Versão testada: v3.0.2

Status: erro

Seu programa apresentou defeito(s) com as seguinte(s) entrada(s):
test2.vbs

Sub main()
    Dim tb as boolean
    Dim ti as integer

    tb = TRUE
    ti = 10

    if tb then
        print ti + 10
    end if
End Sub

test4.vbs

Sub main()
    ' adaptado da sabrina

    dim fizz as integer
    dim buzz as integer
    dim fizzbuzz as integer
    dim n as integer
    dim tres as integer
    dim cinco as integer
    dim flag as boolean

    n = INPUT
    fizz = 0000
    buzz = 1111
    fizzbuzz = 00001111
    flag = True

    while n > 0
        tres = (n - (n / 3 * 3))
        cinco = (n - (n / 5 * 5))

        print n

        if (tres = 0) and (cinco = 0) then
            print fizzbuzz
            flag = False
        end if

        if (tres = 0) and (flag = True) then
            print fizz
            flag = False
        end if

        if (cinco = 0) and (flag = True) then
            print buzz
            flag = False
        end if

        flag = True
        n = n - 1
    wend
end sub

test5.vbs

Sub main()
    ' bool ops
    Dim bt as boolean
    Dim bf as boolean
    bt = True
    bf = False

    print bf and bt
    print bf or bt
    print not(not(bf))
    print not((bt and bf) or bf)
end sub

Comentários:

• No teste 5, apesar de rodar, produz resultado incorreto (ultimo print deveria ser true);

Corrija o que foi apontado nesta issue para a próxima release. Não se esqueça de manter a EBNF e o DS atualizados, eles são a documentação da linguagem de seu compilador.

Abraços!

Versão: 1.0.2

Situação: OK

Oi Elisa,

Seu código funciona como esperado, só lembra de colocar o print da resposta da próxima vez ;)

Versão testada: v2.2.1

Status: OK

Comentários:

• Faltou um "and" no expression na EBNF;

Corrija o que foi apontado nesta issue para o próximo release.

Abraços!

Você não fez a última release (v2.0)