Das deutsche QBasic- und FreeBASIC-Forum

[c.m.obrecht]

Hilfe, das Programm rechnet zu wenig genau; bei zu kleinen Laufzeiten zeigt es sogar 0 an Woran kann das liegen? Vorgegeben ist, dass das Programm bei einer Laufzeit von unter 30 Tagen ohne Zinseszins und ab 30 Tagen mit Zinseszins rechnen soll. Es gibt auch nur Ganzzahlen aus.
Das Unterprogramm um die Tage/Laufzeit zu berechnen habe ich separat getestet, das stimmt. Hier der Code:

input "Anfangsdatum Jahr: "; D
input "Monat: "; E
input "Tag: ";F
input "Enddatum Jahr: "; A
input "Monat: "; B
input "Tag: "; C



dim G
dim H
dim I
dim u
dim J

W=360
R=30

asm (Abziehen und alles in Tage umwandeln und anschl. zusammenzählen=Total Tage)
mov eax, [A]
sub eax, [D]
mov edx, eax

mov eax, [B]
sub eax, [E]
mov ecx, eax

mov eax, [C]
sub eax, [F]
push eax

imul edx, [W]
imul ecx, [R]

mov [G], edx
mov [H], ecx
pop eax
mov [I], eax

mov eax, [I]
add eax, [G]
add eax, [H]

mov [u], eax

end asm

n=u/360 (aus den Tagen das Total Jahre berechnen)


input "Anfangskapital "; K
input "Zinssatz (Jahr)"; p


print " Jahre: ";n; " Tage: "; u

ZK*p*n)/100
if u>30 goto 90
print "Zins"; Z; " Anfangskapital + Zins "; K+Z
sleep 1000

goto 120



90: L = K * ( 1 + ( p / 100 ) )^n
print "Anfangskapital+Zins/Zinseszins"; L
sleep

120: sleep

[MisterD]

du musst mal schauen, dass du kommawerte speicherst. standardmäßig sind alle variablen integer, speichern also nur ganzzahlen.

DIM variable AS SINGLE, variable2 AS DOUBLE
DIM AS SINGLE variable1, variable2
irgendwie so.
Single => "wenig" kommastellen
Double => Viele kommastellen
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Michael Frey]

Dann folgt aber das Problem, das imul nur Vorzeichen Behaftete Interger Variabeln verarbeiten kann, siehe:
http://andremueller.gmxhome.de/befehle.html#mul

[c.m.obrecht]

Das Problem dürfte nicht bei imul liegen; dort werden nur Ganzzahlen verarbeitet und das Resultat aus diesem Programmteil stimmt. Es dürfte allerdings bei den Variablen liegen, die zu wenige Kommastellen speichern. Werde es so versuchen.

[c.m.obrecht]

Sieht schon besser aus! Vielen Dank

[Dusky_Joe]

Ich empfehle dir, freeBASICs eingebaute Datums-Funktionen zu verwenden; siehe:
http://www.freebasic.de/r.php?s=DATESERIAL
http://www.freebasic.de/r.php?s=DATEDIFF
http://www.freebasic.de/r.php?s=DATEPART
sowie die meisten der Links dazu.

So kannst du sehr bequem von Tagen, Monaten und Jahren in Jahre umrechnen. FBs Funktionen arbeiten durchaus schnell, so dass sie auch mit der ASM-Routine mithalten können.

Außer natürlich, es ging dir um die übung.


Have a nice day
Ciao
_________________
fully biological degradable

Once, the big wave arrives, you've got two ways, you can go:
Either, you ride it, or you don't do.
But, if you don't ride, you'll never know wether you'd have gone wet.

[c.m.obrecht]

Ah danke, das ist ja interessant..gibt es da Funktionen dafür. Ja um die Übung, nicht direkt aber ist natürlich auch nicht schlecht