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


REM Сортировка фамилий
DIM NAME$(10)
N = 10
CLS
FOR J = 1 TO 10
  INPUT "Введи очеpедную фамилию - ", NAME$(J)
NEXT J
CLS
PRINT "Фамилии до упоpядочения : "
FOR J = 1 TO N
  LOCATE J + 2, 1: PRINT NAME$(J)
NEXT J
FOR J = 1 TO N - 1
  FOR K = J + 1 TO N
    IF NAME$(J) > NAME$(K) THEN
       TMP$ = NAME$(J)
       NAME$(J) = NAME$(K)
       NAME$(K) = TMP$
    END IF
  NEXT K
NEXT J
LOCATE 1, 40
PRINT "Фамилии после упоpядочения :"
FOR J = 1 TO N
  LOCATE J + 2, 40: PRINT NAME$(J)
NEXT J
END