Hallo! Dies ist eine Aufgabe die ich zu lösen habe (VB 08 express; Konsolenanwendung). Vielleicht kann mir jemand einen kleinen Gedankenschubs geben.
Danke schonmal im vorraus!
Markus
Sie benötigen eine Schleife Ihre Wahl (Erweiterung: zwei weitere Schleifen anwenden)
Berechnen Sie den Notendurchschnitt aus genau 4 Zahlen.
• Die Noten sollen über die Tastatur eingegeben werden.
• Danach soll die Summe berechnet werden gefolgt von dem Mittelwert.
• Verwenden Sie eine Kostante (Schlüsselwort?) für den Endwert des Schleifenzählers sowie in der Berechnung des Durchschnitts.
Hinweis: Die Anzahl der Wiederholungen kann somit leicht zu verändern!
• Im Antwortsatz soll der Durchschnitt und die Anzahl der eingegebenen Zahlen ausgegeben werden.
• Verändern Sie die Konstante auf 6, 9 und 15. Testen Sie den Algorithmus mit entsprechend vielen Noten.
So, mein Ansatz:
Module Module1
Sub Main()
Dim Zähler As Integer
Dim Note1 As Integer
Console.ReadLine()
Dim Note2 As Intege
Console.ReadLine()
Dim Note3 As Integer
Console.ReadLine()
Dim Note4 As Integer
Console.ReadLine()
Dim Notensumme As Integer
Dim Notendurchschnitt As Integer
Notensumme = Note1 + Note2 + Note3 + Note4
Console.WriteLine("Notensumme" & Notensumme)
Notendurchschnitt = (Note1 + Note2 + Note3 + Note4) / 4
Console.WriteLine("Notendurchschnitt=" & Notendurchschnitt)
Do
Zähler = Zähler + 1
Loop Until (Zähler >= Note4)
Console.ReadLine()
End Sub
End Module
Funktioniert aber mit der Eingabe noch nicht so richtig!
Wollte eigentlich dass er mir einblendet "Note1=" und dann gibt man die ertse Note ein und nach vier Noten sollte er mir den Durchschnitt verraten aber naja, ein satz mit "x", war wohl nix.
Hat da jemand vielleicht noch nen Rat übrig?
Markus_Slide (48) 
|
