Das deutsche QBasic- und FreeBASIC-Forum

[Anna1988]

Ich muss folgendes Problem in ein Programm, QBASIC umsetzen…

Mit Hilfe eines Computerprogramms soll die Summe aller ganzen geraden Zahlen zwischen a und b (a<b,) ermittelt werden, wobei a und b positive ganze Zahlen sind und nicht mit eingerechnet werden sollen.

Bsp: a=11, b=20 -> Ergebnis = 12+14+16+18 = 60


Folgendes Programm habe ich schonmal erstellt...
...nur leider ist es kein QBASIC, sondern ein Mix aus C und qbasic...
Kann mir vielleicht jmd helfen?

Variablen: a, b, c, z

INPUT „Kleinere Zahl A eingeben“ ; a
INPUT „Groessere Zahl B eingeben“; b

IF (a MOD 2 = = 0)
{
Else (a MOD 2 = = 1)
{
a + 1
}

IF (b MOD 2 = = 0)

Else (b MOD 2 = = 1)
{
b - 1
}

c = a

LOOP UNTIL c= b+2
{
z = +c
c= c + 2
}
} ENDIF

PRINT z

[SpionAtom]

((a + 1) \ 2) * 2
Mit diesem "Trick" erhält man a, wenn a gerade ist oder a+1, wenn a ungerade ist (war vor kurzem hier im Forum.

[Skilltronic]

Hallo

Das Beispiel von SpionAtom hat einen Schönheitsfehler. Ist der Anfangswert a eine gerade Zahl, dann wird sie mitgezählt. So könnte es gehen:

[SpionAtom]

Den Fehler hab ich nun auch behoben, danke.
Aber ich Fuchs hab mal was ohne Schleife ausgetüftelt. Bin mir nicht ganz sicher, obs immer funktioniert (habs auch nur in Blitzbasic getestet):

[Anna1988]

Oh, m e r c i...
Habs sogar verstanden! : )

[Anna1988]

Leider gibts immer noch ein kleines Problem...
Und zwar Funktioniert das Programm einwandfrei...

Aber ich möchte, dass die Anfangszahl a, falls sie gerade ist dazusummiert wird...

Also
a= 10
b= 12
Summe= 22

a=9
b=13
summe= 22

a=9
b=12
summe= 22

usw.
------------------------------------------

INPUT "Kleinere Zahl A eigeben"; a
INPUT "Groessere Zahl B eingeben"; b

s = a + 2 - (a MOD 2)
e = b +1 – (b MOD 2)

summe = 0

FOR zahl = s TO e STEP 2
summe = summe + zahl
NEXT

PRINT summe

[Skilltronic]

Hallo

[Ferdi]

Da es aber mit ganzzahlen Arbeitet:

[toniok]

hi,

kann Jemand mir helfen das folgende Programm zu erstellen?

-Schreibt ein QBasic -Programm, das die Dezimalzahlen 0.1 bis 100.0 im Abstand von 0.1 zu je zehn in einer Zeile druckt .

danke im Voraus.
_________________
Glaube ohne Werk ist nichst

[Sebastian]

Hallo,

ich habe dir ein kleines Beispiel geschrieben: http://www.freebasic-portal.de/fbporticula/424

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[toniok]

danke für deine Lösung Sebastian. die Lösung hat funktioniert .
_________________
Glaube ohne Werk ist nichst