Thema Datum  Von Nutzer Rating
Antwort
17.01.2008 18:01:56 xcut
NotSolved
Blau Aw:Klausuraufgabe HILFE !!!
 18.01.2008 11:02:21 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
18.01.2008 11:02:21		 Views:
866		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Klausuraufgabe HILFE !!!
Hallo xcut,
Programmieren lernt man am besten, wenn man programmiert und nicht abkupfert. Ich glaube nicht, dass es dir das Geringste nutzen wird, wenn du den nachstehenden Lösungsansatz nur zur Kenntnis nimmst. Ernsthaftes Bemühen um selbständige Lösungen bleibt der einzige Weg. Dann braucht man auch keine Angst vor Klausuren zu haben. Versuche wenigstens, anhand der VBA-Hilfe die Programmschritte nachzuvollziehen.

Sub Aufgabe()
Range("a65336").End(xlUp).Activate
n = ActiveCell.Row
s = 0
For i = 1 To n
s = s + Cells(i, 1)
If Abs(Cells(i, 1) - 3.1415927) <= 0.001 Then k = i
Next i
If k = 0 Then k = -1
Cells(1, 2) = "N =" + str(n)
Cells(2, 2) = "S =" + str(s)
Cells(3, 2) = "k =" + str(k)
End Sub

Dennoch viel Erfolg
Holger

xcut schrieb am 17.01.2008 18:01:56:

hallo

ich brauch ne lösung zu folgender aufgabe:

in der ersten spalte eines excel-tabellenblatts seien die Single-zahlenwerte ai (i=1,2,....,N) eingetragen, also a1 in der zelle A1, a2 in der zelle A2 ....aN in der zelle AN.
N ist nicht explizit bekannt.
Codieren sie die VBA-Sub Aufgabe(), die folgende 4 Teilaufgaben löst:

a) berechnung von N

b) Berechnung von S = Summe aller ai von i=1 bis N

c) berechnung des zeilenindex k, dessen ak mit einer genauigkeit von besser als +- 0,001 dem wert 3,1415927 entspricht, wobei davon ausgegangen werden darf, dass nur ein einziges ak (oder gar keines) diese Bedingung erfüllt. im letztgenannten fall wird k=-1 gesetzt

d) ausgabe von N, S und k in den Zellen B1, B2 bzw B3
(mit Text "N=", "S=" bzw. "k=") des excel tabellenblatts.


Wäre super wennmir da jemand ne lösung sagen könnte. ich kenne mich nämlich mit vba sogut wie gar nicht aus und die klausur ist nur noch ein paar tage entfernt.

vielen dank

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.01.2008 18:01:56 xcut
NotSolved
Blau Aw:Klausuraufgabe HILFE !!!
 18.01.2008 11:02:21 Holger
NotSolved