XProfan

Titre de la fenêtre "Pytagoräische Dreieckszahlen"
cls
declare x!,y!,z!
var pi!=4*arctan(1)

whileloop 1,1000:x!=&Boucle

    whileloop 1,&Boucle:y!=&Boucle

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

        si z!=int(z!)

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

        endif

        si %csrlin>24:waitinput:cls:endif

        endwhile

    endwhile

    waitinput