240_____________________________________________

LOCATE Line2%, Clmn2%

IF i% MOD 2 > 0 THEN PRINT Half$ ELSE PRINT Full$

IF i% MOD 2=0 THEN

Linel% = Linel% + 1: Line2% = Line2% - 1 END IF SLEEP 1 NEXT i%

COLOR 4, 0 'вывод новых значений объемов LOCATE Line2% + 1, Clmn2% + 12: PRINT USING "#"; Volume(Scnd%) IF Volume(Frstt) > 0 THEN LOCATE Linel%, Clmnl% + 12: PRINT USING "#"; Volume(Frst%)

LOCATE 13, 17: PRINT SPC(60); Count%

'вывод количества переливаний IF Volume(1) = 4 AND Volume(2) = 4 THEN

'проверка условия выигрыша LOCATE 16, 2: COLOR 15, О PRINT "Поздравляю! Вы выиграли!!!" COLOR 7, О EXIT DO END IF

LOOP 'конец цикла игры SLEEP 5 CLS END

7.4. ИГРА В 8, 15, 24, 35, 48, 63, 80 и 99 Файл SQRS.BAS

DIM sqrs(lOO) AS INTEGER

DEFINT I-N

SCREEN 7

CLS : COLOR 2: LOCATE 5

PRINT " Игра КВАДРАТЫ требует"

PRINT " переставить фишки по порядку номеров"

PRINT " на none N Х N"

PRINT

COLOR 3

PRINT " Для передвижения фишек пользуйтесь"

PRINT " клавишами со стрелками"

PRINT " В случае неудачи выход по нажатию 'q'"

DO

COLOR 4: LOCATE 20, 3

INPUT "Выберите N от 3 до 10"; N LOOP UNTIL ABS(2 * N - 13) < 8 CLS : COLOR 7 M = N * N - 1

'построение изображения коробки с фишками top$ = CHR$(201): shl$ = CHR$(199): bot$ = CHR$(200): med$ = CHR$ (186) FOR I = 1 TO N - 1

top$ = top$ + STRING$(2, 205) + CHR$(209)

shl$ = shl$ + STRING$(2, 196) + CHR$<197)

bot$ = bot$ + STRING$(2, 205) + CHR$(207)