Thema Datum  Von Nutzer Rating
Antwort
03.02.2010 13:34:34 Micha
NotSolved
Blau Aw:EDV I Arbeit !!!
 04.02.2010 16:22:10 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
04.02.2010 16:22:10		 Views:
780		 Rating:
     
Antwort:
  Ja
Thema:
Aw:EDV I Arbeit !!!
Hallo Micha,
nur der erlernt das Programmieren, der es macht. Wer die ganze Welt an seinen Aufgaben beteiligt, wird es nie schaffen. Sende bei bei weiteren Anfragen deinen bisherigen Ansatz mit und nenne die Stellen, bei denen du nicht weiter kommst. Studiere wenigstens den Code soweit, dass du ihn verstehst! So schwer ist diese Aufgabe wirklich nicht!
Eine Anrede und ein Gruß wären bei einer Anfage auch nicht schlecht!
Ich lösche eine Lösung wieder und gebe dir nur einige Tipps:
Da die Folge aufsteigend ist, brauchst du jeweils nur aufeinander folgende Zahlen zu vergleichen. Die maximale Differenz ist die Differenz der letzten und der ersten Zahl. Diese Differenz kannst du deshalb als ersten Schätzwert für die minimale Differenz benutzen.
Mit einer Schleife (For-Next oder Do-Loop) kannst du die Differenz aller Zahlenpaare berechnen und, wenn diese kleiner als die bisherige minimale Differenz ist, in die Variable für die minimale Differenz schreiben. Dazu solltest du dir eine von den beiden Zeilennummern in einer anderen Variablen merken.
Wenn die Schleife abgearbeitet worden ist, kannst du das Ergebnis mit einem sinnvollen Text ausgeben. Eine Zahl wandelst du mit CStr oder Str in eine Zeichenfolge um. Zeichenfolgen verkettest du mit + oder &.
Der Rest ist trivial!
Gruß
Holger

Micha schrieb am 03.02.2010 13:34:34:

Mit der Eigenschaft Cells(Zeile, Spalte) kann man auf einzelne Zel-len eines Range- Objektes zugreifen: Range("a1:c3").Cells(2,2) ist die Zelle B2. Schreiben Sie eine Routine, die aus einer aufsteigen-den Zahlenreihe (A1:A100) das Zahlenpaar mit der geringsten Dif-ferenz findet. Geben Sie die Position des Zahlenpaares aus!

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
03.02.2010 13:34:34 Micha
NotSolved
Blau Aw:EDV I Arbeit !!!
 04.02.2010 16:22:10 Holger
NotSolved