XProfan

Titre de la fenêtre "Bachet de Mezirac´s Wägeproblem"
cls:font 2
declare h&,  i&,j&,k&,l&,w&,sum&[121],konf$[121],max&

whileloop -1,1:h&=&Boucle

    whileloop -1,1:i&=&Boucle

        whileloop -1,1:j&=&Boucle

            whileloop -1,1:k&=&Boucle

                whileloop -1,1:l&=&Boucle

                    w&=3^4*h&+3^3*i&+3^2*j&+3^1*k&+3^0*l&

                    si w&>=0':imprimer w&

                        sum&[w&]=sum&[w&]+1
                        konf$[w&]=str$(int(3^4*h&))+" "+str$(int(3^3*i&))+" "+\
                        str$(int(3^2*j&))+" "+str$(int(3*k&))+" "+str$(int(l&))
                        cas w&>max&:max&=w&

                    endif

                endwhile

            endwhile

        endwhile

    endwhile

endwhile

imprimer "\n  Gewichtswert Häufigkeit  Konfiguration(´-´: dans Wägegutschale)"

whileloop 0,max&

    imprimer
    imprimer tab(4);&Boucle,tab(20);sum&[&Boucle],tab(36);translate$(konf$[&Boucle],"0",".",)

    si %csrlin>23:waitinput:cls:endif

        imprimer

    endwhile

    imprimer "\n ------------------------------------------------------"
    waitinput