Zum Inhalt springen

BASIC

aus Wikipedia, der freien Enzyklopädie
Dies ist eine alte Version dieser Seite, zuletzt bearbeitet am 19. Juli 2002 um 16:27 Uhr durch pD902E342.dip.t-dialin.net (Diskussion). Sie kann sich erheblich von der aktuellen Version unterscheiden.
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)

B = Beginner's A = All-purpose S = Symbolic I = Instruction C = Code


Programmiersprache, die 1964 vom John George Kemeny and Thomas Eugene Kurtz am Dartmouth College entwickelt wurde.



Acht Entwurfsprinzipien waren:

  1. Für Anfänger einfach zu lernen
  1. Allzweck-Computerprache
  1. Erweiterbarkeit der Sprache für Experten
  1. Interaktivität
  1. Klare Fehlermeldungen
  1. Rasche Antwortzeiten
  1. Hardwareunabhängigkeit
  1. Betriebssystemunabhängigkeit


BASIC ist weltweit die populärste Programmiersprache obwohl sie oft von professionellen Informatikern geringgeschätzt wird. Viele Versionen wurden entwickelt und die neuesten Versionen weisen alle modernen Konstrukte auf.


Das Beispiel 1 zeigt ein Programm in einer originalen unstrukturierten Fassung geschrieben, während das Beispiel 2 dasselbe Programm in einem moderneren Dialekt zeigt.




Beispiel 1: Originaler 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: Moderner 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


Basic ist auf allen Plattformen in verschiedenen Varianten 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") $79 USD


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


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")



Links