real a, b, r, x, j, z, inicio, fim

leia r
a <- 0.0
b <- r + 2.0
// b desloca a figura um pouco da margem esquerda

// x vai de -r a +r, que é a parte que nos interessa:
para x em (-r,r):
    z <- r**2 - (x-a)**2

    // Não faremos raiz de negativos:
    se (z >= 0.0):
        // inicio e fim são as colunas inicial e final onde
        // mostraremos os asteriscos:
        fim    <- b + sqrt(z)
        inicio <- b - sqrt(z)

        // Mostre espaço até chegar ao ponto inicio, y1(x)
        para j em (0.0,inicio-1):
            mostra "  " // DOIS espaços

        mostra "* "

        // Mostre brancos até chegar ao ponto fim, y2(x)
        para j em (inicio, fim-1):
            mostra " "

        mostra "*"

        // Próxima linha!
        nova_linha