(рисунок 1)

Приложение В

Текст программы

'Курсовая работа автор Грицай Светлана

'группа 4-ИНФ, год 2010

'Описание переменных,

' - переменная для Фамилии тестируемого, обнуление значения переменной

FamUser$ = ""

' - переменная для Имени тестируемого, обнуление значения переменной

NameUser$ = ""

'массив для занесения выведенных вопросов

DIM MAsivZadanVopr (10)

'Номер очередного ответа

TeckushOtv% = 1

'------Окно приветствия - Ввод информации о тестируемом------------

SCREEN 9

COLOR, 17

CLS

LINE (2,2) - (637, 347), 7, B

LINE (5,5) - (634, 344), 1, B

LINE (10,10) - (629, 339), 15, B

LOCATE 2, 19: PRINT "Государственное образовательное учреждение"

LOCATE 3, 21: PRINT "среднего профессионального образования"

LOCATE 4, 12: PRINT "Азовский государственный гуманитарно-технический колледж"

LOCATE 11, 18: PRINT "Тема: <Алгоритмы и его свойства>"

LOCATE 16, 6: PRINT "Автор программы: "

LOCATE, 6: PRINT "Грицай Светлана";

DO

' Начало организации мигания надписи нажмите <Enter>

IF TIMER >.8 + nt THEN

ll% = ll% + 1 'изменение цвета надписи на единицу

IF ll% > 5 THEN ll% = 2 'Если значение ll% достигло 5 то ll%=2

COLOR ll%

LOCATE 24, 63: PRINT "Нажмите <Enter>";

LINE (485, 321) - (625, 336), ll%, B

nt = TIMER

END IF ' Конец организации мигания надписи нажмите <Enter>

LOOP WHILE INKEY$ <> CHR$ (13) 'Цикл пока ожидает нажатия клавиши Enter

'Ввод фамилии

10:

COLOR 3

LINE (231, 263) - (381, 294), 0, BF

LINE (231, 263) - (381, 294), 15, B

COLOR 15

LOCATE 20, 32: PRINT "Введите Фамилию "

vx = 32: vy = 21: ls = 15: GOSUB vvodfio

FamUser$ = fio$

'Ввод имени

20:

COLOR 3

LINE (231, 263) - (381, 294), 0, BF

LINE (231, 263) - (381, 294), 15, B

COLOR 15

LOCATE 20, 32: PRINT "Введите Имя "

vx = 32: vy = 21: ls = 15: GOSUB vvodfio

NameUser$ = fio$

'----------------------Второй экран - Правила тестирования--------------------------

COLOR 5, 47: CLS

LINE (9,10) - (633, 320), 3, B

LINE (12,12) - (630, 318), 8, B

LINE (15, 15) - (627, 316), 1, B

COLOR 4

LOCATE 4, 36: PRINT "Правила теста"

COLOR 1

LOCATE, 11: PRINT " Тест поможет установить уровень ваших знаний по теме: "

COLOR 4

LOCATE, 14: PRINT "''Алгоритм и его свойства. ''"

LOCATE, 14: PRINT

COLOR 1

LOCATE, 5: PRINT "Ответив на 10 вопросов теста состоит вы узнаете на сколько освоена вами"

LOCATE, 4: PRINT "данная тема, каждый ";: COLOR 4: PRINT "правильный ответ";

COLOR 1: PRINT " это ";: COLOR 4: PRINT "1 балл";

COLOR 1: PRINT", каждый неправильный ответ"

LOCATE, 4: PRINT "один штраф. Вопросы задаются случайным образом"

COLOR 4

PRINT

LOCATE, 28: PRINT "Критерии оценки следующие: "

LOCATE, 25: PRINT "10";: COLOR 1: PRINT " правильных ответов - ";: COLOR 4: PRINT "5 баллов"

LOCATE, 25: PRINT "9-8";: COLOR 1: PRINT " правильных ответов - ";: COLOR 4: PRINT "4 балла"

LOCATE, 25: PRINT "7-6";: COLOR 1: PRINT " правильных ответов - ";: COLOR 4: PRINT "3 балла"

LOCATE, 25: PRINT "5-3";: COLOR 1: PRINT " правильных ответов - ";: COLOR 4: PRINT "2 балла"

LOCATE, 25: PRINT "2-0";: COLOR 1: PRINT " правильных ответов - ";: COLOR 4: PRINT "1 балл"

PRINT: COLOR 4

LOCATE, 16: PRINT "Если вы согласны с условиями теста нажмите ";: COLOR 1: PRINT "<Enter>"

COLOR 4

