---

REM Problemer med decimaler i Qbasic 4.5
REM
REM Jeg har problemer med afrunding af tal i Qbasic 4.5
REM mine tal går op til 1000000.01 altså må jeg definere
REM variable AS DOUBLE
REM jeg får en masse decimaler der kan få ørebeløbet
REM til at blive forkert, derfor bliver jeg nødt til at
REM smide dem væk en gang imellem (CINT(z * 100)) / 100
REM kan klare det ved små tal
REM ved store tal må jeg trække heltallet fra først
REM og så lægge det til bagefter.
REM Findes der en smartere måde at gøre det på?
REM
REM Og findes der en anden måde at få fast 2 decimaler
REM så feks. 10 kan udskrives som 10.00 uden
REM at konvertere til en streng, finde decimalseperator
REM og hægte 0 eller .00 på strengen
REM det gør altså programmet meget uoverskueligt
REM at skulle hoppe til en subrutine så mange gange
REM sædte dem sammen og så kun udprinte strenge
REM MVH Per
CLS
DIM x AS DOUBLE
DIM y AS DOUBLE
DIM z AS DOUBLE
x = 1000000

y = 1.1
z = x - y
PRINT z

zz = FIX(z)
z = z - zz
z = (CINT(z * 100)) / 100
z = z + zz
PRINT z

---

Hej perchris,

det er snart nogen år siden, jeg har programmeret i Qbasic 4.5, men så vidt jeg husker følger Qbasic standarden for Basic - så hvis det er tilfældet mener jeg, at dit problem kan løses på følgende måde:

Afrunding til 2 decimaler foretages via funktionen INT, som uddrager heltallet og som du selv er inde på - først gange med 100, foretage afrunding og derefter dividere med 100.
Eks: Let A = (INT(z*100))/100

Derefter ønsker du at udskrive resultatet med 2 decimaler, hvor du kan bruge funktionen PRINT USING med en editeringsmaske.
Eks: PRINT USING "#########.##"; A
Using statement kan editeres på mange forskellige måder, som kan være lidt forskellig fra i forskellige Basic udgaver og landeopsætning. Hvis du eks. ønsker tusindpunkt i din udskrift skal strengen evt. se ud sådan "###,###,###.##"
Du vil også kunne erstatte opsætningen med en streng variabel - eks.:
B$="###,###,###.##"
PRINT USING B$; A

Håber at ovenstående hjælper lidt på vej.

Mvh Ivan

---

Tak for svaret IBM760.
Jeg har fået omskrevet mit pgm. og det virker fint.
PRINT USING havde helt forbigået min opmærksomhed, selvom jeg havde set
kommandoen før, kendte jeg ikke dens funktion.
Tak

Mvh Per

---

Du er velkommen.

Det er snart en del år siden jeg har programmeret i Basic, men for en del år siden da jeg var ansat i Nixdorf Computer - var jeg med til, at programmere adskillige administrative systemer i forskellige Basic dialekter, over en periode af 10-15 år.

Mvh Ivan

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.