Autor Beitrag
Fiete
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Mo 17.09.12 11:48 
Moin an alle Tüftler,

Gelöst werden sollen die Rätsel:
1. die Wurzel aus WONDERFUL IST OODDF
2. Gesucht sind alle neunstelligen Zahlen(neun verschiedene Ziffern) mit der Eigenschaft:
die ersten n Ziffern sind durch n ganzzahlig teilbar, wobei n = 1,...,9
Am besten ihr schreibt ein Programm

Mit der Lösung lassen sich die gezippten Dateien dann öffnen :wink:
Frohes Knobeln und Programmieren
Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)


Zuletzt bearbeitet von Fiete am Di 18.09.12 11:01, insgesamt 1-mal bearbeitet
Tilo
ontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 1098
Erhaltene Danke: 13

Win7 geg. WInXP oder sogar Win98
Rad2007
BeitragVerfasst: Mo 17.09.12 12:37 
Ist es nicht etwas früh für ein Adventsrätsel? (Auch wenn es in diversen Discounter schon Weihnachtsfuter gibt)

Um nicht ganz Off Topic zu sein: Haben bei Text "WONDERFUL IST OODDF" die Leerzeichen eine Bedeutung?

mfg
Tilo
gerd8888
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 205
Erhaltene Danke: 3

Win7
Delphi 10.1 Starter (kostenlos) Lazarus
BeitragVerfasst: Mo 17.09.12 18:42 
Ist das Beispiel richtig, wenn beispielsweise
123456789 die Wurzel 22447 waere, ist das Problem geloest.
Warum 2 Raetsel, 2) bezieht sich doch auf 1)
?
Andreas Schilling
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128
Erhaltene Danke: 1

WIN XP, WIN 7
Delphi 5 Ent, Delphi 2007 Pro, XE4
BeitragVerfasst: Di 18.09.12 08:51 
Die erste Datei habe ich entzippt. Beim zweiten habe ich 2486 Zahlen gefunden, welche die erste Ziffer durch 1, die ersten beiden Ziffern durch 2, die ersten 3 Ziffern durch 3 usw. zu teilen gehen. Entweder habe ich die Aufgabenstellung nicht richtig verstanden, aber 2486 wird jedenfalls nicht als Passwort akzeptiert. Benötige also mal einen Tip.

Gruß Andreas
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Di 18.09.12 09:15 
Moin Andreas,
Du hast die Aufgabenstellung schon richtig verstanden. Als Passwort musst du eine 9-stellige Lösung eingeben. Mein Programm errechnet genau eine Lösung.

@gerd8888: du hast die erste Aufgabe richtig verstanden. Das zweite Rätsel hat mit dem ersten NICHTS zu tun.

@ Tilo: die erste Aufgabe ist eine zu lösende Gleichung sqrt(wonderful)=ooddf, finde neun verschiedene Ziffern die die Gleichung erfüllen.

Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)
Andreas Schilling
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128
Erhaltene Danke: 1

WIN XP, WIN 7
Delphi 5 Ent, Delphi 2007 Pro, XE4
BeitragVerfasst: Di 18.09.12 10:04 
Hallo Fiete,

wenn es nur eine Lösung gibt, dann habe ich ein Problem. Mein Programm hat im Bereich 100.000.000 bis 999.999.999 nun nach eine Korrektur 2492 Zahlen gefunden welche die Bedingung erfüllen.

102000564 102000564/9=11333396;10200056/8=1275007;1020005/7=145715;102000/6=17000;10200/5=2040;1020/4=255;102/3=34;10/2=5
102006162 102006162/9=11334018;10200616/8=1275077;1020061/7=145723;102006/6=17001;10200/5=2040;1020/4=255;102/3=34;10/2=5
102006801 102006801/9=11334089;10200680/8=1275085;1020068/7=145724;102006/6=17001;10200/5=2040;1020/4=255;102/3=34;10/2=5
102006882 102006882/9=11334098;10200688/8=1275086;1020068/7=145724;102006/6=17001;10200/5=2040;1020/4=255;102/3=34;10/2=5
102054402 102054402/9=11339378;10205440/8=1275680;1020544/7=145792;102054/6=17009;10205/5=2041;1020/4=255;102/3=34;10/2=5
102054483 102054483/9=11339387;10205448/8=1275681;1020544/7=145792;102054/6=17009;10205/5=2041;1020/4=255;102/3=34;10/2=5
102402324 102402324/9=11378036;10240232/8=1280029;1024023/7=146289;102402/6=17067;10240/5=2048;1024/4=256;102/3=34;10/2=5
102408642 102408642/9=11378738;10240864/8=1280108;1024086/7=146298;102408/6=17068;10240/5=2048;1024/4=256;102/3=34;10/2=5
102450645 102450645/9=11383405;10245064/8=1280633;1024506/7=146358;102450/6=17075;10245/5=2049;1024/4=256;102/3=34;10/2=5
102456243 102456243/9=11384027;10245624/8=1280703;1024562/7=146366;102456/6=17076;10245/5=2049;1024/4=256;102/3=34;10/2=5
102456963 102456963/9=11384107;10245696/8=1280712;1024569/7=146367;102456/6=17076;10245/5=2049;1024/4=256;102/3=34;10/2=5
102804165 102804165/9=11422685;10280416/8=1285052;1028041/7=146863;102804/6=17134;10280/5=2056;1028/4=257;102/3=34;10/2=5
...

