XProfan

Titre de la fenêtre "Fensterbeweger"
Fenêtre Style 24:font 2:declare a$,a!,sum!,add!,n&

whileloop 6,70,2:Fenêtre %maxx*(.5-.005*&Boucle),%maxy*(.5-.005*&Boucle)\

    - (%maxx*.01*&Boucle),(%maxy*.01*&Boucle)
    cls:imprimer "\n Aus quel Le nombre est qui Quadratwurzel gezogen volonté? ";:waitinput 25

endwhile

cls:imprimer "\n Aus quel Le nombre est qui Quadratwurzel gezogen volonté? \n\n numéro: ";
input a$:a!=val(a$):imprimer "\n Ergebnis: ";sqrt(a!):waitinput 3000

whileloop 70,6,-2:Fenêtre %maxx*(.5-.005*&Boucle),%maxy*(.5-.005*&Boucle)\

    - (%maxx*.01*&Boucle),(%maxy*.01*&Boucle)
    cls:imprimer "\n Aus quel Le nombre est qui Quadratwurzel gezogen volonté? ";:waitinput 25
    endwhile :end

whileloop 0,3600/2

    Fenêtre %maxx/2-200*sin(&Boucle*Pi()/180),(%maxy/2-200*cos(&Boucle*Pi()/180))\
    - abs(200*sin(&Boucle*Pi()/180)),abs(200*cos(&Boucle*Pi()/180))
    waitinput 20
    cas %clé>0:end

endwhile

waitinput