|
extrn Ausgabe : FAR, Numin : FAR
.MODEL Small
.386
.STACK 100h
.DATA
EinAus DD ?
Konst DD 4.189 ;Pi mal 4/3
Text DB "Geben Sie den Radius ein: $"
Text2 DB "Kugelvolumen: $"
CR_LF DB 10,13,"$"
.CODE
Start: mov ax,@data
mov ds,ax ;DS initialisieren
mov ah,09h
mov dx,OFFSET Text
int 21h ;Text ausgeben
xor ecx,ecx
call NumIn ;Zahl einlesen
mov EinAus,ecx
mov dx,OFFSET CR_LF
int 21h ;Nächste Zeile
fild EinAus ;Ein auf Stack
fld ST ;Wert von Ein nach ST(0)
fmul
fild EinAus
fmul
fld Konst
fmul
fistp EinAus ;Ergebnis nach EinAus
wait
mov ah,09h
mov dx,OFFSET Text2
int 21h ;Text ausgeben
mov eax,EinAus
call Ausgabe ;Ergebnis anzeigen
mov ah,4Ch
int 21h ;Programm beenden
END Start
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
