home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of German Only 1
/
romside_best_of_german_only_1.iso
/
wissen
/
dos
/
luchs
/
entpack.exe
/
RECHNEN.WB
< prev
next >
Wrap
Text File
|
1993-03-12
|
4KB
|
1 lines
F# ZIEL F" F$ [ZAHL___000] (00) . (-999999.49) F$ [ZAHL___001] (00) . (9999999.49) F" F: ZIEL . erreicht F, ENDE_SQR (00) . -- F, ENDE_LOG (00) . -- F, ENDE_ARC_WINKELFUNKTIONEN (00) . -- F- [ZAHL___010] = INT ([ZAHL___002] + ( 0.00)) F- [ZAHL___011] = ABS ([ZAHL___002] + ( 0.00)) F- [ZAHL___013] = RND ([ZAHL___002] + ( 0.00)) F- [ZAHL___015] = FRAC ([ZAHL___002] + ( 0.00)) F- [ZAHL___016] = SIN ([ZAHL___002] + ( 0.00)) F- [ZAHL___017] = COS ([ZAHL___002] + ( 0.00)) F- [ZAHL___018] = TAN ([ZAHL___002] + ( 0.00)) F- [ZAHL___021] = ATAN ([ZAHL___002] + ( 0.00)) F: ENDE_SQR . -- F, [ZAHL___002] (00) ≥ ( 0.00) F- [ZAHL___012] = SQR ([ZAHL___002] + ( 0.00)) F: ENDE_SQR . -- F, [ZAHL___002] (00) < ( 0.00) F- [ZAHL___012] = (( 0.00) + ( 0.00)) F: ENDE_LOG . -- F, [ZAHL___002] (00) > ( 0.00) F- [ZAHL___014] = LOG ([ZAHL___002] + ( 0.00)) F: ENDE_LOG . -- F, [ZAHL___002] (00) ≤ ( 0.00) F- [ZAHL___014] = (( 0.00) + ( 0.00)) F: ENDE_ARC_WINKELFUNKTIONEN . -- F, [ZAHL___002] (00) ≥ ( -1.00) F, [ZAHL___002] (00) ≤ ( 1.00) F- [ZAHL___019] = ASIN ([ZAHL___002] + ( 0.00)) F- [ZAHL___020] = ACOS ([ZAHL___002] + ( 0.00)) F: ENDE_ARC_WINKELFUNKTIONEN . -- F, [ZAHL___002] (00) < ( -1.00) F; [ZAHL___002] (00) > ( 1.00) F- [ZAHL___019] = (( 0.00) + ( 0.00)) F- [ZAHL___020] = (( 0.00) + ( 0.00)) F" F? [ZAHL___002] F< Bitte geben Sie eine Zahl ein ! F! [ZAHL___002] F> [zahl___000] > [zahl___001] F" F& ZIEL . erreicht F< F< Alle mit der Zahl [zahl___002] möglichen Rechenoperationen !!!F< F< ┌──────────────────────────────────────────────────────────────────┐F< │ [zahl___010]= int [zahl___002] [zahl___011]= abs [zahl___002] │F< │ [zahl___012]= sqr [zahl___002] [zahl___013]= rnd [zahl___002] │F< │ [zahl___014]= log [zahl___002] [zahl___015]= frac[zahl___002] │F< │ [zahl___016]= sin [zahl___002] [zahl___017]= cos [zahl___002] │F< │ [zahl___018]= tan [zahl___002] [zahl___019]= asin[zahl___002] │F< │ [zahl___020]= acos[zahl___002] [zahl___021]= atan[zahl___002] │F< └──────────────────────────────────────────────────────────────────┘F" Programmende