Предыдущая страница реферата | 20  21  22  23  24  25  26  27  28  29  30 | Следующая страница реферата

RETURN

glupo:

glupo = glupo + 1

FOR clor = 15 TO 0 STEP -1

PLAY "n60l20"

COLOR clor

LOCATE 16, 53: PRINT "ОШИБКА! ПОВТОРИТЕ ВВОД"

NEXT clor

COLOR ccc

RETURN

 

Приложение №3

Файл - vector2.bas

REM РАЗНОСТЬ ВЕКТОРОВ

'Константы

speed = 800 'Скорость

FILEHLP$ = "vector.hlp"

filerez$ = "vector.rez"

oshibka = 0 'Общее количество ошибок

k = 10 'Длина пера вектора

k1 = 3 'Ширина пера вектора

radius = 2 'Радиус начала вектора

zakr = 1 'Закраска начала вектора

zakrstr = 1 'Закраска стрелки вектора

c = 12 'Цвет стрелки - курсора

curx = 0: cury = 0 'Установка начальниых координат положения стрелки

DIM colora(10)

DIM slovo$(5)

DIM zapusk$(18)

SCREEN 9, , 0, 0

OPEN filerez$ FOR APPEND AS #3

PRINT #3, DATE$; " СТАРТ ПРОГРАММЫ < РАЗНОСТЬ ВЕКТОРОВ > - "; TIME$;

GOSUB coord 'Построение координатной плоскости

GOSUB zapusk 'Страничка с заданиями

FOR shag = 1 TO 10

PRINT #3, : PRINT #3, "Задание - "; shag

glupo = 0

GOSUB coord 'Построение координатной плоскости

p = 1: GOSUB slov

FOR ccc = 10 TO 13 STEP 3

GOSUB telo

IF ccc = 10 THEN abx = curx - curoldx: aby = cury - curoldy ELSE cdx = curx - curoldx: cdy = cury - curoldy

NEXT ccc

PRINT #3, "AB("; abx; ","; aby; ")"; TAB(15); "; CD("; cdx; ","; cdy; ")"; " ;"; TAB(34); "m("; cdx - abx; ", "; cdy - aby; ")";

GOSUB analis

NEXT shag

GOSUB coord

LOCATE 10, 53: PRINT "Вы допустили "; oshibka; " ошибок"

PRINT #3,

PRINT #3, "Количество допущенных ошибок - "; oshibka

Рекомендуем скачать другие рефераты по теме: скачать бесплатно шпоры, шарарам ответы.



Предыдущая страница реферата | 20  21  22  23  24  25  26  27  28  29  30 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки