Zum Inhalt springen

BASIC

aus Wikipedia, der freien Enzyklopädie
Dies ist eine alte Version dieser Seite, zuletzt bearbeitet am 22. September 2003 um 16:37 Uhr durch 62.109.115.175 (Diskussion) (schlagwort "purebasic" hinzugefügt - wer schreibt den artikel ? (infos auf www.purebasic.de)). Sie kann sich erheblich von der aktuellen Version unterscheiden.


BASIC ist eine Programmiersprache, die 1964 vom John George Kemeny und Thomas Eugene Kurtz am Dartmouth College entwickelt wurde.

Der Name BASIC steht für Beginner's All-purpose Symbolic Instruction Code.

Diese acht Entwurfsprinzipien waren einzuhalten:

  1. Für Anfänger einfach zu lernen
  2. Als Allzweck-Computerprache einsetzbar
  3. Erweiterbarkeit der Sprache für Experten
  4. Interaktivität
  5. Klare Fehlermeldungen
  6. Rasche Antwortzeiten
  7. Hardwareunabhängigkeit
  8. Betriebssystemunabhängigkeit

BASIC ist weltweit die populärste Programmiersprache, obwohl sie oft von Informatikern geringgeschätzt wird. Viele Versionen wurden entwickelt und die neuesten weisen alle professionellen Elemente für höhere Programmiersprachen auf.

Das Beispiel 1 zeigt ein Programm in einer frühen unstrukturierten Fassung geschrieben, während das Beispiel 2 das gleiche Programm in einem moderneren Dialekt zeigt.

Beispiele

Beispiel 1: Unstrukturierter BASIC-Code


10 INPUT "Geben Sie bitte Ihren Namen ein"; A$
20 PRINT "Guten Tag "; A$
30 INPUT "Wieviele Sterne möchten Sie?"; S
40 FOR I = 1 TO S
50 S$ = S$ + "*"
55 NEXT I
60 PRINT S$
70 INPUT "Möchten Sie nochmehr Sterne?"; Q$
80 IF LEN(Q$) = 0 GOTO 70
90 L$ = LEFT$(Q$, 1)
100 IF (L$ = "J") OR (L$ = "j") THEN GOTO 30
110 PRINT "Auf Wiedersehen";
120 FOR I = 1 TO 200
130 PRINT A$; " ";
140 NEXT I
150 PRINT

Beispiel 2: Strukturierter BASIC-Code


INPUT "Geben Sie bitte Ihren Namen ein"; UserName$
PRINT "Guten Tag "; UserName$
DO	
  INPUT "Wie viele Sterne möchten Sie? "; NumStars
  Stars$ = ""
  Stars$ = REPEAT$("*", NumStars)	'<-ANSI BASIC
  'Stars$ = STRING(NumStars, "*")	'<-MS BASIC
  PRINT Stars$
  DO
    INPUT "Möchten Sie noch mehr Sterne?"; Answer$
  LOOP UNTIL Answer$ <> ""
LOOP WHILE UCASE$(LEFT$(Answer$, 1)) = "J"
PRINT "Auf Wiedersehen ";
FOR A = 1 TO 200
  PRINT UserName$; " ";
NEXT A
PRINT

(Einige) BASIC Implementationen

Basic ist heute auf nahezu allen Computer-Plattformen in verschiedenen Basicdialekten erhältlich.

Dokumente, die BASIC definieren

ANSI Standard for Minimal BASIC (ANSI X3.60-1978 "FOR MINIMAL BASIC")

ISO Standard for Minimal BASIC (ISO/IEC 6373:1984 "DATA PROCESSING - PROGRAMMING LANGUAGES - MINIMAL BASIC")

ANSI Standard for Full BASIC (ANSI X3.113-1987 "PROGRAMMING LANGUAGES FULL BASIC")

ISO Standard for Full BASIC (ISO/IEC 10279:1991 "INFORMATION TECHNOLOGY - PROGRAMMING LANGUAGES - FULL BASIC")

ANSI Addendum Defining Modules (X3.113 INTERPRETATIONS-1992 "BASIC TECHNICAL INFORMATION BULLETIN # 1 INTERPRETATIONS OF ANSI 03.113-1987")

ISO Addendum Defining Modules (ISO/IEC 10279:1991/ Amd 1:1994 "MODULES AND SINGLE CHARACTER INPUT ENHANCEMENT")