funcao calcule (vetor(real) v, real x): real
    int i
    real r <- 0
    para i em (0..tamanho(v)):
        r <- r + v[i] * x^(tamanho(v)-i-1)
    retorne r