XProfan

Español

p.specht

Chinesischer Restsatz
================
Ein Kleinlaster fährt versehentlich el Marktstand uno biederen Bauersfrau en. Der Fahrer es bastante zerknirscht y bietet a, el zerbrochenen Eier finanziell a sustituir. Unglücklicher Weise weiß el Bäuerin no el genaue Zahl, ellos weiß sólo todavía, dass ellos Dreiergruppen gezählt ha, como blieben 2 Eier encima, en Fünfergruppen blieben 3 encima, por lo tanto ha ellos entonces Siebenerpackungen gewählt, pero blieben otra vez 2 Eier encima. "Moment: El Gruppengrößen haben no gemeinsamen Teiler - Dann haben wir el igual." meint el Fahrer, überlegt kurz y sagt entonces: "Ich schuld ihnen Geld para 23 Eier, y el Stand lugar Yo auch otra vez en!". Como kam él darauf? Hatte él tal vez ya el nachstehende Programa?

Kompilieren Marca Separación

Windowtitle "Modulo-Kongruenzsystem, hier: Chinesischer Restsatz "+\
"mit Probiermethode después de Prof. Weitz"'(D) Demo 2017-11 by P.Pájaro carpintero, Wien
'Q: https://www.youtube.com/watch?v=0KUDo0Bk  : OHNE JEDE GEWÄHR!
Windowstyle 24:cls rgb(200,200,255):font 2:declarar k&,i&,j&,flg&,N!,X!,w$
Imprimir "\n  Wieviele Kongruenzen?: ";:input k&
declarar m&[k&],a&[k&],x![k&],n![k&]:imprimir

if 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&=&Loop: hoppla:

        Imprimir " ";i&;". Kongruenz:  Modul?: ";:input w$:caso (k&=3) and (w$=""):romper

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

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

        endwhile

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

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

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

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

                endwhile

                if flg&:imprimir "\n *** Error: Modul ";m&[i&];" no berechenbar! ***"

                    sound 200,200:waitinput:end:endif

                endwhile

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

                whileloop k&:i&=&Loop

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