LOCATE, 16: PRINT "Если вы несогласны с условиями теста нажмите ";: COLOR 1: PRINT "<Esc>"

ogid:

DO

IF TIMER >.8 + nt THEN ' Начало организации мигания надписи нажмите <Enter>

ll% = ll% + 1 'изменение цвета надписи на единицу

IF ll% > 5 THEN ll% = 4 'Если значение ll% достигло 5 то ll%=2

COLOR ll%

LOCATE 22, 5: PRINT "Для продолжения нажмите - Enter, для окончания работы программы - Esc"

nt = TIMER

END IF

SymbolIn$ = INKEY$ 'присвоение перемннной SymbolIn$ значения считанного опрератором INKEY$

LOOP WHILE SymbolIn$ = "" 'цикл работает пока в переменной SymbolIn$ нет значения

'-----------------------Конец цикла До - опроса клавиатуры--------------------

KodSymbola% = ASC (RIGHT$ (SymbolIn$, 1)) 'получения кода нажатой клавиши

IF KodSymbola% = 13 THEN GOSUB PodPprov 'Если нажат Enter то переход в подпрограмму (п/п) PodPprov

IF KodSymbola% = 27 THEN GOSUB PodPEnd1 'Если нажат Enter то (п/п) PodPEnd1

IF KodSymbola% <> 13 AND KodSymbola% <> 27 THEN GOTO ogid 'если Enter или Esc не нажаты то повторяем опрос клавиатуры

'------------<<'Конец основного алгоритма>>------------------

END

vvodfio: 'п/п ввода фамилии тестируемого

fio$ = "": par = 0: k = 1

DO

COLOR 15: LOCATE vy, vx: PRINT "_"

c$ = ""

DO

c$ = INKEY$

LOOP WHILE c$ = ""

IF ASC (RIGHT$ (c$, 1)) = 13 THEN par = 1

IF par = 0 AND ls > 0 THEN

fio$ = fio$ + RIGHT$ (c$, 1)

COLOR 15: LOCATE vy, vx: PRINT RIGHT$ (c$, 1)

ls = ls - 1: vx = vx + 1

END IF

LOOP WHILE par = 0

RETURN

PodPprov:

GOSUB PodPVid1

RANDOMIZE TIMER 'включение случайного выбора

300:

'Генерация вопроса случайным образом

SgenerQwest% = INT (RND (1) * 12) + 1

FOR ll% = 1 TO 10

IF MAsivZadanVopr (ll%) = SgenerQwest% THEN GOTO 300

NEXT ll%

MAsivZadanVopr (TeckushOtv%) = SgenerQwest%

FOR ll% = 1 TO 12

READ NomerVoprosa%

IF SgenerQwest% = NomerVoprosa% THEN

READ Vopros$, Vopros1$, Otvet1$, Otvet2$, Otvet3$, Otvet4$, BestOtv

ELSE

FOR nn = 1 TO 7: READ vv$: NEXT nn

END IF

NEXT ll%

RESTORE

GOSUB PodPPrint

RETURN

PodPVid1: 'п/п вывода постоянного вида Экрана

COLOR 4, 11: CLS

LINE (0, 0) - (639, 349), 0, BF

LOCATE 1, INT ( (70 - (LEN (NameUser$) + LEN (FamUser$))) / 2)

PRINT "Отвечает: "; NameUser$; " "; FamUser$

COLOR 4

'---------------------'Начало выводы справки об управлении----------------------

LOCATE 15, 31: PRINT "УПРАВЛЯЮЩИЕ КЛАВИШИ"

COLOR 4

LOCATE 16, 26: PRINT "_ _ ";: COLOR 1: PRINT " - клавиши выбора ответа": COLOR 4

LOCATE 17, 5: PRINT "<Enter> ";: COLOR 1: PRINT " - подтверждение выбора ответа, переход к следующему вопросу": COLOR 4

''---------------------'Конец выводы справки об управлении----------------------

COLOR 4

LINE (25, 15) - (604, 100 - 20), 14, BF

LINE (15, 20) - (595, 106 - 20), 2, BF

LINE (15, 20) - (595, 106 - 20), 7, B

LINE (20, 23) - (590, 100 - 20), 0, BF

LINE (20, 23) - (590, 100 - 20), 15, B

jj = 30

LINE (30, 140 - jj) - (630, 205 - jj), 7, BF

LINE (20, 150 - jj) - (620, 215 - jj), 0, BF

LINE (19, 149 - jj) - (621, 215 - jj), 15, B

LINE (20, 150 - jj) - (620, 214 - jj), 8, B

LINE (240, 112) - (383, 124), 0, BF

LOCATE 9, 32: PRINT "Варианты ответов";

