Практикум по среде и языку QBasic____________ 149

LOOP WHILE K& < 16385

SLEEP

END

SHOWT:

ОМ TIMER(1) GOSDB SHOWT 'установка задержки на 1 с DIGITS(1) = М% \ 10 DIGITS(2) = Mt MOD 10 DIGITS(3) = S% \ 10 DIGITS(4) = S% MOD 10 COLOR 2 FOR IT» = 1 ТО 7 Х$ = "" FOR KT% = 1 ТО 4

Z = SMBLS (DIGITS (KT»), (IT% +2) \ 2) IF IT% MOD 2=0 THEN

Z = Z \ 256 ELSE

Z = Z MOD 256 END IF FOR JTt = 1 TO 8 IF Z > 127 THEN X$ = X$ + POINT$ Z = Z - 128 ELSE

X$ = X$ + EMPTY$ END IF Z = Z * 2 NEXT JTt

IF KT% = 2 THEN X$ = X$ + " " NEXT KT»

LOCATE 12 + IT», 4 PRINT X$;

IF IT% = 2 OR IT» = 6 THEN LOCATE 12 + IT%, 40 COLOR 18 PRINT POINT$;

COLOR 2 END IF NEXT IT» COLOR 7 St = S» + 1 IF S» > 59 THEM

M% = M» + 1: S% = 0 END IF

LOCATE (KS MOD 10) + 1, 1 'для вывода результата в 10 строк RETURN

Отладьте и запустите эту программу. Сравните ее с двумя другими, а именно, с программой PRIMES по быстродействию и с программой CLOCK по точности. Ибо как советовал Козьма Прутков бросающему в воду камушки: "Считай круги ими образуемые, иначе это будет выглядеть пустой забавою".

Итак в результате шестого занятия вы ознакомились не только еще с двумя видами оформления подпрограмм, но и с очень важным понятием о прерывании, позволяющем нескольким программам совместно использовать ресурсы компьютера. Кроме того вы ознакомились с моделью использования кодовой страницы для вывода символов на экран дисплея. Но самым главным результатом этого занятия должно быть понимание программирования конкретной, задачи не как одномоментного действия. Программирование — это процесс повторения последовательных и много-