Einfach von 100.000 runterzählen
Runterzählen :P
-
-
Ich mach den Anfang:
99.999 -
- Offizieller Beitrag
Hallo
Du hast wirklich lange weile, oder?^^
99.998
Mfg Spider
Action GtaSpider: [15.12.2007 16:29]
Topic Moved: Off Topic -> Talk -
99.997
-
naja... gruppenzwang
999.996
-
999.995 läßt sich ja mal gut durch fünf teilen, nur der nächste sollte die Frage beantworten, welches der größte Teiler ohne Nachkommastellen ist, wobei die Zahl 999.995 nicht genannt werden darf.
So, finde es sollte das Spiel um eine Aufgabe, wie gerade dargestellt weitergeführt werden. Vllt. auch bisschen in die Grundlagen von AutoIt, so das Anfänger sich bisschen damit beschäftigen müssen, was in der Hilfe steht.
ID muß nicht übernommen werden, sonder eine Idee, der nächste der weiter macht finde ich entscheidet das. Ist gleichzeitig ansporn zur Lösung.
LG, Lina.
P.S. Die mit den etwas anderen ID's
-
Antwort: Die Teiler von 999995 sind 5 und 199999
[autoit]
Hier das Script zum testen (muss über das Icon in der Taskleiste geschlossen werden):$form = GUICreate("test", 100, 100, 50, 50) ;Erstelle Fenster
[/autoit]
$label = GUICtrlCreateLabel("nichts", 10, 10, 80, 80) ;Erstelle Lab
GUISetState(@SW_SHOW) ;Macht das Fenster sichtbar
$zahl = 999995 ;Die Zahl, wessen gröter Teiler gesucht werden soll
For $teiler = 550000 to 0 step -1 ;$teiler gibt an, ab welcher Zahl ABWÄRTS gesucht werden soll und wiederhohlt so lange bis der Teiler auf 0 ist
$erg = $zahl / $teiler
If StringInStr($erg, ".") Then ;Wenn ein Komme drin ist
GUICtrlSetData($label, $zahl & " / " & $teiler & " = " & $erg) ;Setzt das Label auf die aktuelle Rechnung
Else ;Wenn kein Komma drinn ist
MsgBox(0, "", $erg) ;gibt die Teiler aus (Vom kleinsten beginnend) Bsp: $zahl = 999995 ---> 5, 199999
EndIf
NextIch mach mal weiter:
999.994Aufgabe: Kürze den Bruch VOLLSTÄNDIG
999994
---------
7836mit AutoIt und poste das Script hier.
Viel Erfolg!
Edit: Mein Script würde man nichtmal brauchen weil jeder sehen kann dass 999.995 durch 5 geht. Aber ich machs eben so, dass es für alle Zahlen funzt.
Achja: Es geht leicht mit 999995 / 5 xD -
So meine Lösung:
499997
---------------
3918Mein Programm:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=Rechner.kxf
$Form1 = GUICreate("Form1", 430, 340, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Tab1 = GUICtrlCreateTab(0, 0, 425, 337)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheetTeiler = GUICtrlCreateTabItem("Teiler")
$inTeilen = GUICtrlCreateInput("", 128, 56, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$Label1 = GUICtrlCreateLabel("Zahl:", 192, 32, 28, 17)
$Label2 = GUICtrlCreateLabel("alle Teiler einer Zahl", 7, 122, 414, 33, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$btnTeilen = GUICtrlCreateButton("! Rechnen !", 160, 88, 113, 25, 0)
GUICtrlSetOnEvent(-1, "btnTeilenClick")
$outTeiler = GUICtrlCreateEdit("", 112, 160, 217, 162, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
$TabSheetBruch = GUICtrlCreateTabItem("Brüche")
GUICtrlSetState(-1,$GUI_SHOW)
$inZaehler = GUICtrlCreateInput("", 135, 98, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$inNenner = GUICtrlCreateInput("", 135, 130, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$Label3 = GUICtrlCreateLabel("__________________________", 136, 112, 160, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
$btnBruch = GUICtrlCreateButton("! Rechnen !", 158, 156, 113, 25, 0)
GUICtrlSetOnEvent(-1, "btnBruchClick")
$Label4 = GUICtrlCreateLabel("Bruch eingeben:", 176, 64, 82, 17)
$outBruch = GUICtrlCreateEdit("", 136, 256, 169, 57, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Bruch maximal kürzen:", 6, 196, 414, 49, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$TabSheetKGV = GUICtrlCreateTabItem("KgV")
$Label6 = GUICtrlCreateLabel("Zahlen:", 192, 64, 40, 17)
$inKGV1 = GUICtrlCreateInput("", 136, 96, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$btnKGV = GUICtrlCreateButton("! Rechnen !", 160, 168, 113, 25, 0)
GUICtrlSetOnEvent(-1, "btnKGVClick")
$Label7 = GUICtrlCreateLabel("kleinstes gemeinsames Vielfaches", 7, 210, 414, 49, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$inKGV2 = GUICtrlCreateInput("", 136, 128, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$outKGV = GUICtrlCreateInput("", 135, 274, 161, 24, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$TabSheetGGT = GUICtrlCreateTabItem("GGT")
$Label8 = GUICtrlCreateLabel("Zahlen:", 192, 64, 40, 17)
$inGGT1 = GUICtrlCreateInput("", 136, 96, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$inGGT2 = GUICtrlCreateInput("", 136, 128, 161, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlSetOnEvent(-1, "Input1Change")
$btnGGT = GUICtrlCreateButton("! Rechnen !", 160, 168, 113, 25, 0)
GUICtrlSetOnEvent(-1, "btnGGTClick")
$Label9 = GUICtrlCreateLabel("Größter gem. Teiler (Nach Moderner Euklidischer Algorithmus)", 7, 210, 414, 49, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$outGGT = GUICtrlCreateInput("", 135, 274, 161, 24, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlCreateTabItem("")
$ani1 = GUICtrlCreateAvi (@SystemDir & "\shell32.dll",152,410,0,20,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc btnBruchClick()
[/autoit] [autoit][/autoit] [autoit]
$zahl1 = GUICtrlRead($inZaehler) ;Die Zahl, wessen gröter Teiler gesucht werden soll
$zahl2 = GUICtrlRead($inNenner) ; Die Zahl im Nenner
If ($zahl1 / $zahl2 == 1) Then Return GUICtrlSetData($outBruch,"1")
If ($zahl2 < 1) Then Return GUICtrlSetData($outBruch,"Division durch 0!")
For $teiler = $zahl2 to 0 step -1 ;$teiler gibt an, ab welcher Zahl ABWÄRTS gesucht werden soll und wiederhohlt so lange bis der Teiler auf 0 ist
$erg1 = $zahl1 / $teiler
$erg2 = $zahl2 / $teiler
If ( Not StringInStr($erg1, ".") ) And ( Not StringInStr($erg2, ".") ) Then
If ($erg2 == 1) Then Return GUICtrlSetData($outBruch,$erg1)
Return GUICtrlSetData($outBruch,$erg1 & @CRLF & "---------------" & @CRLF & $erg2)
EndIf
Next
EndFunc
Func btnKGVClick()
GUICtrlSetState ($ani1, 1)
$zahl1 = GUICtrlRead($inKGV1)
$zahl2 = GUICtrlRead($inKGV2)
;Hier seid ihr dran, auch wenn ichs schon habe
GUICtrlSetData($outKGV,$erg)
GUICtrlSetState ($ani1, 0)
EndFunc
Func btnTeilenClick()
GUICtrlSetState ($ani1, 1)
GUICtrlSetData($outTeiler,"")
$zahl = GUICtrlRead($inTeilen)
$to = Floor($zahl / 2)
For $i = 2 To $to
if Mod($zahl, $i) = 0 then GUICtrlSetData($outTeiler,$i & @CRLF,1)
Next
GUICtrlSetState ($ani1, 0)
EndFunc
Func Form1Close()
Exit
EndFunc
Func Form1Maximize()EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Form1Minimize()EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Form1Restore()EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func Input1Change()
Switch GUICtrlRead($Tab1,1)
Case $TabSheetBruch
btnBruchClick()
Case $TabSheetKGV
btnKGVClick()
Case $TabSheetTeiler
btnTeilenClick()
EndSwitch
EndFuncFunc btnGGTClick()
[/autoit]
GUICtrlSetState ($ani1, 1)
$zahl1 = GUICtrlRead($inGGT1)
$zahl2 = GUICtrlRead($inGGT2)
;ich habs schon, aber was wäre dann mir eurer Aufgabe? Hier seid ihr dran
GUICtrlSetState ($ani1, 0)
EndFunc
Die Nächste Zahl : 999993
Meine Aufgabe:
Das kleinste gemeinsame Vielfache von
999993 und 355 -
@progandy
Dem Spruch muß ich mir irgendwie merken.
"Jetzt, wo ich weiß wie es geht, versteh ich auch die Gebrauchsanleitung".
Der Werbespruch von MediaMarkt dazu: "Sie werden die Gebrauchsanweisung verstehen, weil Ihr Gerät läuft!" LOL
LG, Lina.
-
- Offizieller Beitrag
Hi!
Carsten und GtaSpider:
Wollt ihr die Avatare nicht vielleicht verschiedener machen? Die Unterscheidung am Avatar fällt mir (unnötig) schwer, finde ich .@Thread: Danke für's Server-Vollümllen...
peethebee
-
sry zum Kgv rechnen hab ich keine Lust xD
999992
@pee: gerngeschehn Und ja viel. werde ich mir ein neues zulegen.. -
999991
__________________________________________________________________________________________________________________________________
Lalala... -
999990
-
- Offizieller Beitrag
999990-1 (grad kein bock zu rechnen ~~)
@pee: jo passiert mir auch öfters.. "Was hab ich denn da geschrieben, war ich da betrunken?" -
99.997
naja... gruppenzwang
999.996
ääm seit wann kommt nach 99.997 999.996so werden wir ja nie ferig
ich mach dann ma richtig weiter
99.988
-
99987
-
99989 war sogar eine Primzahl
99986
-
99.985
-
ääm seit wann kommt nach 99.997 999.996so werden wir ja nie ferig
ich mach dann ma richtig weiter
99.988
lol
99.984
-
99.983
-