از انتهای خط q را پاک کنید

CLS

DIM name$(5)                                             q

 For I = 1 To 5

INPUT name$(I)                                         q

NEXT I

FOR I = 1 To 4

SORTED$ = “ Yes “                                  q

FOR J = 1 To 5 – I

IF name$(J) > name$(j – 1)) THEN

SWAP name$(J) , name$(J +1)                q

SORTED$ = “ No “                                   q

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 )                                  q

MIDDLE = INT(( Low + High ) / 2)                q

IF ( KEY$ > name$ ( MIDDLE )) THEN

Low = MIDDLE – 1

ELSEIF (KEY$ < name$ ( MIDDLE )) THEN

High = MIDDLE – 1

ELSE

PRINT MIDDLE

END

END IF

WEND

PRINT “ Not Found “                          q

END