Euro-Rechner

Mit BASIC lassen sich schnell zum Beispiel kleinere Rechenaufgaben lösen: Das folgende Beispielprogramm fragt nach einem Betrag in EURO und gibt den entsprechenden Wert in DM aus:

10 print "Wechselkurs"
 20 print "———--"
 30 dmeuro=1.95583
 40 print "Geben Sie den Betrag in Euro ein: ";
 50 input "",euro
 60 if euro=0 then goto 100
 70 dm=euro*dmeuro
 80 print "In DM sind das: ";dm
 90 goto 40
 100 end

Durch die Abfrage, ob ein Betrag von 0 eingegeben wurde, wird eine Abbruchbedingung geprüft: BASIC springt zur Zeile 100, falls der Wert 0 ist; dann wird das Programm beendet. Anderenfalls wird immer wieder ein neuer Wert erfragt, da am Ende der Berechnung über den goto-Befehl wieder zur Befehlszeile zurückgesprungen wird, die die Werteingabe einleitet. Ein Programmlauf sieht dann folgendermaßen aus:

bwBASIC: run
 Wechselkurs
 ———–
 Geben Sie den Betrag in Euro ein: 150
 In DM sind das:  293.3745000
 Geben Sie den Betrag in Euro ein: 20
 In DM sind das:  39.1166000
 Geben Sie den Betrag in Euro ein: 0
 bwBASIC:

Auch Schleifen lassen sich in BASIC leicht programmieren. Wahlweise können Sie mit Befehlen der Form

10 for i=1 to 10
 20   print i, i*3, i*10
 30 next

eine Variable (hier i) der Reihe nach alle Werte vom Start- zum Endwert durchlaufen lassen, oder Sie verwenden Schleifen, deren Abbruch von einer Bedingung abhängt: Dies sind while-Schleifen der Form

10 wert=-1
 20 while wert<>0
 30   print "Wert eingeben, 0 fuer Ende: ";
 40   input "",wert
 50   print "Wert ist: ";wert
 60 wend

In unserem Euro-DM-Rechner hätten wir statt des GOTO-Sprungs also auch eine WHILE-Schleife verwenden können: Dank WHILE-Schleifen kann auf die explizite Angabe eines Sprungziels verzichtet werden. Wenn Sie Ihr BASIC-Programm in einer Datei ablegen, können Sie übrigens ganz auf die Vergabe von Zeilennummern verzichten: BASIC interpretiert die Befehle dann in der Reihenfolge, wie sie in der Datei auftauchen. Das obige Programm wird dann zur folgenden Version, die fast schon wie ein Shell-Skript aussieht:

wert=-1
 while wert<>0
 print "Wert eingeben, 0 fuer Ende: ";
   input "",wert
   print "Wert ist: ";wert
 wend

Kurzreferenz

Eine etwas magere Kurzreferenz zu den Befehlen von bwBASIC bietet der Hersteller unter http://www.bwbasic.com/extended.html; für einen ausführlicheren Einstieg in BASIC sind zum Beispiel die folgenden Seiten interessant:

LinuxCommunity kaufen

Einzelne Ausgabe
 
Abonnements
 
TABLET & SMARTPHONE APPS
Bald erhältlich
Get it on Google Play

Deutschland

Ähnliche Artikel

  • PureBasic: Software für Linux, Windows und OS X entwickeln
    Die französische Softwareschmiede Fantaisie Software bietet mit PureBasic eine Entwicklungsumgebung an, mit der Sie Programme für Linux, Windows und OS X erstellen. Wir helfen bei den ersten Programmierprojekten mit dem modernen BASIC-Dialekt.
  • Homecomputer Simulator Atari++ in Fedora.
  • Programmieren für Einsteiger
    Programmierer haben Linux und die zahlreichen Linux-Anwendungen entwickelt. Auch für Neulinge auf diesem Gebiet bietet Linux zahlreiche Optionen – wie Sie hier einen Einstieg finden können, verraten die Artikel unserer aktuellen Titelstrecke.
  • Einsteigertauglich
    Die leichte Erlernbarkeit und der überschaubaren Sprachumfang machen Basic besonders für Programmieranfänger interessant. Mit einer passenden IDE erstellen auch Einsteiger schnell Programme für die grafische Oberfläche.
  • Tabelle unter Kontrolle
    OpenOffice bringt eine eigene Makro-Programmiersprache mit: Mit StarBasic können Sie umständliche manuelle Tätigkeiten automatisieren. Wir stellen Variablen, Kontrollstrukturen und Schleifen vor.
Kommentare

Infos zur Publikation

LU 10/2016: Kryptographie

Digitale Ausgabe: Preis € 0,00
(inkl. 19% MwSt.)

LinuxUser erscheint monatlich und kostet 5,95 Euro (mit DVD 8,50 Euro). Weitere Infos zum Heft finden Sie auf der Homepage.

Das Jahresabo kostet ab 86,70 Euro. Details dazu finden Sie im Computec-Shop. Im Probeabo erhalten Sie zudem drei Ausgaben zum reduzierten Preis.

Bei Google Play finden Sie digitale Ausgaben für Tablet & Smartphone.

HINWEIS ZU PAYPAL: Die Zahlung ist ohne eigenes Paypal-Konto ganz einfach per Kreditkarte oder Lastschrift möglich!

Aktuelle Fragen

Soundkarte wird erkannt, aber kein Ton
H A, 25.09.2016 01:37, 3 Antworten
Hallo, Ich weiß, dass es zu diesem Thema sehr oft Fragen gestellt wurden. Aber da ich ein Linu...
Scannen nur schwarz-weiß möglich
Werner Hahn, 20.09.2016 13:21, 2 Antworten
Canon Pixma MG5450S, Dell Latitude E6510, Betriebssyteme Ubuntu 16.04 und Windows 7. Der Canon-D...
Meteorit NB-7 startet nicht
Thomas Helbig, 13.09.2016 02:03, 3 Antworten
Verehrte Community Ich habe vor Kurzem einen Netbook-Oldie geschenkt bekommen. Beim Start ersch...
windows bootloader bei instalation gelöscht
markus Schneider, 12.09.2016 23:03, 1 Antworten
Hallo alle zusammen, ich habe neben meinem Windows 10 ein SL 7.2 Linux installiert und musste...
Ubuntu 16 LTE installiert, neustart friert ein
Matthias Nagel, 10.09.2016 01:16, 3 Antworten
hallo und guten Abend, hab mich heute mal darangewagt, Ubuntu 16 LTE parallel zu installieren....