Использование ЭВМ при обучении математике
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатно рассказы, курсовики скачать бесплатно
| Добавил(а) на сайт: Jengel'gardt.
Предыдущая страница реферата | 29 30 31 32 33 34 35 36 37 38 39 | Следующая страница реферата
PRINT #3, : PRINT #3, "Задание - "; shag
glupo = 0
GOSUB coord 'Построение координатной плоскости
p = 1: GOSUB slov
ccc = 10
GOSUB telo
abx = curx - curoldx: aby = cury - curoldy
er: 'Задание числа er
RANDOMIZE TIMER
er = INT(RND(1) * 19) - 9
IF ABS(er * abx) > 20 OR ABS(er * aby) > 22 THEN GOTO er
PRINT #3, "AB("; abx; ","; aby; ")"; TAB(15); "Загадано число "; er
GOSUB analis
NEXT shag
GOSUB coord
LOCATE 10, 53: PRINT "Вы допустили "; oshibka; " ошибок"
PRINT #3,
PRINT #3, "Количество допущенных ошибок - "; oshibka
PRINT #3,
CLOSE #3
DO WHILE INKEY$ = "": LOOP
GOTO alis
telo:
GOSUB preobr:
GOSUB zapomin ' Запоминает
GOSUB strelka ' Рисует стрелку
GOSUB vibor '
GOSUB oldstrelka ' Закрашивает место, где была стрелка
IF fl = 2 THEN fl = 0: RETURN
GOTO telo
vibor:
flag = 0
kbd$ = INKEY$
SELECT CASE kbd$
CASE CHR$(0) + "H": IF cury < 10 THEN cury = cury + 1: flag = 1
CASE CHR$(0) + "P": IF cury > -10 THEN cury = cury - 1: flag = 1
CASE CHR$(0) + "K": IF curx > -11 THEN curx = curx - 1: flag = 1
CASE CHR$(0) + "M": IF curx < 11 THEN curx = curx + 1: flag = 1
CASE CHR$(0) + CHR$(59): GOSUB reklama
CASE CHR$(32): GOSUB final: IF fl = 2 THEN RETURN
CASE CHR$(27): GOSUB vihod
END SELECT
IF flag = 0 THEN GOTO vibor
kx = x: ky = y
GOSUB preobr
RETURN
strelka:
'==== x y c ============ Рисует стрелку ========
PSET (x, y), c
DRAW "r6g2f4g2h4g2u6"
Рекомендуем скачать другие рефераты по теме: скачать бесплатно шпоры, шарарам ответы.
Категории:
Предыдущая страница реферата | 29 30 31 32 33 34 35 36 37 38 39 | Следующая страница реферата
Главная