LINE (240, 112) - (383, 125), 8, B

COLOR 4

LOCATE 21, 15: PRINT "Правильных ответов: "; VernyBall

LOCATE 21, 47: PRINT "Неправильных ответов: "; LognyBall

LINE (2, 1) - (637, 345), 8, B

RETURN

PodPPrint:

COLOR 1

'Выводим вопрос

COLOR 4: LOCATE 3, 5: PRINT "Вопрос N"; TeckushOtv%; ": ";: COLOR 1: PRINT Vopros$

LOCATE 4, 5: PRINT Vopros1$

LOCATE 10, 8: PRINT " - "; Otvet1$

LOCATE, 8: PRINT " - "; Otvet2$

LOCATE, 8: PRINT " - "; Otvet3$

LOCATE, 8: PRINT " - "; Otvet4$

GOSUB PodPselectOtvet

RETURN

PodPselectOtvet:

Stroka% = 10

Posicia% = 4

COLOR 4

LOCATE Stroka%, Posicia%: PRINT "=>"

DO

DO

presKey$ = INKEY$

LOOP WHILE presKey$ = ""

KodPresKey% = ASC (RIGHT$ (presKey$, 1))

IF KodPresKey% = 13 THEN

GOSUB PodPVernyOtvet

END IF

COLOR 0

LOCATE Stroka%, Posicia%: PRINT "=>"

COLOR 12

IF KodPresKey% = 80 AND Stroka% < 13 THEN

Stroka% = Stroka% + 1

LOCATE Stroka%, Posicia%: PRINT "=>"

END IF

IF KodPresKey% = 80 AND Stroka% = 13 THEN LOCATE Stroka%, Posicia%: PRINT ">>>"

IF KodPresKey% = 72 AND Stroka% = 10 THEN Stroka% = Stroka% + 1

IF KodPresKey% = 72 AND Stroka% <> 14 THEN

Stroka% = Stroka% - 1

LOCATE Stroka%, Posicia%: PRINT "=>"

END IF

LOOP WHILE KodPresKey% <> 13

RETURN

PodPVernyOtvet: 'п/п обработки ответа после того как нажата клавиша Ener в п/п PodPselectOtvet

IF Stroka% - 9 = BestOtv THEN 'если Stroka% - 12 равно PravRegOtv то увелич на ед к-во прав отв

'Stroka% - хранит значение последнего место нахождения ==>

'при переходе из п/п PodPselectOtvet в п/п PodPVernyOtvet

'значение PravRegOtv берется из п/п сответствующей случайно

'сгенерированному числу

'пример соответствия сгенерированного числа п/п смотреть в п/п PodPprov:

VernyBall = VernyBall + 1

ELSE

LognyBall = LognyBall + 1

END IF

TeckushOtv% = TeckushOtv% + 1 'значение переменной TeckushOtv% увелич. на единицу

IF TeckushOtv% > 10 THEN ' если к-во уже заданных вопр/ больше 10 то идем в п/п

GOSUB PodPEnd2

ELSE

GOSUB PodPprov

END IF

RETURN

PodPEnd2:

COLOR 4, 47: CLS

IF VernyBall = 10 THEN Ocenka$ = "5 (пять)"

IF VernyBall > 7 AND VernyBall <= 9 THEN Ocenka$ = "4 (четыре)"

IF VernyBall > 5 AND VernyBall <= 7 THEN Ocenka$ = "3 (три)"

IF VernyBall > 2 AND VernyBall <= 5 THEN Ocenka$ = "2 (два)"

IF VernyBall <= 2 THEN Ocenka$ = "1 (единица)"

LOCATE 3, INT ( (60 - (LEN (FioTest$) + LEN (NameTest$))) / 2): PRINT "Уважаемый "; FamUser$; " "; NameUser$

LOCATE, 10: PRINT "При выполнении теста вами было дано "; VernyBall; " правильных ответов"

LOCATE, 26: PRINT "и "; LognyBall; " неправильных ответов"

LOCATE, INT ( (55 - LEN (NameTest$)) / 2): PRINT NameUser$; " ваша оценка - "; Ocenka$

LINE (240, 100) - (320, 160), 1, B

LINE (245, 105) - (315, 155), 11, B

LINE (330, 90) - (375, 170), 1, B

LINE (250, 165) - (315, 165), 11

LINE (335, 115) - (370, 115), 11

LINE (335, 110) - (370, 110), 11

LINE (335, 105) - (370, 105), 11

LINE (230, 170) - (319, 170), 1

LINE (210, 190) - (299, 190), 1

LINE (299, 190) - (319, 170), 1

LINE (230, 170) - (210, 190), 1

