Willkommen bei weiteren Versuchen zur Artiificial Stupidity!
Man kann sagen, was man will - und hier ist der Satz auch schon aus.
Have fun!
ALGORITHMEN - Teil XVIII: Neueste Fortschritte in Künstlicher Dummheit
-
-
-
Was ganz Altes:
Code
Alles anzeigenWindowTitle "Wir rechnen mit LongInt" Window 0,0 - 820, 400 Declare Zahl&, Ergebnis& Zahl& = 2147483647 Ergebnis& = Zahl& + 2 Print str$(Zahl&) + " + 2 = " + str$(Ergebnis&) + " ?????????" Print Print "Größte positive Zahl: " + str$(%01111111111111111111111111111111) + " (in Bitschreibweise %01111111111111111111111111111111)" Print "Kleinste negative Zahl: " + str$(%10000000000000000000000000000000) + " (in Bitschreibweise %10000000000000000000000000000000)" Print "Das Bit ganz links dient zum Erkennen des Vorzeichens für negative Zahlen." Print "Das ist " + Str$(%11111111111111111111111111111111) + " in Bitschreibweise: %11111111111111111111111111111111" Print Print Print "Wir rechnen binär..." Print Print " 01111111111111111111111111111111" Print "+00000000000000000000000000000001" Print "_____________________________________" Print "=10000000000000000000000000000000" Print "+00000000000000000000000000000001" Print "_____________________________________" Print "=10000000000000000000000000000001" Print Print "Ist doch logisch, dass da " + str$(%10000000000000000000000000000001) + " raus kommt - oder?" WaitKey
1.jpg
Computer sind extrem dumm. Sie können maximal 1 und 1 addieren und bekommen am Ende immer null heraus. -
@AHT: Big LOL - da hab ich was Ähnliches:
Abt. Grosser Fermat´scher Satz
========================
1994 bewies der britische Mathematiker Andrew Wiles in einem aufwändigen Werk, dass die über 300 Jahre zuvor aufgestellte Fermat´sche Vermutung stimmt. Diese besagt, daß Gleichungen wie x^n+y^n=z^n für ganzzahlige x,y,z und alle Exponenten n größer als 2 keine ganzzahlige Lösungen haben können.Aus einer Folge der Simpsons wissen wir aber:
3987^12 + 4365^12 = 4472^12Womit Wiles widerlegt ist, von Homer Simpson!
GrussP.S.: Oder doch nicht: Eine 12. Potenz überfordert jeden heutigen Computer. Es handelt sich um einen sogenannten "NEAR MISS" - zu deutsch: "Knapp daneben ist auch vorbei!"
-
Abt. Kaleidoskop berechnen
=====================
In einen Zylinder mit gegebenem Innendurchmesser Z sollen N Spiegel (N>2) der Dicke D zu einem KALEIDOSKOP eingepasst werden. Gesucht ist die Spiegelbreite B des normal (mit 90°) abgekanteten Glases. Das Programm ist ein Experiment und ohne jede Gewähr!
GrussCode
Alles anzeigenWindowTitle "Kaleidoskop-Berechnung (Early Alpha Version)" 'Versuchsprogramm, wenig getestet. OHNE JEDE GEWÄHR! WindowStyle 24 Declare b!,d!,n&,ZyDm!,r!,w$ Repeat CLS font 0 sound 4000,30 print "\n In einen Zylinder mit gegebenem Innenradius r sollen n Spiegel (n>2)" print " der Dicke d zu einem KALEIDOSKOP eingepasst werden. Gesucht ist die " print " Spiegelbreite b des normal (mit 90°) abgekanteten Glases bei der " print " gewünschten Spiegelanzahl, gegebenem Innendurchmesser des Zylinders ZyDm" print " und bekannter Dicke D des Spiegelglases.\n\n Formel:\n" print " b = 2*sin(Pi/N)*(d*cos(pi-pi/N) + Sqrt(d^2*(sin(Pi-Pi/N))^2+(ZyDm/2)^2)) \n" font 2 print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);" " print "\n Spiegeldicke d [mm] = ";format$("%g",d!);" " print "\n Anzahl Spiegel n = ";n&;" " locate %csrlin-6,1 print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";:input w$:case w$>"":ZyDm!=val(w$) locate %csrlin-2,1 print "\n Zylinder-Innendurchmesser ZyDm [mm] = ";format$("%g",ZyDm!);" " print "\n Spiegeldicke d [mm] = ";:input w$:case w$>"":d!=val(w$) locate %csrlin-2,1:print "\n Spiegeldicke d [mm] = ";format$("%g",d!);" " print "\n Anzahl Spiegel n = ";:input w$:case w$>"":n&=val(w$) locate %csrlin-2,1:print "\n Anzahl Spiegel n = ";n&;" " case (zydm!<=0) or (n&<=2) or (d!<=0) or (d!>=zydm!):continue if (sqr(d!)*sqr(sin(pi()-pi()/N&))+sqr(ZyDm!/2))>=0 b! = 2*sin(Pi()/N&)*(d!*cos(pi()-pi()/N&) + Sqrt(sqr(d!)*sqr(sin(pi()-pi()/N&))+sqr(ZyDm!/2))) print "\n\n Die Spiegelbreite sollte betragen: ";format$("######0.#####",b!);" [mm]" sound 400,60 Else print " Lösung negativ!":sound 80,333 endif waitinput 10000 UNTIL %Key=27 END
-
Abt. Und noch viel mehr Rätsel - UnvmR 1 ´Mit den Waffeln einer Frau´
=====================================================
Rotzkäppchen bringt ihren drei Großmüttern Waffeln. Zu Beginn ist ihr Korb voll. Doch kurz bevor sie jeweils die Häuser der Großmütter erreicht, kommt der Große blöde Wolf - er hat leider einen an der Waffel - und frisst jeweils die Hälfte der im Korb befindlichen Waffeln. Als Rotzkäppchen das Haus der dritten Großmutter verlässt, ist ihr Korb leer - aber der Gerechtigkeit ist insoferne Genüge getan, als jede Großmutter gleich viele Waffeln bekommen hat.
Frage: Welche Anzahl Waffeln war anfangs mindestens im Korb? -
Lösung zu UnvmR 1
-----------------Spoiler anzeigen
Variablenschema: WK ... Waffeln im Korb, VG1 ... Vor Großmutter 1, NG1 ... Nach Großmutter 1
(1) WK - WK/2 = VG1
(2) VG1 - X = NG1
(3) NG1 - NG1/2 = VG2
(4) VG2 - X = NG2
(5) NG2 - NG2/2 = VG3
(6) VG3 - X = NG3
(7) NG3 = 0
==========================
(7.6) VG3-X=0 >>> VG3=X
(5) NG2/2 = X >>> NG2=2*X
(4) VG2 - X = 2*X >>> VG2 = 3*X
(3) NG1/2 = 3*X >>> NG1=6*X
(2) VG1 - X = 6*X >>> VG1 = 7*X
(1) WK/2 = 7*X >>> WK = 14*X
Gefragt ist die Mindestzahl: Pro Großmutter X=1 Waffel, daher:
Lösung: Es müssen mindestens 14 Waffeln im Waffelkorb gewesen sein! -
Abt. UnvmR 2
==========
Auf einer Tafel stehen positive ganze Zahlen. Das Produkt der beiden kleinsten Zahlen ist 16. Das Produkt der beiden größten Zahlen ist 72. Wieviele Zahlen stehen auf der Tafel? -
Spoiler anzeigen
Sollte es sich um unterschiedliche einstellige Zahlen handeln, wären dies 2, 8 und 9. Dürfte die gleiche Zahl mehrmals vorkommen, würde auch 4, 4, 8 und 9 funktionieren. Bei erlaubter Mehrstelligkeit ginge auch 4, 4, 18.
-
RGH: Bravo, UnvmR-2 korrekt gelöst. 3 oder 4 Zahlen!
Abt. UnvmR 3:
===========
In jedem der fünf Waggons eines Zuges sitzt mindestens ein Passagier. Zwei Passagiere heißen "benachbart", wenn
sie entweder im gleichen Waggon oder in zwei aufeinanderfolgenden Waggons sitzen. In diesem Sinne hat jeder Passagier
entweder genau 5 oder genau 10 "Nachbarn". Frage: Wie viele Passagiere befinden sich im Zug? -
Abt. UnvmR 4
==========
Drei dreiziffrige Zahlen werden aus den Ziffern von 1 bis 9 so gebildet, dass jede der neun Ziffern genau einmal verwendet wird. Gesucht ist die kleinstmögliche Summe dieser drei Zahlen... -
Lösung zu UnvmR-3
-------------------Spoiler anzeigen
17 Passagiere
Code
Alles anzeigenWindowtitle "UnvmR 3-Löser":cls:font 2 declare w1%,w2%,w3%,w4%,w5%, n1%,n2%,n3%,n4%,n5% whileloop 1,11:w1%=&Loop:whileloop 1,11:w2%=&Loop :whileloop 1,11:w3%=&Loop:whileloop 1,11:w4%=&Loop :whileloop 1,11:w5%=&Loop:n1%=w1%-1+w2% n2%=w1%+w2%-1+w3%:n3%=w2%+w3%-1+w4% n4%=w3%+w4%-1+w5%:n5%=w4%+w5%-1:if (n1%=5)+(n1%=10) if (n2%=5)+(n2%=10):if (n3%=5)+(n3%=10) if (n4%=5)+(n4%=10):if (n5%=5)+(n5%=10) print "\n ";w1%,w2%,w3%,w4%,w5%;" = ";\ int(w1%+w2%+w3%+w4%+w5%);" Passagiere" endif:endif:endif:endif:endif:endwhile:endwhile endwhile:endwhile:endwhile:print "\n OK.":waitkey
-
Abt. UnvmR 5
==========
Die Szene spielt in einer Schule: Die Summe der Alter von Tom und Johann ist 23. Die Summe der Alter von Johann und Alex ist 24 und die Summe der Alter von Alex und Tom ist 25. Wie alt ist der Älteste von ihnen? -
Lösung zu UnvmR 4:
----------------------Spoiler anzeigen
Die kleinsten Summen-Zahlen werden durch Vergabe der kleinstmöglichen Ziffern auf die 100er-stelle, dann die 10er-Stelle und schließlich die Einerstelle erzielt:
147
258
369
====
774 ist die Antwort.Beweis in Programmform anbei.
Code
Alles anzeigenWindowTitle "UnvmR 4 mittels KNUTH%-Shuffle lösen (~60 sek)" CLS:font 2 declare oo&,pp&,qq&,rr&,ss&,tt&,uu&,vv&,ww&,sum!,max!,min!,tm& declare ox&,px&,qx&,rx&,sx&,tx&,ux&,vx&,wx& declare on&,pn&,qn&,rn&,sn&,tn&,un&,vn&,wn& max!=-1*10^53:min!=10^53 Declare t$,t$[],n&,k&,j&,u&,v&,e%,z&,q$ e%=1:z&=0:q$=" " t$="1 2 3 4 5 6 7 8 9" t$=trim$(t$):t$=translate$(t$," "," "):case instr("|",t$):q$="|" t$=translate$(t$," ","|"):t$[]=explode(t$,"|"):n&=SizeOf(t$[]) declare t%[n&-1],ttt% 'whileloop 0,n&-1 't%[&Loop]=val(t$[&Loop]) 'print t%[&Loop], 'endwhile t%[]=t$[&index] tm&=&gettickcount While e%:inc z& oo&=t%[0]:pp&=t%[1]:qq&=t%[2] rr&=t%[3]:ss&=t%[4]:tt&=t%[5] uu&=t%[6]:vv&=t%[7]:ww&=t%[8] sum!=100*ww&+10*vv&+uu& + 100*tt&+10*ss&+rr& + 100*qq&+10*pp&+oo& if max!<sum!:max!=sum!:print "+"; ox&=oo&:px&=pp&:qx&=qq& rx&=rr&:sx&=ss&:tx&=tt& ux&=uu&:vx&=vv&:wx&=ww& endif if min!>sum!:min!=sum!:print "-"; on&=oo&:pn&=pp&:qn&=qq& rn&=rr&:sn&=ss&:tn&=tt& un&=uu&:vn&=vv&:wn&=ww& endif if n&<2:e%=0:break:endif k&=n&-2:While t%[k&]>=t%[k&+1]:Dec k&:case k&<0:break:EndWhile if k&<0:e%=0:break:endif j&=n&-1:While t%[j&]<=t%[k&]:dec j&:EndWhile ttt%=t%[k&]:t%[k&]=t%[j&]:t%[j&]=ttt%:u&=k&+1:v&=n&-1 :While u&<v&:ttt%=t%[u&]:t%[u&]=t%[v&]:t%[v&]=ttt%:inc u&:dec v&:EndWhile EndWhile'print "-------------- Ausgegebene Zeilen:",z&,"-----------------" tm&=&gettickcount-tm& print "\n\n MIN: ";int(min!),"=",wn&;vn&;un&,"+",tn&;sn&;rn&,"+",qn&;pn&;on& print "\n MAX: ";int(max!),"=",wx&;vx&;ux&,"+",tx&;sx&;rx&,"+",qx&;px&;ox& Print "\n KNUTH: ";tm&;" [ms]" sound 1000,200 waitinput End
-
Lösung zu UnvmR 5
---------------------Spoiler anzeigen
Tom + Johann = 23 >>> Tom = 23 - Johann
Johann + Alex = 24 >>> Alex = 24 - Johann
Alex + Tom = 25 >>> 24-Johann + 23 - Johann = 25
>>> 47 - 2*Johann = 25 >>> 47-25 = 2*Johann
>>> 22 = 2 Johann >>> Johann = 11Tom + Johann = 23 >>> Tom + 11 = 23 >>> Tom=23 - 11 = 12
Johann + Alex = 24 >>> 11 + Alex = 24 >>> Alex = 24 -11 = 13
Antwort: Der Älteste (Alex) ist 13 Jahre alt. -
Abt. UnvmR 6 ´Potenzfördernd´
=====================
2 ^ 24 = X ^ X
X = ? -
UnvmR 6
Spoiler anzeigen
schnell gewurzelt = 4096
-
Lösung zu UnvmR 6
---------------------Spoiler anzeigen
Eine einfache Formel zu Lösung der Sophomore-Gleichung X^X gibt es leider nicht. Bei Rätseln kann man aber davon ausgehen, daß sie keine unmöglichen Kopfstände erfordern.
Wir tasten uns also einfach heran:
2^24 = 4^12 = 8^8 = X^X >>> X = 8Weitere Antworten stimmen zwar mathematisch, schiessen aber etwas über das Ziel hinaus:
...= 16^6 = 256^3 = 4096^2 = 16777216 ^ 1 = 281.474.976.710.656 ^ 1/2, etc. etc.P.S.: Für ähnlich gelagerte Quizfragen: Programm "Exponentialer Ganzzahl-Slalom"
Code
Alles anzeigenWindowTitle "Exponential-Ganzzahlslalom" WindowStyle 24:Window %maxx/4,0 - 640,%maxy-41 set("decimals",17):font 2 declare a!,b!,z! '******************* Testwerte für a ^ b ********************** a!=3 : b!=24 '********************************************************** z!=a!^b! print format$("\n %g",a!),"^",format$("%g",b!),tab(30);"=",\ format$("%g",a!^b!)," Err=";format$("%g",a!^b!-z!) Repeat b!=int(b!-0.00000000001):case b!=0:BREAK a!=z!^(1/b!) print format$(" %g",a!),"^",format$("%g",b!),tab(30);"=",\ format$("%g",a!^b!)," Err=";format$("%g",a!^b!-z!) a!=int(a!+0.99999999):case a!<=1:break b!=lg(z!)/lg(a!) print format$(" %g",a!),"^",format$("%g",b!),tab(30);"=",\ format$("%g",a!^b!)," Err=";format$("%g",a!^b!-z!) until 0 waitinput End
-
Abt. UnvmR 6 ´Weiches Wasser´
======================
Während eines Gewittersturms fielen 15 Liter Regen pro Quadratmeter. Um wie viel stieg dabei der Wasserspiegel eines im Freien befindlichen Schwimmbeckens an? -
Abt. UnvmR 7 ´Punktiert´
==================
Die 10 Teilnehmer eines Tests erreichten im Mittel 6 Punkte. Genau 6 der Teilnehmer bestanden den Test. Im Mittel erreichten die Teilnehmer, die den Test bestanden, 8 Punkte. Frage: Welchen Mittelwert erreichten die Teilnehmer, die den Test nicht bestanden? -
Lösung zu UnvmR 6
-----------------------Spoiler anzeigen
15 l / m² bedeutet 15 dm³ / (10 dm * 10 dm)
= 15/100 dm = 0.15 dm =1.5 cm = 15 mm
Antwort: Der Wasserpegel im Schwimmbecken stieg um 15 mm.
------------------------------------------------------------------------Lösung zu UnvmR 7
-----------------------Spoiler anzeigen
6 = 1/10 * P_alle >>> P_alle = 60
8 = 1/6 * P_pos >>> P_pos = 48
P_alle = P_pos + P_neg >>> P_neg = P_alle - P_pos = 60 - 48 = 12
x = 1/4 * P_neg = 1/4 * 12 = 3 >>> x = 3
Antwort: Im Durschschnitt erreichten die Durchgefallenen 3 Punkte.
------------------------------------------------------------------------------------ -
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!