Gruß Andreas
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Di 18.09.12 11:06 
Moin Andreas,
mir ist leider ein wichtiger Hinweis durch die Lappen gegangen :oops:
die neunstellige Zahl muß aus neun verschiedenen Ziffern bestehen :!:
Ich hoffe, daß ich dir nicht zuviel Arbeit gemacht habe :?:
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)
Andreas Schilling
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128
Erhaltene Danke: 1

WIN XP, WIN 7
Delphi 5 Ent, Delphi 2007 Pro, XE4
BeitragVerfasst: Di 18.09.12 11:39 
Hallo Fiete,

jetzt habe ich auch die zweite Lösung gefunden.

Gruß Andreas
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Di 18.09.12 12:23 
Super Andreas,
als Anerkennung ein Programm zu HdR.
Paßwort sind die beiden Lösungen(18 Ziffern :wink: )
Gruß Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)


Zuletzt bearbeitet von Fiete am Di 18.09.12 17:57, insgesamt 1-mal bearbeitet
Horst_H
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1654
Erhaltene Danke: 244

WIN10,PuppyLinux
FreePascal,Lazarus
BeitragVerfasst: Di 18.09.12 12:49 
Hallo,

dieses (odd(K) and odd(Tiefe)) ist ja eine schöne Sache um unnötige Divisionen zu sparen.
Aber ich habe nur insgesamt 308 Aufrufe und bis zur passenden Zahl auch knapp über 100.
Die Rekursion ist ja ähnlich dem 8-Damen( n-queens )Problem.
www.entwickler-ecke....iewtopic.php?t=72766

Gruß Horst
OlafSt
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 486
Erhaltene Danke: 99

Win7, Win81, Win10
Tokyo, VS2017
BeitragVerfasst: Di 18.09.12 13:39 
Ich bewundere die Leute, die die Fragestellungen überhaupt begreifen - für mich sind das böhmische Dörfer :(

_________________
Lies, was da steht. Denk dann drüber nach. Dann erst fragen.
Andreas Schilling
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128
Erhaltene Danke: 1

WIN XP, WIN 7
Delphi 5 Ent, Delphi 2007 Pro, XE4
BeitragVerfasst: Di 18.09.12 13:50 
Hallo Fiete,

es gibt bei Mittelerde.exe beim Start eine Fehlermeldung: "Die Datei Mittelerde.jpg liegt nicht im aktuellen Verzeichnis".

Gruß Andreas
Horst_H
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1654
Erhaltene Danke: 244

WIN10,PuppyLinux
FreePascal,Lazarus
BeitragVerfasst: Di 18.09.12 15:13 
Hallo,

Fehlermeldung:
"Die Datei Mittelerde.jpg liegt NICHT im aktuellen Verzeichnis".
NICHT wird dort groß geschrieben ;-)

Gruß Horst
Fiete Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Di 18.09.12 18:02 
Moin Andreas,
die Bilddatei hatte ich versehentlich gelöscht :cry:
@Horst: Fehler ist behoben, schön daß Du auch zu den Denkern gehörst
@OlafSt: kleiner Tip, handle doch nach dem Motto Deiner Signatur
Gruß Fiete

_________________
Fietes Gesetz: use your brain (THINK)
Mathematiker
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 2622
Erhaltene Danke: 1448

Win 7, 8.1, 10
Delphi 5, 7, 10.1
BeitragVerfasst: Di 18.09.12 18:36 
Hallo Fiete,
ich habe beide Rätsel gelöst und mir die Texte angesehen.
Von mathematischer Seite muss ich aber "meckern". :wink:
Die Schleife für F läuft von 0 bis 9. F = 0, 1, 5 oder 6 kann aber nicht sein, denn dann wäre auch das L von WONDERFUL eine 0, 1, 5 oder 6, d.h. F=L. Zumindest die 0 und 1 kann man sich in der Schleife sparen.
Oops, habe ich jetzt schon zu viel verraten? :lol:
Beste Grüße
Mathematiker

_________________
Töten im Krieg ist nach meiner Auffassung um nichts besser als gewöhnlicher Mord. Albert Einstein
Horst_H
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1654
Erhaltene Danke: 244

WIN10,PuppyLinux
FreePascal,Lazarus
BeitragVerfasst: Di 18.09.12 18:47 
Hallo,

@OlafSt:
Zu WONDERFUL IST OODDF hat doch Gerd8888 ganz früh das passende geschrieben, wie bei einem Symbolrätsel Gleiche Ziffer = Gleicher Buchstabe.
Man darf nur nicht darauf hereinfallen, dass IST dazugehören könnte.Das hätte man vielleicht geschickter klein geschrieben.
Wenn die Wurzel aus WONDERFUL = OODDF ist dann ist fast äquivalent OODDF.. = WONDERFUL

@Mathematiker:
Nichts geht voran p196,Umkehrbare Primzahlfolgen, Plasma.. das sind zuviel Baustellen.
Hier dies war was für die Mittagspause.

Gruß Horst
OlafSt
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 486
Erhaltene Danke: 99

Win7, Win81, Win10
Tokyo, VS2017
BeitragVerfasst: Di 18.09.12 19:54 
user profile iconFiete hat folgendes geschrieben Zum zitierten Posting springen:

@OlafSt: kleiner Tip, handle doch nach dem Motto Deiner Signatur
Gruß Fiete


Als wenn ich mich hier hinsetzen und nach Null Minuten nachdenkens einfach drauflosschreiben würde, das ich was nicht begreife...

_________________
Lies, was da steht. Denk dann drüber nach. Dann erst fragen.
Horst_H
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1654
Erhaltene Danke: 244

WIN10,PuppyLinux
FreePascal,Lazarus
BeitragVerfasst: Di 18.09.12 19:58 
Hallo,

bist Du denn nun weitergekommen?

Gruß Horst