Kurs Diskussion:Java (Kjell)/Code-Rubrik/Internet Delikatessen

FreeBASIC[Bearbeiten]

' http://de.wikiversity.org/wiki/Kurs:Java_(Kjell)/Code-Rubrik/Internet_Delikatessen

DIM artikel AS String
DIM express as Integer
DIM as SINGLE versandkosten, preis
    
' - - - - - - - - - - - - - - - - E i n g a b e

INPUT "Geben Sie den Artikel ein: ", artikel

INPUT "Wie teuer ist der Artikel: ", preis

INPUT "Expressversand (0==nein, 1==ja): ", express

' - - - - - - - - - - - - - - - - V e r a r b e i t u n g

If Preis < 10 Then

    versandkosten = 2.00
    
Else
    
    versandkosten = 3.00
    
End If

If express = 1 Then
    
    versandkosten = versandkosten + 5.0
    
Else
    
    versandkosten = versandkosten + 0.0 

End If

' - - - - - - - - - - - - - - - - A u s g a b e
PRINT
Print "Rechnung"
PRINT "========"
Print Artikel & ": " ; preis
PRINT "Versand: " ; versandkosten
PRINT "Gesamt:  " ; preis + versandkosten

SLEEP

Geht auch mit FreeBASIC, eigentlich sogar einfacher. --Michael Reschke 22:42, 4. Jul. 2008 (CEST)[Beantworten]