Использование ЭВМ при обучении математике
Категория реферата: Рефераты по информатике, программированию
Теги реферата: бесплатно рассказы, курсовики скачать бесплатно
Добавил(а) на сайт: Jengel'gardt.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
GOSUB stran
obrabotka:
A$ = INKEY$
IF A$ = CHR$(0) + CHR$(73) THEN NS = NS - 1: GOSUB stran
IF A$ = CHR$(0) + CHR$(81) THEN NS = NS + 1: GOSUB stran
IF A$ = CHR$(27) THEN ERASE stran$: RETURN
GOTO obrabotka
stran:
IF NS < 1 THEN NS = 1: RETURN
IF NS > KS THEN NS = KS: RETURN
n = 18 * NS
'SLC:
LOCATE 1, 1
PRINT "г"; STRING$(64, "="); "T=============¬"
PRINT "¦"; STRING$(15, " "); : COLOR 15, 0: PRINT "ИНФОРМАЦИОННО - СПРАВОЧНАЯ СИСТЕМА"; : COLOR 7, 0: PRINT STRING$(15, " ");
IF NS < 10 THEN PRINT "¦ Страница "; NS; "¦" ELSE PRINT "¦ Страница"; NS; "¦"
PRINT "¦"; STRING$(64, " "); "L=============¦"
FOR i = n - 17 TO n
IF i > S THEN PRINT "¦"; STRING$(78, " "); "¦" ELSE PRINT "¦ "; stran$(i); STRING$((76 - LEN(stran$(i))), " "); "¦"
NEXT i
PRINT "L"; STRING$(78, "="); "-"
COLOR 1, 7: PRINT " Выход - Esc ";
IF NS = 1 THEN COLOR 8, 7 ELSE COLOR 1, 7
PRINT " Предыдущая страница - PageUp ";
IF NS = KS THEN COLOR 8, 7 ELSE COLOR 1, 7
Рекомендуем скачать другие рефераты по теме: скачать бесплатно шпоры, шарарам ответы.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата