Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
2 К ПС(мережі 1, 2 семестр).doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
3.75 Mб
Скачать

Hello World

10 PRINT "Hello World!"

Examples

Sample 1: Unstructured original BASIC (Applesoft BASIC)

Sample 2: Modern Structured BASIC (e.g. QBASIC)

10 INPUT "What is your name: "; U$

20 PRINT "Hello "; U$

25 REM

30 INPUT "How many stars do you want: "; N

35 S$ = ""

40 FOR I = 1 TO N

50 S$ = S$ + "*"

55 NEXT I

60 PRINT S$

65 REM

70 INPUT "Do you want more stars? "; A$

80 IF LEN(A$) = 0 GOTO 70

90 A$ = LEFT$(A$, 1)

100 IF (A$ = "Y") OR (A$ = "y") THEN GOTO 30

110 PRINT "Goodbye ";

120 FOR I = 1 TO 200

130 PRINT U$; " ";

140 NEXT I

150 PRINT

INPUT "What is your name"; UserName$

PRINT "Hello "; UserName$

DO

INPUT "How many stars do you want"; NumStars

Stars$ = ""

Stars$ = REPEAT$("*", NumStars) ' <- ANSI BASIC

--or--

Stars$ = STRING$(NumStars, "*") ' <- MS BASIC

PRINT Stars$

DO

INPUT "Do you want more stars"; Answer$

LOOP UNTIL Answer$ <> ""

Answer$ = LEFT$(Answer$, 1);

LOOP WHILE UCASE$(Answer$) = "Y"

PRINT "Goodbye ";

FOR I = 1 TO 200

PRINT UserName$; " ";

NEXT I

PRINT

Dialects

Nowadays there exist 31 dialects of BASIC

  • Altair BASIC (MITS Altair, S-100; Microsoft's first product)

  • Amiga BASIC (Commodore Amiga)

  • AMOS BASIC (Commodore Amiga)

  • Apple Business BASIC (Apple ///)

  • Applesoft BASIC (Apple II)

  • ASIC (MS-DOS)

  • Atari 2600 Basic Programming (Atari 2600 video game console)

  • Atari BASIC (aka Sheperdson BASIC) (Atari 8-bit family)

  • Atari Microsoft BASIC II (Atari 8-bit family)

  • B32 Business Basic (Data General Eclipse MV, UNIX, MS-DOS)

  • BASIC09 (OS-9 and OS-9 68K on Motorola 6809 and 68K CPUs, respectively)

  • BASICA (Advanced BASIC, available in ROM on IBM PCs) (later disk based versions for PC-DOS)

  • BASIC A+ (Atari 8-bit family)

  • BASIC-E (aka 'submarine BASIC') (CP/M)

  • Basic Plus (DEC, for the RSTS/E OS, PDP-11 processor)

  • BASIC XE (Atari 130XE)

  • BBC BASIC (Acorn/BBC Micro, RISC OS, Tiki 100, Cambridge Z88, CP/M, MS-DOS)

  • Blitz BASIC (Win32, Commodore Amiga)

  • Business Basic

  • Bxbasm (Win32, open source, native compile)

  • Bywater BASIC (aka bwBASIC) (MS-DOS, POSIX)

  • Caché Basic (One of the two scripting languages in Caché Database)

  • CBASIC (successor of BASIC-E) (CP/M, MS-DOS)

  • Chipmunk Basic (Apple Macintosh, CLI ports for Win32, GNU/Linux; copyrighted freeware)

  • Color BASIC (Tandy Radio Shack TRS-80 Color Computer, aka CoCo)

  • Commodore BASIC (Commodore 8-bit family)

  • DarkBASIC & DarkBASIC Professional

  • Dartmouth BASIC (see also True BASIC)

  • Data General Business Basic (Data General Nova and later DG minicomputers)

  • Ethos Basic (MS Windows)

  • Extended Color BASIC (TRS-80 Color Computer)

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]