XProfan

Título de la ventana "Pytagoräische Dreieckszahlen"
cls
declarar x!,y!,z!
var pi!=4*arctan(1)

whileloop 1,1000:x!=&Loop

    whileloop 1,&Loop:y!=&Loop

        z!=sqrt(x!*x!+y!*y!)

        if z!=int(z!)

            imprimir "  ";int(x!);"² +",int(y!);"² =",int(z!);"²";
            imprimir tab(26);format$("%g",arctan(y!/x!)*180/pi!);"°",
            imprimir tab(46);format$("%g",90-arctan(y!/x!)*180/pi!);"°"

        endif

        if %csrlin>24:waitinput:cls:endif

        endwhile

    endwhile

    waitinput