Предыдущая страница реферата | 27  28  29  30  31  32  33  34  35  36  37 | Следующая страница реферата

FOR j = 1 TO speed: NEXT j

NEXT i

SYSTEM

slov:

COLOR 15

IF p < 10 THEN slovo$(1) = " Перемещай стрелку по ": slovo$(2) = " координатной плоскости ": slovo$(3) = "пользуясь клавишами " + CHR$(27) + CHR$(24) + CHR$(25) + "->": slovo$(4) = " Клавишей <ПРОБЕЛ> укажи "

IF p = 1 THEN slovo$(5) = " начало вектора AB "

IF p = 2 THEN slovo$(5) = " начало вектора CD "

IF p = 3 THEN slovo$(5) = " конец вектора AB "

IF p = 4 THEN slovo$(5) = " конец вектора CD "

IF p = 5 THEN slovo$(5) = " начало вектора m "

IF p = 6 THEN slovo$(5) = " конец вектора m "

IF p > 10 THEN slovo$(1) = " Введи с клавиатуры ": slovo$(3) = " и нажми <Enter> ": slovo$(4) = " если ошибся ": slovo$(5) = " нажми <== "

IF p = 11 THEN slovo$(2) = " координату x вектора AB "

IF p = 12 THEN slovo$(2) = " координату y вектора AB "

IF p = 13 THEN slovo$(2) = " координату x вектора CD "

IF p = 14 THEN slovo$(2) = " координату y вектора CD "

IF p = 15 THEN slovo$(2) = " координату x вектора m "

IF p = 16 THEN slovo$(2) = " координату y вектора m "

IF p = 20 THEN FOR cl = 1 TO 5: slovo$(cl) = " ": NEXT cl

LINE (403, 235)-(626, 309), 15, B

LINE (403, 235)-(625, 308), 7, B

PAINT (450, 240), 0, 7

FOR lo = 18 TO 22

LOCATE lo, 52: PRINT slovo$(lo - 17)

NEXT lo

LOCATE 6, 52: PRINT "<F1>-Помощь <Esc>-Выход"

LINE (403, 65)-(626, 89), 15, B

LINE (403, 65)-(625, 88), 7, B

COLOR ccc

RETURN

zapusk:

zapusk$(1) = " РАЗНОСТЬ ВЕКТОРОВ "

zapusk$(2) = " "

zapusk$(3) = " Тебе предстоит: "

zapusk$(4) = " выполнить 10 заданий "

zapusk$(5) = " В каждом задании нужно: "

zapusk$(6) = "1 - построить на "

zapusk$(7) = " координатной плоскости "

zapusk$(8) = " два вектора, указав "

zapusk$(9) = " их начало и конец "

zapusk$(10) = "2 - ввести их координаты "

zapusk$(11) = "3 - вычесть из второго "

zapusk$(12) = " вектора первый вектор "

zapusk$(13) = " и ввести координаты "

zapusk$(14) = " вектора разности "

zapusk$(15) = "4 - построить вектор "

zapusk$(16) = " разности указав начало "

zapusk$(17) = " вектора в произвольной "

zapusk$(18) = " точке "

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



Предыдущая страница реферата | 27  28  29  30  31  32  33  34  35  36  37 | Следующая страница реферата

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