LINE (220, 180) - (309, 180), 11

COLOR 4

LOCATE 20, 16: PRINT "Если вы хотите повторить тест нажмите ";: COLOR 1: PRINT "<Enter>"

COLOR 4

LOCATE, 16: PRINT "Если вы хотите выйти из теста нажмите ";: COLOR 1: PRINT "<Esc>"

ogid1:

'Цикл опроса клавиатуры

DO

SymbolIn$ = INKEY$ 'присвоение перемннной SymbolIn$ значения считанного опрератором INKEY$

LOOP WHILE SymbolIn$ = "" 'цикл работает пока в переменной SymbolIn$ нет значения

KodSymbola% = ASC (RIGHT$ (SymbolIn$, 1)) 'получения кода нажатой клавиши

IF KodSymbola% = 13 THEN ' если выбрано повторение тесте

FOR ll% = 1 TO 10: MAsivZadanVopr (ll%) = 0: NEXT ll% ' обнуляем массив

ll% = 0 ' обнуляем на всякий случай

TeckushOtv% = 1 'присваем счетчику кл-ва ответов единицу

VernyBall = 0 'обнуляем счетчик к-ва правильных ответа

LognyBall = 0 'обнуляем счетчик к-ва неправильных ответов

GOSUB PodPprov 'переход в (п/п) PodPprov

END IF

IF KodSymbola% = 27 THEN GOSUB PodPEnd1 'Если нажат Enter то (п/п) PodPEnd1

IF KodSymbola% <> 13 AND KodSymbola% <> 27 THEN GOTO ogid1 'если Enter или Esc не нажаты то повторяем опрос клавиатуры

END

RETURN

PodPEnd1: ' Первый вариант п/п окончания работы программы

COLOR 15, 0: CLS

ll% = 1

LINE (1, 1) - (630, 340), 12, B

DO

IF TIMER >.3 + nt THEN

ll% = ll% + 1

IF ll% > 15 THEN ll% = 1

COLOR ll%

LOCATE 22, 20: PRINT "Программа закончила свою работу"

LOCATE 24, 33: PRINT "нажмите <Esc>";

nt = TIMER

END IF

LOOP WHILE INKEY$ <> CHR$ (27): END' конец программы

RETURN

'Номер вопроса, Текст вопроса1, 1 вариант ответа, 2 вариант ответа, 3 вариант ответа, 4 вариант ответа, правильный ответ - Формат Блока DATA

DATA 1, "Что из перечисленного не относится к свойствам алгоритма?","", "Результативность.", "Массовость. ","Корректность. ","Понятность.", 3

DATA 2, "Свойство результативность заключается в том, что: "," ","Алгоритм должен приводить к определенному результату","Алгоритм разбивает на конечное число шагов","Шаги являются законченными","Решаются целые классы задач",1

DATA 3, "Какой текст является алгоритмом?", "", "Католог косметики.", "Конституция РФ.", "Инструкция по сборке мягкой мебели.", "Лекция по информатике.", 3

DATA 4, "Свойство массовость заключается в том, что:", " ","Алгоритм должен приводить к определенному результату","Алгоритм разбивает на конечное число шагов","Шаги являются законченными","Решаются целые классы задач",4

DATA 5, "Свойство дискретность заключается в том, что: "," ","Алгоритм должен приводить к определенному результату","Алгоритм разбивает на конечное число шагов","Шаги являются законченными","Решаются целые классы задач",2

DATA 6, "Информация измеряется в.", "", "битах", "ботах", "метрах", "символах", 1

DATA 7, "Свойство понятность заключается в том, что: "," ","Алгоритм должен приводить к определенному результату","Алгоритм разбивает на конечное число шагов","Шаги являются законченными","Решаются целые классы задач",3

DATA 8, "На кого в расчете должен строиться алгоритм?", "", "В расчете на ЭВМ","В расчете на умственные способности товарища","В расчете на корректного исполнителя","Нет правильного ответа",1

DATA 9, "Алгоритм - это.", "", "последовательность команд, приводящих к решению.", "последовательность действий для запуска программы.", "задача, имеющая несколько решений", "набор инструкций по решению задачи.", 1

DATA 10, "Алгоритм - это.", "", "Указание на выполнение действий", "Последовательность действий", "Процесс выполнения вычислений, приводящий к решению задачи", "Нет правильного ответа", 2

DATA 11, "Самое важное свойство алгоритма:", "", "Результативность", "Массовость", "Дискретность", "Понятность",2

DATA 12, "Сколько бит в килобайте?", "", "1024", "2048", "4096", "8192", 4

Размещено на Allbest.ru