Как я могу исправить эту синтаксическую ошибку в QBASIC о READ DATA

Question

Это мой код

INPUT "what year right now : ", thn1
CLS
thn2 = thn1
num = 0
PRINT "No      Jenis Kelamin     Tanggal Lahir     NPM         Nama"
10 READ jk$, tgl$, thl, npm$, nma$
IF jk$ = "0" THEN END
thn1 = thn2
thn1 = thn1 - thl
IF jk$ = "L" OR thn1 < 18 THEN GOTO 10
num = num + 1
PRINT num, jk$, tgl$, npm$, nma$
GOTO 10
DATA "L","11-03-2000",2000,"52418436","Fajar","P","20-06-1999",1999,"89436754","Rida","P","17-01-2002",2001,"37904638","Selly","L","09-08-1998",1998,"47382901","Fadli","P","28-04-2000",2000,"37464903","Bella","0","0","0","0","0","0"

вывод такой, как я хотел, но есть всплывающее предупреждение:

Необработанная ошибка # 2

Строка 6 (в основноммодуль) Синтаксическая ошибка продолжить?

Да Нет

Как это исправить?

Answer 1

Я предполагаю, что вы пытаетесь прочитать "0" (тип STRING) в переменную thl (тип по умолчанию SINGLE), когда происходит последний READ (вам также необходимо удалить последний "0").Измените

"Bella","0","0","0","0","0","0"

на

"Bella","0","0",0,"0","0"

Вы также можете использовать несколько операторов DATA, чтобы упорядочить вещи.Вот как я мог бы написать код, предполагая, что память не проблема:

DATA "L","11-03-2000",2000,"52418436","Fajar"
DATA "P","20-06-1999",1999,"89436754","Rida"
DATA "P","17-01-2002",2001,"37904638","Selly"
DATA "L","09-08-1998",1998,"47382901","Fadli"
DATA "P","28-04-2000",2000,"37464903","Bella"
DATA "0","00-00-0000",0000,"00000000","00000"