Примеры программ на языке QBASIC


REM Упорядочение цветов радуги
DATA "красный","оранжевый","желтый","зеленый"
DATA "голубой","синий","фиолетовый"
DIM A$(7), B$(3)
FOR I = 0 TO 6: READ A$(I): NEXT I
PRINT "Введите по одному в строке 3 цвета радуги"
FOR I = 0 TO 2: INPUT B$(I): NEXT I
PRINT "В радуге эти цвета следуют в таком порядке:"
FOR J = 0 TO 6: FOR I = 0 TO 2
  IF A$(J) = B$(I) THEN PRINT A$(J)
NEXT I: NEXT J
END