اموزش Qbasic(دستور Swap)

حال اگر در مثال بالا در شرط به جای علامت بزرگتر (> ) در عمل مقایسه از علامت (<) استفاده شود ، مرتب سازی نزولی خواهد بود .
برنامه ای بنویسید که 5 نام را از ورودی دریافت کرده درون یک آرایه ذخیره کند . آن گاه با دریافت یک نام از ورودی مشخص کند که نام ورودی در آرایه موجود است یا خیر ؟

کد:

CLS
DIM name$(5)
For I = 1 To 5
INPUT name$(I)
NEXT I
FOR I = 1 To 4
SORTED$ = “ Yes “
FOR J = 1 To 5 – I
IF name$(J) > name$(j – 1)) THEN
SWAP name$(J) , name$(J +1)
SORTED$ = “ No “
END IF
NEXT J
IF SORTED$ = “ Yes “ THEN
I = 4
END IF
NEXT I
FOR I = 1 To 5
Low = 1
High = 5
WHILE ( Low < = High )
MIDDLE = INT(( Low + High ) / 2)
IF ( KEY$ > name$ ( MIDDLE )) THEN
Low = MIDDLE – 1
ELSEIF (KEY$ < name$ ( MIDDLE )) THEN
High = MIDDLE – 1
ELSE 
PRINT MIDDLE
END
END IF
WEND