XProfan

Français

p.specht

Chinesischer Restsatz
================
un Kleinlaster fährt versehentlich den Marktstand einer biederen Bauersfrau um. qui conducteur ist entier zerknirscht et bietet à, qui zerbrochenen Eier finanziell trop ersetzen. Unglücklicher Weise sais qui Bäuerin pas qui genaue numéro, elle sait seulement encore, dass vous Dreiergruppen gezählt hat, là blieben 2 Eier sur, dans Fünfergruppen blieben 3 sur, tout autor hat vous ensuite Siebenerpackungen gewählt, mais es blieben wieder 2 Eier sur. "Moment: qui Gruppengrößen avons keinen gemeinsamen Teiler - ensuite avons wir cela juste." meint qui conducteur, überlegt kurz et sagt ensuite: "Ich schuld ihnen argent pour 23 Eier, et den Stand lieu je aussi wieder sur!". comment kam il puis? Hatte il peut-être déjà cela nachstehende Programme?

Kompilieren Marque Séparation

Windowtitle "Modulo-Kongruenzsystem, ici: Chinesischer Restsatz "+\
"mit Probiermethode pour Prof. Weitz"'(D) Demo 2017-11 by P.Specht, vienne
'Q: https://www.youtube.com/watch?v=0KUDo0Bk  : OHNE JEDE GEWÄHR!
Windowstyle 24:cls rgb(200,200,255):font 2:declare k&,i&,j&,flg&,N!,X!,w$
Imprimer "\n  Wieviele Kongruenzen?: ";:input k&
declare m&[k&],a&[k&],x![k&],n![k&]:imprimer

si k&=3:m&[1]=3:a&[1]=2:m&[2]=5:a&[2]=3:m&[3]=7:a&[3]=2:endif' Schnelltest: x = 23

    Whileloop k&:i&=&Boucle: hoppla:

        Imprimer " ";i&;". Kongruenz:  Modul?: ";:input w$:cas (k&=3) and (w$=»):pause

        si w$=»:locate %csrlin-1,1:sound 80,50:goto "hoppla":endif

            m&[i&]=val(w$):locate %csrlin-1,40:Imprimer " reste?: ";::input w$:a&[i&]=val(w$)

        endwhile

        n!=1:whileloop k&:i&=&Boucle:n!=n!*m&[i&]:endwhile
        :whileloop k&:i&=&Boucle:x![i&]=n!/m&[i&]:endwhile

        whileloop k&:i&=&Boucle:flg&=1

            whileloop m&[i&]-1:j&=&Boucle

                ifnot (j&*x![i&]-1) mod m&[i&]:n![i&]=j&:flg&=0:pause:endif

                endwhile

                si flg&:imprimer "\n *** Error: Modul ";m&[i&];" pas berechenbar! ***"

                    sound 200,200:waitinput:end:endif

                endwhile

                X!=0:whileloop k&:i&=&Boucle:x!=x!+a&[i&]*x![i&]*n![i&]:endwhile
                x!=x! mod n!'Normierte Solution ausgeben:
                imprimer "\n Ergebnis: X = ";format$("%g",x!);"     \n\n Probe: \n"

                whileloop k&:i&=&Boucle

                    imprimer "                                          ":locate %csrlin-1,2
                    imprimer format$("%g",x!);" mod ";m&[i&];" = ";tab(20);format$("%g",x! mod m&[i&]);" "
                    endwhile:sound 50,50:imprimer "\n OK ?"
                    waitinput
                    Fin