BASIC
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:
- Für Anfänger einfach zu lernen
- Als Allzweck-Computerprache einsetzbar
- Erweiterbarkeit der Sprache für Experten
- Interaktivität
- Klare Fehlermeldungen
- Rasche Antwortzeiten
- Hardwareunabhängigkeit
- Betriebssystemunabhängigkeit
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.
| Table of contents |
|
2 (Einige) BASIC Implementationen 3 Dokumente, die BASIC definieren 4 Links |
Beispiel 1: Unstrukturierter BASIC-Code
Beispiel 2: Strukturierter BASIC-Code
Basic ist heute auf nahezu allen Computer-Plattformen in verschiedenen Basicdialekten erhältlich.
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")
Beispiele
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
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
Dokumente, die BASIC definieren
Links






