Preise mit einer Zählerschleife!

shiZZle

Da bin ich mal wieder der lrnfähige shiZZle. Ich muss mich vorerst bei den Leuten bedanken, die mir beim BMI PRogramm sehr hilfreich geholfen haben.
Doch es ist wieder soweit. Ich habe wieder neue Probleme

Aufgabe:
Wir sollen ein Programm schreiben, wo man 5 Preise eingeben muss, die mit einer Zählerschleife verknüpfen und am Ende soll noch die Summe aller 5 Preise angezeigt werden.

Bisher hab ich dies:

Code

REM 5_Preise_Z„hlerschleifer
DIM preis AS DOUBLE
DIM summe AS DOUBLE




PRINT "Geben Sie Die 5 Preise nacheinander ein!"
INPUT "1.Preis:"; preis
INPUT "2.Preis:"; preis
INPUT "3.Preis:"; preis
INPUT "4.Preis:"; preis
INPUT "5.Preis:"; preis


FOR preis = 1 TO 5
NEXT


summe= ???


PRINT "preis"
END

Alles anzeigen

Meine Probleme liegen darin, das ich nicht weiß, wie man es machen kann, das man eine variable ( hier der "preis" ) mehrere Werte geben kann. Also ich möchte nicht preis1, preis2 u.s.w. schreiben sondern einfach nur preis. Das Problem ist aber, das ich nicht weis wie man dann noch die summe ausrechnet.

____________________

Paulchen

Zitat von shiZZle

Meine Probleme liegen darin, das ich nicht weiß, wie man es machen kann, das man eine variable ( hier der "preis" ) mehrere Werte geben kann.

Was du brauchst, ist ein Array. Das wird ungefähr so verwendet - mag sein, dass die Syntax nicht ganz passt, meine BASIC-Tage sind lange her:

Code

DIM preis(2) as DOUBLE
DIM summe as DOUBLE


preis(0) = 10
preis(1) = 20


summe = 0
FOR a = 0 TO 1 STEP 1
    summe = summe + preis(a)
NEXT a


PRINT summe # ergibt 30

Alles anzeigen

shiZZle

Der Syntax passt perfekt.

Code

REM 5_Preise_Z„hlerschleifer
DIM summe AS DOUBLE
DIM preis(4) AS DOUBLE


CLS


PRINT "Geben Sie Die 5 Preise nacheinander ein, um die Summe zu errechnen!"
PRINT
INPUT "1.Preis:"; preis(0)
PRINT
INPUT "2.Preis:"; preis(1)
PRINT
INPUT "3.Preis:"; preis(2)
PRINT
INPUT "4.Preis:"; preis(3)
PRINT
INPUT "5.Preis:"; preis(4)
PRINT


FOR a = 0 TO 4 STEP 1
summe = summe + preis(a)
NEXT a


PRINT "Die summe aus den 5 Preisen ist:"; summe
PRINT




END

Alles anzeigen

Eine weitere Frage ist, wie ich bevor er alle Preise summiert, diese nochmal anzeigen lassen kann?

Mein bisheriger Vorschlag:

Code

Print "Die Summe aus den folgenden Preisen";preis(a)

Er sagt mir dann aber, das es auserhal des Bereiches ist.

samyjr

ähm dumme frage aber warum nicht so:

Code

REM 5_Preise_Z„hlerschleifer
DIM summe AS DOUBLE
DIM preis AS DOUBLE


CLS


PRINT "Geben Sie Die 5 Preise nacheinander ein, um die Summe zu errechnen!"


preis=0


FOR a = 0 TO 4 STEP 1
INPUT "Geben sie den Preis ein"; preis
summe = summe + preis
PRINT "Summe "; summe
NEXT a


END

Alles anzeigen

ich kann zwar kein basic syntax mehr, aber es ist, glaub ich, verständlich was ich meine ... korregierts mich, wenn ihr noch basic könnt

Paulchen

Du musst die Preise ebenfalls in einer for-Schleife ausgeben. Dazu kann man dem PRINT-Befehl irgendwie angeben (abschließender Strichpunkt?), dass es nach der Ausgabe des angegebenen Textes keinen Zeilenumbruch ausgeben soll.

Was das Ganze dann noch schöner machen würde, wäre eine for-Schleife für die Eingabe der fünf Preise. Du könntest dann sogar in dieser Schleife gleich die Addition durchführen.

shiZZle

hmm du scheints wirklich plan davon zuhaben, aber wie kann ich die addition und die eingabe der preise in eine for schleife einfügen? also soweit bin ich leider noch nicht aber ich bin bereit zu lernen

Paulchen

Siehe Post von samyjr oben.

shiZZle

ich mag smyjr aber das was er da gepostet hat funktioniert nicht.
Wenn ich es ausführe fängt es so an:

Geben sie den...
Geben sie den...: 5 ( zum Beispiel )
summe=0

Das Problem ist, das die Aufgabe lautet, das man 5 Preise berechnen muss, ich kann aber nur 1 eingeben und die summe lautet immer 0

Deswegen verstehe ich ja nicht wie man das machen will Paulchen. Ich versuche es ja die ganze zeit, das PRoblem zu lösen, da ich keinen brauche, der meine Homeworks macht, aber ich finde man kann sich hilfe holen.

Vielleicht kennt ihr die Problemlösung

Jetzt mitmachen!