Hausaufgaben

[freaky 0]

Achja, Wiki weiss rat.

Am 28. Juni 2004 beschloss die NATO die Truppenstärke in Afghanistan von 6.500 Soldaten der ISAF auf insgesamt 10.000 Soldaten zu erhöhen. Durch die Einrichtung zusätzlicher Regionaler Wiederaufbauteams (PRT) im Norden und Westen des Landes wird damit der Einsatz über Kabul hinaus ausgedehnt. Großbritannien, Norwegen, Finnland und Schweden beteiligen sich an dem Programm. Deutschland hat unter anderem in Kabul und Kundus Truppen stationiert, mit dem erweiterten Bundestagsmandat wird die Bundeswehr ihre Präsenz im Norden weiter ausbauen und in Mazar-e-Sharif ein Feldlager mit einem Flugplatz aufbauen. Deutschland ist u. a. auch für die Ausbildung einer Polizei zuständig.

Die USA haben eine 20.000 Mann starke Truppe im Rahmen von Operation Enduring Freedom stationiert, die immer noch gegen die Taliban kämpfen. Das US-Militär unterhält Basen in Bagram und Kandahar.

-> http://de.wikipedia.org/wiki/Afghanistan#A...penpr.C3.A4senz

[TriGun 0]

ich brauch ma wieder hilfe undzwar weis ich nich wie ich das in vba scheiben soll dass wenn es ne primzahl is soll er nich quadrieren aber wenn es keine primzahl is soll er quadrieren??

[Monoman 0]

Ein bisschen googlen hätte es auch getan... .

Hier die Funktion:

Public Function IsPrime(Prime As Long) As Boolean

  Dim i As Long

    For i = 2 To Prime - 1

      If Prime Mod i = 0 Then

        IsPrime = False

        Exit Function

      End If

    Next

  IsPrime = True

End Function

MfG

Monoman

[TriGun 0]

ähm das ist nur der text um zu gucken ob deine deine eingabe ne primzahl is oder nich

ich wollt ja wissen wie man es schreiben muss damit es quadriert wird oder nich

ich rufe in errinnerung WENNS EINE PRIMZAHL IST DANN NICHT QUADRIEREN

WENN KEINE PRIMZAHL DANN QUADRIEREN

[solidussnake 0]

ich rufe in errinnerung WENNS EINE PRIMZAHL IST DANN NICHT QUADRIEREN

WENN KEINE PRIMZAHL DANN QUADRIEREN

Du wirst es doch wohl noch packen die Funktion von Mono so umzuschreiben dass der dir das ausgibt was du willst...

[Monoman 0]

Zumal die Funktion sogar einen entsprechenden booleschen Wert zurückgibt...

Aber, sorry, wenn du nicht mal in der Lage bist einen Rückgabewert einer Funktion zu benutzen um deine weiteren Handlungsschritte zu programmieren, solltest du vllt. nochmal die Grundlagen durchgehen.

Also, alles vorgekaut auf dem Platin-Tablet kriegst du nicht. Ein wenig selber denken wäre schon sinnvoll.

MfG

Monoman

P.S.: Vllt. solltest du mal deine Caps-Lock-Taste prüfen; ich glaube sie klemmt. <_<

[TriGun 0]

das is was nich will dieser kleine teil vom überspringen will einfach nich kommen...........

so dann mal andersrum

dann zeig mal einfach wo meine fehler liegen

das is mein text:

m = prim(CInt(z))

q = quadrieren(CInt(z))





ok = True

MsgBox "Deine Zahl ist " & z & vbNewLine & "Deine Zahl zum Quadrat ist " & q



End Sub



Private Function quadrieren(n)

Dim m As Integer

m = 0

m = n * n

quadrieren = m

End Function



Private Function prim(n)

Dim m As Integer



m = 1

Do

m = m + 1

rechnung = n Mod m

If rechnung = 0 Then

prim = False

Else

prim = True

End If

Loop Until m = n - 1 Or rechnung = 0



prim = m





End Function

dann wolt ich schreiben wenn rechnung = 0 ist dann ist prim = true

das müsste doch heissen das q = false ist

nur kommt der kompiler mit ner fehlermeldung

[EisenSchwanz 0]

leider haben sich zahlreiche fehler eingeschlichen

Eisen Fe (studienrat)

bitte um rücksprache

[Monoman 0]

Warum machst du es dir denn so umständlich mit zwei Funktionen?

Nur fünf Zeilen prozeduraler Code (+ meine Funktion) und du hast die Lösung :

' Meine Funktion aus dem letzten Post

Public Function IsPrime(Prime As Long) As Boolean

 Dim i As Long

   For i = 2 To Prime - 1

     If Prime Mod i = 0 Then

       IsPrime = False

       Exit Function

     End If

   Next

 IsPrime = True

End Function



' cmdButton ist irgendein CommandButton;)

Private Sub cmdButton_Click()

  ' Mit einem einfachen Kontrollkonstrukt (aus unglaublichen fünf Zeilen Code) den Rückgabewert der Funktion IsPrime() prüfen und abhängig davon quadrieren bzw. nicht quadrieren. Anmerkung: Var ist irgendeine Variable aus einer TextBox, aus einer Datenbank...

  If IsPrime(Var) = True Then

    MsgBox "Primzahl!"

  Else

    MsgBox "Keine Primzahl! Quadrat: " & Var ^ 2

  End If

End Sub

MfG

Monoman

[Wanja 4]

Kann mir jemand sagen womit die Nationalsozialisten die Bekämpfung gegen die Arbeitslosigkeit bezahlt haben (um das Jahr 1932 - 1939)

wäre nett, thx

[Master Chief 1]

Rate mal?

Judenverfolgung?

EDIT:Immerhin haben die Nationalsozialisten die Juden dafür verantwortlich gemacht!

[Wanja 4]

Ich erkenn da nicht so den Zusammenhang (bin nen n00b)

meinste dass dier das hab und gut von juden gestohlen haben?

[RedRum 0]

rad ---> klick

[Master Chief 1]

Obwohl RedRum es bestimmt beantwortet hat, mein ich das die die Juden für die damalig schwere Situation verantwortlich gemacht haben und somit die Juden verjagt oder deportiert.

[Crashbreaker 0]

Wie liest man in Java Integer-Werte ein, um sie Variablen zuzuweisen?