ALGORITHMEN - Teil XXV: Das Fleisch ist willig, aber der Geist ist schwach...

    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

      Abt. FGS-72
      ========
      Bei einer vierstelligen Zahl sind die letzten beiden Ziffern leider stark verwischt: 17?? ist noch zu sehen. Man weiß aber: Es war eine korrekte Lösung der Aufgabe 'Finde irgendeine vierstellige Zahl, die restlos duch 2, durch 3, 4, 6 und 9 teilbar ist!'. Wie lauten die beiden verwischten Ziffern?
    • Neu

      zu FGS-72

      Spoiler anzeigen

      Quellcode

      1. cls
      2. Declare int i, Anzahl
      3. Declare string Ergebnis
      4. Print "\nLösungen: ";
      5. For i, 1700, 1799
      6. ' Locate 1,20
      7. ' Print str$(i);
      8. If (i mod 2) == 0
      9. If (i mod 3) == 0
      10. If (i mod 4) == 0
      11. If (i mod 6) == 0
      12. If (i mod 9) == 0
      13. CaseNot Anzahl = 0 : Ergebnis = Ergebnis $ ", "
      14. Inc Anzahl
      15. Locate 1,1
      16. Ergebnis = Ergebnis $ str$(i)
      17. Print str$(Anzahl);
      18. EndIf
      19. EndIf
      20. EndIf
      21. EndIf
      22. EndIf
      23. EndFor
      24. 'WaitInput
      25. Locate 4,1
      26. Print Ergebnis
      27. WaitEnd
      28. ' Mist. Ich hatte gedacht, das es etwas länger dauert.
      29. ' 1728, 1764
      Alles anzeigen
      Programmieren, das spannendste Detektivspiel der Welt.
    • Neu

      @Michael Wodrich hat FSR 71 und FSR 72 korrekt gelöst.

      Bei FSR-72 wollte ich erst gar nicht glauben, daß tatsächlich ZWEI Lösungen existieren, im japanischen Internet ist nämlich nur eine Lösung zu finden. Ich habe daher sein Lösungsprogramm für XProfan-11.2a umgeschrieben und mit einer Probe versehen. Ergebnis: Michael Wodrich hat recht!
      Gruss

      Quellcode

      1. WindowTitle "FGS-71-Solver für XPr11.2a (Brute Force)":cls:font 2
      2. Declare i&,Anzahl&,Ergebnis$' Eine Zahl die durch 9 teilbar ist, ist es auch durch 3
      3. Whileloop 1700,1799:i&=&Loop' Eine Zahl die durch 4 teilbar ist, ist es auch durch 2
      4. Ifnot i& mod 9:Ifnot i& mod 6:Ifnot i& mod 4
      5. Case Anzahl&:Ergebnis$=Ergebnis$+", "
      6. Ergebnis$ = Ergebnis$ + str$(i&):Inc Anzahl&
      7. EndIf:EndIf:EndIf
      8. EndWhile
      9. Print "\n Lösungen:\n\n "+Ergebnis$
      10. Print "\n Anzahl Lösungen:",str$(Anzahl&)
      11. ' 1728, 1764
      12. print "\n\n Probe:"
      13. declare tmp$[]:tmp$[]=explode(Ergebnis$,",")
      14. declare tmp&[sizeof(tmp$[])-1]
      15. tmp&[]=val(tmp$[&index]):clear tmp$[]:set("decimals",0)
      16. Whileloop 0,sizeof(tmp&[])-1
      17. print "\n "+str$(tmp&[&Loop])+":",tmp&[&Loop] mod 2,tmp&[&Loop] mod 3,
      18. print tmp&[&Loop] mod 4,tmp&[&Loop] mod 6,tmp&[&Loop] mod 9
      19. endwhile
      20. waitinput
      Alles anzeigen
      P.S.: Interessantes Link zu 'genialen' Rechentricks

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

    • Neu

      Abt. FGS-73
      ========
      Zwei von Form und Größe her deckungsgleiche Quadrate aus Papier, beide mit Seitenlänge 8 cm, werden so hingelegt, daß eine Ecke des einen Quadrates genau im Mittelpunkt (Kreuzungspunkt der Diagonalen) des anderen Quadrates zu liegen kommt. Wie groß ist die Überdeckungsfläche der beiden Quadrate, wenn das eine gegen das andere Quadrat (Frage 1) um 30° verdreht liegt; (Frage 2) um 45 ° verdreht liegt?
    • Neu

      Erstaunlich, was? Ein Bravo an @Oldi-40 und @ravenheart!

      Abt. FGS-74 'Sommeridylle'
      ==================
      Albin, Bernd, Christian sowie Ulli und Vicky spielen am Strand Wasserball. Die beiden Mädchen werfen den Ball entweder dem anderen Mädchen oder einem der Jungs (Ö: Buben) zu. Die Jungs sind wild und schießen den Ball stets auf einen anderen Knaben - nur nie auf den, von dem sie den Ball gerade erhalten haben. Vicky hatte begonnen und warf den Ball etwas ungeschickt zu Albin. Frage: Wer machte den fünften Wurf?
    • Neu

      Zu FGS-75

      Da musste ich erst einmal Nachschlagen, ob ich vergessen habe was "natürliche Zahlen" sind.
      Ich komme da zu keinem Ergebnis.

      Spoiler anzeigen


      Quellcode

      1. ' vX4
      2. cls
      3. declare int a[], i
      4. var int start = 1
      5. var int erg = 1
      6. var int summe = 0
      7. Repeat
      8. for i, 0, 6
      9. a[i] = start + i
      10. endfor
      11. for i, 0, 6
      12. print if(i != 0, ", ", ""); a[i];
      13. endfor
      14. summe = a[4] + a[5] + a[6]
      15. print " --> "; summe
      16. if summe >= 91
      17. erg = start
      18. break
      19. endif
      20. inc start
      21. Until start >= 30
      22. print "\nDie Zahlenfolge ist: ";
      23. for i, 0, 6
      24. print if(i != 0, ", ", ""); a[i];
      25. endfor
      26. print "\nDie ersten 3 Zahlen ergeben: "; str$(a[0] + a[1] + a[2])
      27. print "\nDie letzten 3 Zahlen ergeben: "; str$(a[4] + a[5] + a[6])
      28. waitend
      29. rem Startwert 26 ergibt vorne 81 und hinten 93
      Alles anzeigen
      Startwert 26 ergibt vorne 81 und hinten 93
      Programmieren, das spannendste Detektivspiel der Welt.

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von Michael Wodrich ()

    • Neu

      Abt. FGS-76 ´Ausser Konkurrenz´
      ======================
      Geg: x * int( x * int( x * int( x ))) = 2020
      Ges: x, d.h. ein (oder mehrere?) positive oder negative Float-Werte!
      Hinweis: Manuelle Lösung in diesem Youtube-Video (falls man die englische, etwas gequetschte Stimme verträgt): LINK

      Frage: Wie könnte man ein Lösungsprogramm schreiben, das diese und ähnliche Aufgaben bewältigt?