| (Un)gerade von ??? |
| Hi Leuz, Wieder mal so eine SPAM-Funktion von mir :) Sie soll eigentlich nur auf die VERWENDUNG von MOD hinweisen (besonders @ Darkshadow, der die Funktion gesucht hat) Ungerade: [code:1:e388a9d022]Function ungerade(zahl) temp = zahl Mod 2 Return temp End Function[/code:1:e388a9d022] und das Gegenstück (Gerade): [code:1:e388a9d022]Function gerade(zahl) temp = zahl Mod 2 If temp = 1 Then temp = 0 Else temp = 1 End If Return temp End Function[/code:1:e388a9d022] Hier ein ganzer Beispielcode: [code:1:e388a9d022]x = Input("Welche Zahl?") x = gerade(x) If x = 1 Then Print "Gerade" If x = 0 Then Print "Ungerade" WaitKey() End Function gerade(zahl) temp = zahl Mod 2 If temp = 1 Then temp = 0 Else temp = 1 End If Return temp End Function[/code:1:e388a9d022] Mfg Skateboarder |
| von ??? |
| alter schwede - DAFÜR machst du eine funktion?!?! *hä?!* max. eine zeile braucht man für so was! [code:1:a1b140d6c8] If not ( intZahl Mod 2) Then Print "Gerade" Else Print("Ungerade") [/code:1:a1b140d6c8] zum testen brauchst du öhm 5 zeilen: [code:1:a1b140d6c8] While Not KeyDown(1) strzahl$ = Input$("gib ne zahl zu fressen: ") If Not (Int(strzahl$) Mod 2) Then Print "Gerade" Else Print("Ungerade") WaitKey Wend [/code:1:a1b140d6c8] naja ;) no harm done. |