ALGORITHMEN - Teil XXII: Paradoxe Paradoxien

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

  • Neu

    @Volkmar: Genau deshalb wartet der Piepser auf Minute=00 oder 15,30,45 und geht danach bis 2 Minuten vor der nächsten Viertelstunde schlafen, um die Systemlast zu minimieren. Leider löst das Fenster-aus dem Tray holen das Waitinput des Timers aus. Ich sage dann nur: "It´s not a bug, it´s a feature!" :P


    P.S.: Meine potthässliche Uhr von dunnemal macht das so wie du schriebst, belastet damit aber die CPU ziemlich:

    Quellcode

    1. Windowtitle "POTTHÄSSLICHE UHR":WindowStyle 16 | 64
    2. 'Window (%maxx-%maxy)/2,0 - %maxy,%maxy-41:Cls
    3. Window 0,0 - %maxx,%maxy
    4. '(CL)CopyLeft 2017-11 by P.Specht, Wien; Keine wie auch immer geartete Gewähr!
    5. var xx&=width(%hwnd):var yy&=height(%hwnd):var xh!=xx&/2:var yh!=yy&/2
    6. declare t!,r0&,r1&,r2&,r3&,b0&,b1&,b2&,b3&,b9& ,pi2!
    7. r0&=300 : r1&=130 : r2&=210 : r3&=260: pi2!=2*pi()
    8. b0&=7 : b1&=28 : b2&=20 : b3&=8 : b9&=3
    9. MCls xx&,yy&:REPEAT
    10. t!=(val(mid$(time$(0),1,2))*60+val(mid$(time$(0),4,2))+val(mid$(time$(1),1,2))/60)*pi2!
    11. StartPaint -1:ClS if(between(t!,2260,6785),$F0F0F0,$707070)':locate 1,1:print t!;" ";
    12. usebrush 1,$E0E0E0:usepen 0,2*b0&,$000000:Ellipse xh!+r0&+2,yh!+r0&+2 - xh!-r0&+2,yh!-r0&+2
    13. usebrush 0,$E0E0E0:usepen 0,b0&,$A0A000:Ellipse xh!+r0&,yh!+r0& - xh!-r0&,yh!-r0&
    14. usepen 0,b9&,0:line xh!,0 - xh!,yy& : line 0,yh! - xx&,yh!
    15. usepen 0,b1&,$A00000:line xh!,yh! - xh!+r1&*sin(t!/720),yh!-r1&*cos(t!/720)
    16. usepen 0,b2&,0:line xh!,yh! - xh!+r2&*sin(t!/60),yh!-r2&*cos(t!/60)
    17. usepen 0,b3&,200:line xh!,yh! - xh!+r3&*sin(t!),yh!-r3&*cos(t!)
    18. EndPaint:MCopyBMP 0,0-xx&,yy& > 0,0;0
    19. waitinput 1000:UNTIL (%key>0) or %mousepressed
    20. end
    Alles anzeigen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von p. specht ()

  • Neu

    p. specht schrieb:

    Abt. Viertelstunden-Piepser a la Kirchturm-Uhr
    Könntest Du das Tool denn zu einem Programm kompilieren, damit es der Nutzer ggfls. verwenden kann? Mit dem Quelltext alleine wir er nichts anfangen können. ;-)
    Meine aktuellen Bücher: Windows 7 Tipps & Tricks · · Windows 10 Schritt für Schritt erklärt · · Windows 10 Tipps & Tricks · · Gern zum Schlern

    »Nur wo du zu Fuß warst, bist du auch wirklich gewesen.«
    Johann Wolfgang von Goethe.
  • Neu

    Naja, ein sichtbares Fenster braucht es ja nicht unbedingt.
    Man braucht nur eines für den Timer, das nach Programmstart
    sofort unsichtbar wird.

    Hab da mal was angefangen. Wichtiges Problem ist, daß das Prog
    eine ganze Minute lang piept und die Msg-Box anzeigt. Irgendwie
    müßte ich da den Timer wieder zurücksetzen :

    Quellcode

    1. WindowTitle "Viertelstunden - Wecker"
    2. Window 0,0-640,480
    3. ShowWindow(%hWnd,0)
    4. Hicon& = Create("hIcon","A")
    5. TrayIcon("Add", %hWnd, 1, hIcon&, "Viertelstunden - Wecker")
    6. SetTimer 1000
    7. checktimer& = 1
    8. ende& = 0
    9. text$ = "Hallo, ich bin dein Wecker !"
    10. Proc Menue
    11. CreateMenu
    12. AppendMenu 101, "&Info"
    13. AppendMenu 102, "&Wecker aktiviert"
    14. AppendMenu 103, "WeckText erstellen"
    15. AppendMenu 104, "-"
    16. AppendMenu 105, "&Beenden"
    17. Return TrackMenu()
    18. EndProc
    19. WhileNot ende&
    20. WaitInput
    21. If %wmTimer
    22. tm$ = Mid$(time$(0), 4, 2)
    23. Select tm$
    24. CaseOf "00", "15", "30", "45"
    25. Sound 2000, 80 : Sleep 100 : Sound 2000, 80 : Sleep 100 : Sound 2000, 80
    26. MessageBox(text$, "Info", 0)
    27. /*
    28. StartPaint %DeskTop
    29. DrawText 400, 400, "Erinnerung !!!!!!"
    30. EndPaint
    31. */
    32. EndSelect
    33. EndIf
    34. If TrayIcon("Msg", 1) = $204 'Rechter Mausbutton gedrückt
    35. ' SetActiveWindow(%hWnd)
    36. Menue()
    37. CheckMenu 102, checktimer&
    38. If (%MenuItem = 101)
    39. Messagebox("Wecker", "Info", 0)
    40. ElseIf (%MenuItem = 102)
    41. If checktimer& = 1
    42. KillTimer
    43. checktimer& = 0
    44. Else
    45. SetTimer 1000
    46. checktimer& = 1
    47. EndIf
    48. SetMenuItem 0
    49. CheckMenu 102, checktimer&
    50. ElseIf (%MenuItem = 103)
    51. text$ = Input$("Wecktext eingeben !", "Wecker", "Hallo, ich bin dein Wecker !")
    52. SetMenuItem 0
    53. ElseIf (%MenuItem = 105)
    54. ende& = 1
    55. EndIf
    56. EndIf
    57. Case %UMessage = $0010 : ende& = 1
    58. EndWhile
    59. Case checktimer& = 1 : KillTimer
    60. End
    Alles anzeigen
    Wäre schon mal ein Anfang.

  • Neu

    Lösung zu PR 67 ´Vier Kinder´
    -----------------------------
    Spoiler anzeigen

    Alfred, Berta, Chris und Dora sind jeweils verschieden groß.
    Am Telefon wurden sie gefragt, wer aus der Gruppe der oder die Größte ist:

    Alfred: Ich bin ungefähr mittelgroß (==> Also nicht der Größte oder Kleinste!)
    Berta: Ich bin nicht die Kleinste.
    Chris: Ich bin der Größte.
    Dora: Ich bin die Kleinste.

    Leider war (genau) eine Aussage falsch! Welches Kind ist also das größte?

    Lösungsansatz:

    1. Falls Dora lügt:
    ist sie doch nicht das kleinste Kind. Dann müssen Alfred, Berta und Chris die Wahrheit gesagt haben, weil ja nur ein Kind lügt. Alle drei behaupten aber (direkt oder indirekt), nicht der/die Kleinste zu sein. Daher existiert in diesem Szenario kein kleinstes Kind. Da das unmöglich ist, kann Dora nicht die Lügnerin sein, sagt also die Wahrheit und ist die Kleinste (!).

    2. Daraus folgt, daß auch Berta die Wahrheit sagt: Sie ist nicht die Kleinste.

    3. Würde Chris die Wahrheit sagen, wäre er der Größte und Dora die Kleinste.
    Somit hätte auch Alfred die Wahrheit gesagt, dann wären aber alle Auss agen richtig gewesen. Das entspricht nicht der ´Übungsannahme: Eine/r lügt!´ Daher ist Chris der Lügner und kann somit nicht der Größte sein.

    4. Zusammenfassung: Alfred sagt die Wahrheit und ist daher nicht der Größte. Damit kann nur noch Berta die Größte sein.

    Die Antwort lautet: BERTA!

    P.S. Mögliche Reihenfolgen von Groß zu Klein wären
    Berta, Alfred, Chris, Dora
    oder
    Berta, Chris, Alfred, Dora.
    Das war aber garnicht gefragt! ;-)
  • Neu

    Zum Kapitelabschluß folgt, wie "nach alter Väter Sitte" nun noch ein ...

    CHRONOLOGISCHES INHALTSVERZEICHNIS ZU ALGORITHMEN TEIL XXII
    =====================================================
    22__001 Paradoxien - Goodman´s Paradox
    22__003 Paradoxien - Paradoxie des Haufens
    22__006 ALGORITHMEN - Teil XXII: Paradoxe Paradoxien
    22__012 TS-Soft: Link zu einem Internet-Logikstudium
    22__015 Philosophie: Froschperspektive
    22__016 Gödelsches Wissensparadox
    22__017 Philosophie-Link: Der Mensch, die Krone der Schöpfung?
    22__018 @ravenheart zum Haufenproblem
    22__019 Die sieben Paradoxa der Quantenwelt
    22__020 @ravenheart: Link Waldhonig: Bienenkotze aus Blattlauskacke
    22__022 Prog.-Link: CODATA Physikalische Konstanten aufbereiten
    22__023 Gödels Kontinuumslogik
    22__024 @Oldi-40: Link Dreiwertige Logik
    22__026 Konkrete Anwendungen für FUZZY-LOGIK
    22__029 Umgamg mit Wahrheit: Dunkel war´s, der Mond schien helle
    22__030 Künstliche Intelligenz: Deep learning oder Depp learning?
    22__031 Prog.: Bachet de Mezirac´s Balkenwaagen-Wägeproblem
    22__032 Prog.: Bachet-erweiterter Euklidischer Algorithmus
    22__033 Paradoxien der materiellen Implikation
    22__034 Link & Schlussregeln des aussagenlogischen Beth-Baumkalküls
    22__035 Weitere Paradoxien, mit Link: Das Münchhausen Trilemma
    22__036 _Paradoxe Rätsel - PR 1 ´Jugendpsychologie´
    22__037 _Paradoxe Rätsel - PR 2 `Die Hälfte des Gliedes´
    22__041 Gescheit - gescheiter - gescheitert: Links zur Psycholgie
    22__042 Link: Paradoxien unserer Zeit
    22_-043 _Paradoxe Rätsel - PR 3 ´Folge´
    22__047 Prog.-V2 N.tes Folgeglied einer multiplikativ-additiven Folge
    22__048 Versuchsprog.: Auf Verzinsung und Prämie-Periodenspesen rückschließen
    22__049 Paradoxe Rätsel - PR 4: Vor Donnerstag?
    22__051 _DaS höllische Gauß-Euler-Rätsel PR 5
    22__053 _Paradoxe Rätsel PR 6: x+y+z = x*y*z ?
    22__054 _Rätsel PR 7: Mutter und Tochter
    22__062 _Rätsel PR 8: Pepes Alter
    22__064 _Rätsel PR 9: Bücher im Regal
    22__065 _Rätsel PR 10: Dreistellige Zahl
    22__067 _Rätsel PR 11: Nachbarstochter
    22__069 Prog.: Vier-Minuten-Wecker
    22__070 @H.Brill: Prog: In Ordnerdateien String suchen, Zeile zeigen
    22__073 Formel zur Summen-Berechnung von Folgegliedern
    22__074 _Rätsel PR 12 ´Hochhoch´
    22__075 _Rätsel PR 13 ´3 Stunden später´
    22__080 _Rätsel PR 14 Smartphone
    22__084 _Rätsel PR 15 ´Gegeben´
    22__086 _Rätsel PR 16 Computerfehler
    22__089 Prog: Verzinseszinsungsdauer unter Speseneinfluss
    22__091 _Prog: Andere Lösung(en) zu PR 16
    22__092 _Rätsel PR 17 Donald Rump
    22__095 _Rätsel PR 18 Alter der Mathelehrerin
    22__096 _Rätsel PR 19 Zwei Züge
    22__100 _Rätsel PR 20 Eingleisige Bahnstrecke
    22__108 _Rätsel PR 21 Bitte Kopfrechnen
    22__109 _Rätsel PR 22 ´Nachnamen´
    22__115 _Korrektur zu Rätsel PR 22
    22__119 _Rätsel PR 23 Am Geflügelmarkt
    22__121 _Rätsel PR 24 ´Preisverfall´
    22__122 _Rätsel PR 25 ´Maßstäblich´
    22__126 _Prog. Lösung ergänzend zu PR 23
    22__128 _PR 26 Antikes Rätsel
    22__129 _Rätsel PR 27 Zeitangabe
    22__137 _Rätsel PR 28 Folge fortsetzen
    22__138 _Rätsel PR 29 Doppelt russisch
    22__142 _Rätsel PR 30 ´Römisch rechnen´
    22__145 Link Mathematricks: Die Trachtenberg-Schnellrechenmethode
    22__146 _Rätsel PR 31 ´Volumengleich´
    22__149 _Rätsel PR 32 ´Kalenderpyramide`
    22__150 _Rätsel PR 33 ´Halleyscher Komet´
    22__151 _Rätsel PR 34 Generationenkontakt
    22__155 _Rätsel PR 35 Summe der Quadrate
    22__156 _@Michael_Wodrich: Prog. löst PR 35
    22__157 _XProfan 11.2a-free Prog. löst PR 35
    22__158 _Rätsel PR 36 Alte Schachteln
    22__159 _Rätsel PR 37 ´Radius`
    22__160 _Rätsel PR 38 ´16 Kegel´
    22__162 _Prog Lösung zu Rätsel PR 38
    22__166 _Rätsel PR 39 Umfang=Fläche
    22__167 _Rätsel PR 40 Kartonschachtelgrößen
    22__170 _Rätsel PR 41 Herrn Müllers Geldbörse
    22__171 _Formellösung zu PR 35 Kegel
    22__172 Info 29.10.2019: Das Internet ist heute 50
    22__177 _Rätsel PR 42 Doppelbruchvereinfachung
    22__178 _Rätsel PR 43 `Würfelhand´
    22__179 _Rätsel PR 44 Primzahleier von 3 Hennen
    22__189 _Prog. löst Rätsel PR 44
    22__193 _Rätsel PR 45 ´Auf Sand gebaut´
    22__194 _Rätsel PR 46 ´Paddelboot´
    22__197 _Rätsel PR 47 ´Sessellift´
    22__200 _Ergänzung zu PR 47 mit kleinerem Sessellift
    22__202 _Rätsel PR 48 ´Leuchttürme´
    22__203 _Rätsel PR 49 ´Danolds Quadratkubik´
    22__207 _Rätsel PR 50 Industriearbeiter
    22__208 _Rätsel PR 51 Wie rotiert die Erde?
    22__209 @fori´s Praxishinweis zu PR 47 Sessellift
    22__210 _Rätsel PR 52 Konsekutiv-quartischhe Zahl
    22__215 _Rätsel PR 53 Rundherum: Drehrichtung der Erde um die Sonne
    22__217 _Rätsel PR 54 Konsekutiv Quintische Zahl
    22__219 _Rätsel PR 55 Zaubermaus-Anzahl
    22__223 _Rätsel PR 56 Konsekutiv Sextische Zahl
    22__224 _Lösung Sextische Zahl und Angabe Septimische Zahl
    22__226 @fori fragt nach Septimische^Septimische Zahl
    22__227 _@ravenheart erklärt Mäuseplage aus PR 55
    22__230 _Rätsel PR 57 `Dreiecksquetscher´
    22__231 _Rätsel PR 58 ´Wassertropfen´
    22__232 Konsekutiv-Oktavische Zahl berechnet
    22__237 Formel für Zylinderquetschung
    22__238 _Rätsel PR 59 Teigkugel
    22__241 _Rätsel PR 60 ´Sixpack´
    22__245 _Rätsel PR 61 Mittwoch oder Donnerstag?
    22__239 _Rätsel PR 62 4^N
    22__253 _@Schwabenpfeil-Beitrag
    22__254 _Rätsel PR 63 ´Verstanzt´
    22__260 _Offizielle Lösung zu PR 62 (ohne Rechner)
    22__261 _Rätsel PR 64 Martins Zahnarzttermin
    22__264 _Rätsel PR 65 ´Butterkunst´
    22__265 _Rätsel PR 66 ´Absolut Wurzel´
    22__268 Prog: Viertelstunden-Piepser a la Kirchturm-Uhr
    22__270 Prog-Korrektur zum Viertelstundenpiepser
    22__277 _Rätsel PR 67 ´Vier Kinder´
    22__278 @H.Brill informiert: Infinity-Profan längst eingestellt!
    22__279 Kleines Timer-Programmierproblem
    22__280 @Volkmar: Vorschlag zu Behebung des Timer-Verzuges
    22__281 Hinweis: Systemlastminimierung bei Timing-Intervallen
    22__281 Prog-Beispiel aus 2017: Potthässliche Uhr
    22__286 @H.Brill - Prog. Viertelstundenwecker als TrayIcon
    22__287 @P.Specht: XProfan 11.2-Hinweise für Prog. Viertelstundenwecker
    22__288 _Logik-Lösung zu PR 67 ´Vier Kinder
    22__289 Chronologisches INHALTSVERZEICHNIS zu ´ALGORITHMEN TEIL 22´

    Aufruuf-Adresse: "https://www.paules-pc-forum.de/forum/thread/188255-algorithmen-teil-xxii-paradoxe-paradoxien/?pageNo=1"