Das deutsche QBasic- und FreeBASIC-Forum

[Didito]

Wir sollen als Hausaufgabe etwas in qbasic Programmieren.

Durchschnittsalter


1. Anzahl der Schüler

2. Alter der Schüler (0=Ende)

dann soll das Durchschnittsalter angezeigt werden.


Wer kann mir das Programmieren ?

[Stormy]

[Didito]

Haben leider noch nichts gemacht.

Das ist unsere 3 Schulstunde. Haben nur Taschenrechner gemacht.

[Mao]

Ich glaub kaum, dass dir dein Lehrer ein Programm aufgegeben hat, wenn du noch nicht mal die Grundlagen weißt. Außerdem bist du mit einem Taschenrechner doch recht nah dran.

Hier ein Beispiel für die FOR-Schleife:

[Didito]

Die Hausaufgabe ist nur wer lust hat dies zu machen. Und da ich gute Noten haben möchte versuche ich das zu machen.

Wir haben nur mit IF, THEN, ELSE

bisher gearbeitet.

Sowas:
NEU
COLOR 7, 1: REM Setzt die Bildschirmfarben Vordergrund, Hintergrund
CLS : REM L”scht den Bildschirm
INPUT "Bitte eine Zahl eingeben: ", zahl1
INPUT "Bitte geben Sie eine weitere Zahl ein: ", zahl2
PRINT "Die Summe der beiden Zahlen lautet";
summe = zahl1 + zahl2
PRINT summe

NEU
COLOR 7, 1
CLS
INPUT zahl1
INPUT zahl2
INPUT zahl3
a = zahl3
b = zahl1
c = zahl2
DO
m = 0
IF a > b THEN
d = a
a = b
b = d
m = 1
ELSE
END IF
IF b > c THEN
d = b
b = c
c = d
m = 1
ELSE
END IF
LOOP UNTIL m = 0
PRINT a
PRINT b
PRINT c


NEU
COLOR 7, 1: REM Setzt die Bildschirmfarben Vordergrund, Hintergrund
CLS : REM L”scht den Bildschirm
INPUT "Bitte eine Zahl eingeben: ", zahl1
INPUT "Bitte geben Sie eine weitere Zahl ein: ", zahl2
INPUT "Bitte w„hlen (+ f?r Addition - / f?r Quotient) :", auswahl$
IF auswahl$ = "+" THEN
erg = zahl1 + zahl2
ELSE
erg = zahl1 / zahl2
END IF

PRINT "Die Summe der beiden Zahlen lautet";
PRINT erg

[otti]

Des kannst du wie bei Mathe machen:

gesucht: d=Durchschnittsalter aller Personen

gegeben a=Anzahl aller Personen ; al=alter

Lösung

Wiederhole a-mal
Gebe al ein
s=s+al 's=Summe aller Alter

d=s/a 'Durchschnittsalter aller Personen

Jetzt noch ein paar Tips zum Programmieren in Qbasic:

Verwende für die Variable d den Typ Double, da es fast sicher eine Kommazahl wird, also :

[Thomas Antoni]

Dazu habe ich mir Folgendes für die MonsterFAQ vorgemerkt...


Frage deutsch
~~~~~~~~~~~~~~
Wie berechne ich den Minimal-, Maximal- und Mittelwert mehrerer Zahlen?


Question English
~~~~~~~~~~~~~~
How to determine the minimum, maximum and average of several numbers?


Antwort 1
~~~~~~~~~
[ von Stephan und sm ( stef_0815@web.de ) im QB-Forum, 18.10.2003 ]


Mit drei Zahlen geht das wie folgt: