Использование ЭВМ при обучении математике
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатно рассказы, курсовики скачать бесплатно
| Добавил(а) на сайт: Jengel'gardt.
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата
COLOR ccc
LOCATE 11, 58: PRINT "__"
LOCATE 12, 58: PRINT "CD ( ; )"
PRINT #3,
PRINT #3, "координата x вектора CD ";
vectx2:
p = 13: GOSUB slov
mm = 3: nx = 12: ny = 63
l$ = "+-1234567890"
m$ = "": m = 0
GOSUB napis
PRINT #3, VAL(m$);
IF cdx <> VAL(m$) THEN GOSUB glupo: GOTO vectx2
PRINT #3,
PRINT #3, "координата y вектора CD ";
vecty2:
p = 14: GOSUB slov
mm = 3: nx = 12: ny = 69
l$ = "+-1234567890"
m$ = "": m = 0
GOSUB napis
PRINT #3, VAL(m$);
IF cdy <> VAL(m$) THEN GOSUB glupo: GOTO vecty2
ccc = 14
COLOR ccc
LOCATE 13, 53: PRINT " __ __ _"
LOCATE 14, 53: PRINT " CD-AB=m( ; )"
PRINT #3,
PRINT #3, "координата x вектора m ";
vectx3:
p = 15: GOSUB slov
mm = 3: nx = 14: ny = 63
l$ = "+-1234567890"
m$ = "": m = 0
GOSUB napis
PRINT #3, VAL(m$);
IF cdx - abx <> VAL(m$) THEN GOSUB glupo: GOTO vectx3
PRINT #3,
PRINT #3, "координата y вектора m ";
vecty3:
p = 16: GOSUB slov
mm = 3: nx = 14: ny = 69
l$ = "+-1234567890"
m$ = "": m = 0
GOSUB napis
PRINT #3, VAL(m$);
IF cdy - aby <> VAL(m$) THEN GOSUB glupo: GOTO vecty3
ccc = 14: p = 5: GOSUB slov
vectm:
GOSUB telo
Рекомендуем скачать другие рефераты по теме: скачать бесплатно шпоры, шарарам ответы.
Категории:
Предыдущая страница реферата | 25 26 27 28 29 30 31 32 33 34 35 | Следующая страница реферата
Главная