автореферат и диссертация по педагогике 13.00.02 для написания научной статьи или работы на тему: Применение педагогических программных средств для контроля знаний и умений учащихся в преподавании математики

Содержание диссертации автор научной статьи: кандидата педагогических наук, Солобуто, Евгения Александровна, 1998 год

ВВЕДЕНИЕ.

ГЛАВА 1. Теоретические основы использования ППС контролирующего типа на уроках.

1.1. Проблема контроля в психолого-ледагогических и дидактических исследованиях.

1.2. Методические аспекты использования ЭВМ для контроля знаний и умений учащихся по математике.

1.3. Понятие ППС. Структура и основные типы контролирующих ППС.

1.4. Общие требования к контролирующим ППС и их проектированию.

1.5. Анализ современных ППС контролирующего типа.

ГЛАВА 2. Основные характеристики автоматизированной системы контроля и методика её использования.

2.1. Общее описание возможностей автоматизированной системы контроля.

2.2. Технология разработки контролирующих программ по математике в автоматизи рованной системе и некоторые рекомендации по отбору содержания для них.

ГЛАВА 3. Экспериментальная проверка эффективности использования автоматизированной системы контроля в преподавании математики.

3.1 Основные задачи экспериментальной работы.

J Методы проведения эксперимента.

3.2. Методика организации и проведения экспериментальной работы.

Введение диссертации по педагогике, на тему "Применение педагогических программных средств для контроля знаний и умений учащихся в преподавании математики"

Одним из приоритетных направлений научно-технического прогресса является дальнейшее совершенствование и развитие электронно-вычислительной техники. Достижения ведущих фирм мира по производству компьютерной техники привели к значительному снижению стоимости ПЭВМ, что сделало возможным их массовое распространение. Сейчас компьютеры применяются практически во всех сферах человеческой деятельности. В таких условиях невозможно представить дальнейшее развитие общества без совершенствования системы образования. На современном этапе широта применения электронно-вычислительной техники является одним из показателей развития экономики и технологии той или иной страны. Поэтому перед школой сейчас ставится новая задача, требующая пересмотра традиционных методик преподавания : подготовить подрастающее поколение к работе и жизни в условиях полной компьютеризации общества.

В области школьного образования проблема компьютеризации сводится, во-первых, к созданию соответствующей материальной базы компьютерного обучения, то есть таких компьютеров, которые окажутся надёжными, широко распространёнными и позволяющими непосвящённому в технические сложности пользователю проводить на них необходимые операции; во-вторых, к ознакомлению школьников с основами информатики и вычислительной техники; в-третьих, к разработке и использованию программного, учебно-методического и организационного обеспечения применения компьютера в учебном процессе.

Среди перечисленных аспектов компьютеризации школьного образования наиболее важным на современном этапе является разработка качественного программного обеспечения. Ведь, несмотря на то, что программы, созданные профессиональными программистами, являются технически грамотными, они часто не учитывают целый ряд аспектов: методических, дидактических, психолого-педагогических. Процесс разработки педагогических программных средств протекает стихийно, что связано, главным образом, с отсутствием системы научно, обоснованных методических рекомендаций по созданию и использованию программных средств учебного назначения. Поэтому создание программного обеспечения, соответствующего нуждам современной школы, требует рассмотрения вопросов о структуре компьютерных программ и требованиях, предъявляемых к ним.

Следует отметить, что довольно эффективно ЭВМ могут быть использованы для контроля знаний на уроках математики. Это вызвано следующими причинами:

- во время своей подготовки в вузе будущие учителя математики гораздо более глубоко изучают ЭВМ и вопросы работы с компьютерами, чем другие учителя-предметники;

- часто материал по математике требует сложного наглядно-демонстрационного сопровождения, что легко реализуемо с помощью ЭВМ;

-компьютер может взять на себя функцию вычисления, что позволяет включать в учебный материал задачи, требующие больших и трудоёмких вычислений;

- результатом решения большинства математических задач является число, что облегчает реализацию анализа ответа с помощью ЭВМ и не сужает, по сравнению с другими предметами, круга возможных для использования в компьютерном контроле задач.

Учитывая сказанное, можно сделать вывод, что использование ЭВМ на уроках математики требует пересмотра традиционной методики преподавания, разработки новых методик, направленных на использование современных технических средств.

Если вопросам использования компьютеров непосредственно для обучения различным дисциплинам школьного курса, а также создания обучающих программ посвящено достаточно много работ (Н.П.Бруснецов, П.Бруселовский, И.Голицина, И.Нарыкова, М.Лебедев, А.П.Ершов, В.М.Монахов, В.А.Урнов, Д.Ю.Климов, Д.Шакирова, В.А.Извозчиков,

A. Д.Ревунов, В.П.Недошивин, М.Я.Кулакова, А.А.Кокорин,

B.Н.Стародубцев, И.В.Роберт, Г.В.Кондратьева, С.А.Бешенков и др.), то проблеме разработки и применения ППС, предназначенных для контроля знаний и умений учащихся, уделяется значительно меньше внимания. Это исследования Н.Алипова, В.В.Буркина, А.А.Данилина, А.В.Зимарева,

М.Д.Карпова, А.А.Медведева, С.Ф.Артемьевой, Б.Яскулы, А.Ю.Колягина, И.В.Роберт и др. Хотя использование ЭВМ именно для контроля знаний имеет ряд ощутимых преимуществ. Это, во-первых, очень хорошая реализация обратной связи, способствующая осуществлению самоконтроля в обучении; во-вторых, осуществление индивидуального подхода в контроле, путём подбора соответствующих заданий; в-третьих, большая объективность компьютерного контроля по сравнению с традиционными способами контроля; в-четвёртых, значительная экономия времени преподавателя за счет передачи ЭВМ функции проверки результатов выполнения контрольных заданий. Исходя из вышесказанного, можно сделать вывод, что вопросы создания и использования контролирующих педагогических программных средств (ППС) требуют более подробного рассмотрения.

Проблема использования компьютеров в обучении рассматривалась разными исследователями в различных аспектах. Так, вопросы психолого-педагогического обоснования влияния компьютеров на учебный процесс рассматривались в исследованиях П.Я.Гальперина, Н.Ф.Талызиной, В.В.Давыдова, В.С.Гершунского, В.Г.Разумовского, В.В.Рубцова, Е.И.Машбица и др.

Решению проблемы использования компьютера в обучении посвящено довольно много докторских диссертаций последних лет (Апатова Н.В., Бешенков С.А., Денисова A.J1., Иванов Ю.С., Кручинина Г.А., Марусева И.В., Османьска-Фурманэк В.,Пугач В.И., Роберт И.В., Смирнов А.В.). Исследования в данных работах ведутся в двух направлениях : разработка теоретических и методических основ создания и использования средств новых информационных технологий обучения; разработка методических и дидактических основ подготовки будущего учителя к использованию технологий компьютерного обучения. Следует отметить, что в данных работах педагогические программные средства контролирующего типа рассматриваются лишь как одного из совокупности исследуемых средств новых информационных технологий, поэтому вопросам разработки и использования контролирующих ППС уделяется недостаточно много внимания.

С другой стороны, несмотря на всё возрастающий поток публикаций по проблемам автоматизации непосредственно контроля знаний и умений учащихся, не получили должного отражения ни в теории, ни в практике процесса информатизации образования вопросы создания и классификации контролирующих ППС, определения требований, предъявляемых к структурным составляющим контролирующих программ, а также выявления оптимальных условий их использования в целях совершенствования учебного процесса, повышения его эффективности и качества.

Из сказанного с полным основанием можно сделать вывод, что вопросы создания и внедрения контролирующих ППС, определения условий, соблюдение которых обеспечит их педагогическую эффективность, разработки методик их применения являются весьма значимыми на современном этапе компьютеризации школьного математического образования и требуют более глубокого рассмотрения. Всё это предопределило актуальность выбранной темы исследования : "Применение педагогических программных средств для контроля знаний и умений учащихся в преподавании математики".

Цель исследования заключается в исследовании проблем разработки и применения в учебном процессе новых более современных методов и средств контроля, базирующихся на достижениях педагогики, психологии и методики обучения математике и отражающих современный уровень научно-технического прогресса; определении основных условий их эффективного функционирования.

Объектом исследования являются современные технологии использования компьютеров в преподавании математики.

Предметом исследования является контроль учебной деятельности школьников при обучении математики с использованием ЭВМ.

Анализ теоретических исследований, передового педагогического опыта на предварительном этапе позволил выдвинуть следующую гипотезу : использование ППС контролирующего типа позволяет сделать процесс обучения математике более эффективным, если:

- при разработке ППС будут учтены основные психолого-педагогические и технические требования, предъявляемые к программным продуктам соответствующего типа;

- будет разработана дидактическая технология отбора учебного материала для контролирующих программ;

- ППС контролирующего типа будут обеспечивать реализацию обратной связи, позволяющей своевременно выявлять и ликвидировать пробелы в знаниях учащихся, а также осуществлять дифференциацию обучения;

- будет.разработана методика реализации контролирующих ППС на уроках математики;

- будет выявлен комплекс дидактических условий повышения надёжности контроля знаний с применением ЭВМ.

В соответствии с намеченной целью и выдвинутой гипотезой были поставлены следующие задачи исследования :

1. Изучить состояние проблемы организации контроля учебной деятельности школьников с применением ППС в методике и практике работы школы.

2. Разработать теоретические основы создания и использования контролирующих ППС, то есть определить основные требования, предъявляемые к ним, выявить факторы, определяющие структуру ППС контролирующего типа, разработать классификацию контролирующих ППС.

3. Провести анализ имеющихся контролирующих ППС, с учётом результатов которого создать автоматизированную систему контроля, ориентированную на использование в обучении математике. Разработать с помощью данной системы контролирующие программы по ряду разделов школьных курсов алгебры и геометрии.

4. Исследовать возможности применения данной автоматизированной контролирующей системы и разработать методические рекомендации по созданию контролирующих программ с её помощью.

5. Разработать методику использования контролирующих программ, применение которой позволит осуществлять индивидуализацию и дифференциацию в обучении математики, а также выявить условия, при которых процесс автоматизации контроля знаний и умений учащихся по математике будет наиболее эффективным.

6. Экспериментально проверить педагогическую эффективность разработанной методики использования в процессе обучения математике контролирующих программ, а также качество созданной автоматизированной системы контроля.

В процессе исследования были использованы следующие методы :

- изучение и анализ психолого-педагогической и методической литературы по проблеме исследования;

- изучение специальной литературы по структуре компьютерных программ и языкам программирования;

- наблюдение за ходом учебного процесса;

- анализ проверочных и контрольных работ учащихся;

- проведение диагностических работ, анкетирование, беседа, тестирование;

- анализ современных отечественных и зарубежных ППС контролирующего типа;

- анализ результатов исследования.

Исследование проводилось в три этапа.

На первом этапе (1992-1994 гг.) проводился теоретический анализ психолого-педагогической и методической литературы, изучение учебно-программной документации. Был проведён тщательный анализ имеющихся ППС контролирующего типа, в результате которого были выявлены основные требования, предъявляемые к ним. Рассматривался опыт работы учителей средних школ города Петрозаводска и преподавателей Московского педагогического университета по разработке и внедрению в учебный процесс контролирующих ППС. Осуществлялся поиск подходов к решению поставленной проблемы. Проводился констатирующий эксперимент.

Полученный материал позволил сформулировать гипотезу исследования, определить его основные цели и задачи.

На втором этапе (1994-1996 гг.) была разработана автоматизированная система контроля в соответствии с выявленными требованиями и методика её применения. С помощью данной системы были созданы контролирующие программы по ряду разделов курса математики средней школы. Был проведён обучающий эксперимент, в ходе которого оценивалась эффективность разработанных автоматизированной системы контроля и контролирующих программ, а также методики их применения.

На третьем этапе (1996-1997 гг.) была завершена экспериментальная работа, проведена обработка и анализ полученных результатов; внесены коррективы в разработанные программные средства; произведено уточнение теоретических положений; оформлена диссертация.

Научная новизна и теоретическая значимость исследования состоит в том, что:

- выявлены и полномасштабно, согласно современному уровню развития технических средств, рассмотрены особенности структурных составляющих компьютерных контролирующих программ, в соответствии с которыми осуществлена классификация ППС контролирующего типа по их функциям в учебном процессе;

- разработаны теоретические основы создания и использования средств автоматизации контроля знаний и умений учащихся, позволяющие сформировать целостную систему средств контроля на базе ЭВМ, применение которой обеспечит, во-первых, педагогически целесообразную реализацию возможностей контролирующих ППС, способствующую повышению качества и результативности образовательного процесса, во-вторых, соблюдение основных психолого-педагогических, дидактических и методических требований к средствам контроля на базе ЭВМ;

Практическая значимость исследования состоит в создании автоматизированной системы контроля и контролирующих программ по отдельным разделам курсов алгебры и геометрии средней школы, удовлетворяющих требованиям, предъявляемым к ППС на современном этапе; в разработке методических рекомендаций по проведению уроков с использованием созданных программных продуктов; в разработке методики использования ППС контролирующего типа, применение которой позволяет индивидуализировать и дифференцировать процесс контроля знаний и умений учащихся по математике.

Результаты исследования могут быть использованы и используются при обучении учащихся старших классов в школьном курсе алгебры и геометрии.

Полученные выводы могут быть учтены при разработке и использовании программного обеспечения, предназначенного для контроля знаний и умений учащихся.

На защиту выносятся:

1. Разработанные теоретические основы создания и использования контролирующих ППС, а именно : комплекс требований, предъявляемых к ППС контролирующего типа в соответствии с современным уровнем развития компьютерной техники и запросами средней школы; факторы, определяющие структуру ППС контролирующего типа; классификация контролирующих ППС.

2. Комплекс дидактических условий повышения надёжности контроля знаний с применением ЭВМ.

3. Автоматизированная система контроля и контролирующие программы по ряду разделов курса математики средней школы.

4. Разработанные методические рекомендации по созданию и использованию компьютерных программ, предназначенных для контроля знаний и умений учащихся.

5. Разработанная методика использования средств автоматизации контроля знаний и умений учащихся по математике.

Апробация и внедрение результатов исследования.

Разработанная автоматизированная система контроля создана в Московском педагогическом университете. Она предназначена для IBM PC и реализована на языке Турбо-Паскаль 6.0. Данная система была опробирована в 36-й средней школе города Петрозаводска, с помощью учителей-математиков данной школы были составлены контролирующие программы по выбранным разделам курса математики. Материалы исследования обсуждались на заседаниях научно-практического семинара Московского педагогического университета; результаты исследования докладывались на научной межрегиональной конференции "Проблемы технологии обучения в классах с малой наполняемостью сельских школ" (Арзамас, 1995), на 4-й научно-практической межвузовской региональной конференции "Процессуальный и содержательный аспекты образования" (Биробиджан, 1995).

По результатам исследования опубликовано четыре работы.

Структура диссертации. Диссертация состоит из введения, трёх глав, заключения, библиографического списка и приложения.

Заключение диссертации научная статья по теме "Теория и методика обучения и воспитания (по областям и уровням образования)"

ВЫВОДЫ ПО ГЛАВЕ 3.

Проведённая экспериментальная работа показала следующее.

1. Созданная нами автоматизированная система контроля способствует достижению целей, которые ставились при её разработке. Она позволяет формировать контролирующие программы по различным разделам школьного курса математики, которые могут применяться на различных этапах урока и различных уровнях обучения : при текущем, тематическом и итоговом контроле знаний, а также для закрепления нового материала.

2. Созданные нами в соавторстве с учителями средних школ г.Петрозаводска контролирующие программы соответствуют требованиям, предъявляемым к программному обеспечению, а разработанная методика их использования позволяет, во-первых, значительно повысить уровень успеваемости учащихся по математике по группе в целом, во-вторых, оказывает довольно большое влияние на развитие слабоуспевающих учащихся. Эффективность разработанной методики была установлена с помощью критериев Макнамары и хи-квадрат.

3. Методика проведения эксперимента способствовала достижению поставленных целей экспериментальной работы, в ходе которой были выявлены следующие особенности технологии автоматизированного контроля знаний в сравнении с традиционной технологией контроля: эффективность автоматизированного контроля в значительной мере опосредованна индивидуальными (личностными) особенностями учащихся, в меньшей мере - уровнем их знаний, умений и навыков; эффективность автоматизированного контроля выше для учащихся, принимающих предлагаемый жёсткий стиль общения и управления их деятельностью, реализованный в контролирующей программе, ниже - для непринимающих его, предпочитающих традиционный контроль знаний с его гибкой системой управления и помощью при ответах; систематичность в использовании автоматизированного контроля существенно повышает его эффективность.

ЗАКЛЮЧЕНИЕ

Одним из наиболее зримых и многообещающих воплощений процесса информатизации образования является сегодня процесс использования средств вычислительной техники. Основу компьютерных технологий составляют две компоненты - технические средства и их программное обеспечение, причём развитие аппаратных средств вычислительной техники постоянно опережает развитие программного обеспечения.

В связи с этим, в настоящее время возникла необходимость создания качественного программного обеспечения, способного удовлетворить растущие запросы современной школы. Не менее значимым является и вопрос разработки методик использования компьютерных программ различного назначения. Решению именно этих проблем и было посвящено данное исследование.

Выполненное исследование позволяет сделать следующие выводы.

1. Изучение состояния проблемы контроля в условиях общего образования в историческом аспекте показало, что исследуемой проблеме уделяется внимание на всех этапах развития средней школы. Основными направлениями исследования являются : систематизация контролирующих программных средств и их классификация, определение комплекса требований, предъявляемых к их проектированию и реализации в учебно-воспитательном процессе; разработка дидактических условий создания и использования контролирующих ППС; изучение организационно-управленческих действий преподавателей; разработка и создание дидактической системы контроля, отвечающей требованиям компьютерной технологии.

2. Используемые для автоматизации контроля знаний и умений учащихся программы должны отвечать ряду требований, предъявляемых к программному обеспечению такого типа, а именно, психолого-педагогическим, эстетическим, эргономическим и техническим требованиям. Наиболее значимым при этом является то, что содержание контролирующих ППС должно отбираться с учетом специфических дидактических принципов, обусловленных своеобразием технических средств обучения. К таким принципам относятся : принцип научности; принцип полноты, систематичности и последовательности; принцип непрерывности и модифицируемости; принцип интеграции и дифференциации многоаспектных знаний; принцип проблемности; принцип технологичности. Структура контролирующей программы обуславливается совокупностью особенностей её блоков, различными их модификациями. Классификация контролирующих программ по функциям в учебном процессе включает три их типа - программы, используемые для осуществления рубежного и итогового контроля; программы, используемые для осуществления текущего контроля; программы, предназначенные для работы в режимах "самоконтроль" и "тренажёр".

3. Проведённый анализ имеющихся ППС контролирующего типа показал, что наиболее перспективным направлением является разработка инструментальных систем, предназначенных для генерации компьютерных обучающих программ, представляющих собой оболочку, которую необходимо наполнить конкретным содержанием. Поэтому нами была разработана автоматизированная система контроля, при создании которой обоснована целесообразность её применения, то есть выявлены цели и задачи, решаемые при использовании контролирующих программ, а также их место в учебном процессе, а также проведён отбор технических средств и алгоритмического языка, отвечающих реальным возможностям создания автоматизированной системы контроля. С помощью автоматизированной системы разработаны контролирующие программы по отдельным разделам курса алгебры и геометрии средней школы.

4. Создание контролирующих программ с помощью автоматизированной системы ведется по определённому алгоритму и требует большой предварительной работы преподавателя по анализу и стуктурированию учебного материала, составлению системы контрольных вопросов, отбору критериев оценивания.

Для того, чтобы контролирующие программы, создаваемые с помощью автоматизированной системы были достаточно эффективными, необходимо подробно ознакомиться с методикой работы с системой и уделить большое вниманию отбору контрольных заданий.

При отборе контрольных заданий необходимо учитывать следующее:

- вопросы должны отвечать целям обучения;

- ответы на вопросы должны позволять однозначно определять уровень сформированности у обучаемых требуемых знаний, умений и навыков;

- число вопросов для итогового контроля по теме по возможности должно быть минимальным.

В качестве критериев оценки можно использовать коэффициент успешности (зависимость числа действий, выполненных обучаемым безошибочно с первого раза от общего числа действий); параметр усвоения (сравнение затрат времени на выполнение программы учителем и учащимся), коэффициент усвоения (отношение суммы баллов за правильно выполненные задания к общему числу возможных баллов) или коэффициент Q (сумма уровней знаний на четырёх этапах усвоения).

5. Процесс автоматизации контроля знаний и умений учащихся по математике будет наиболее эффективным, если будут выполняться следующие условия:

- правильный выбор программного обеспечения. При его отборе необходим учёт трёх факторов. Во-первых, структура контролирующей программы должна соответствовать дидактическим целям обучения, которые планируется достигнуть с её помощью. Во-вторых, контролирующие ППС должны отвечать ряду требований, предъявляемых к программному обеспечению такого типа. В-третьих, ППС контролирующего типа должны быть ориентированы на использование в обучении математике, а именно, иметь возможность предъявлять обучаемому подробные чертежи к контрольным заданиям, позволять моделировать процессы и явления, иметь возможность вывода на экран компьютера специальных математических символов. В-четвёртых, контролирующие ППС должны иметь возможность адаптации к знаниям учащихся, поскольку это позволит индивидуализировать и дифференцировать процесс контроля;

- учёт при использовании контролирующих ППС таких психолого-педагогических и методических проблем компьютеризации образования, как наличие достаточной компьютерной грамотности у преподавателей и учащихся; оптимальное использование возможностей ЭВМ для повышения мотивационного фактора обучения, обуславливающего активность учащихся; аккумуляция передового педагогического опыта компьютеризированного обучения и организация эффективного обмена этим опытом; учёт при разработке программ индивидуальных особенностей учащихся; эффективное использование компьютера для сбора и обработки статистических данных о ходе учебного процесса и использование этих данных для его коррекции;

- систематичность применения электронно-вычислительной техники вообще и для контроля знаний, в частности. Только при систематичном проведении автоматизированного контроля можно объективно оценить знания и умения учащихся;

- использование достаточно эффективных методик применения контролирующих программ при обучении математике, работа с компьютерной программой должна быть организована таким образом, чтобы она способствовала установлению стабильной обратной связи в цепи преподаватель-ученик, что позволяет немедленно узнавать о пробелах в знаниях учащегося и своевременно устранять эти пробелы.

6. Наблюдение за ходом педагогического эксперимента, оценка уровней успешности обучения учащихся контрольной и экспериментальной групп указывают на то, что Разработанная автоматизированная система и описанный алгоритм её использования позволяют за небольшой промежуток времени создавать довольно большое количество контролирующих программ по данной теме. Наличие этих программ позволяет сделать процесс контроля сколь угодно частым, поскольку преподаватель практически не тратит время на проверку контрольных работ - эту функцию "берёт" на себя контролирующая программа. Всё это способствует индивидуализации обучения, поскольку при таком способе организации контроля преподаватель имеет возможность постоянно узнавать о пробелах в знаниях каждого учащегося и своевременно их ликвидировать.

Также использование данной системы способствует дифференциации процесса обучения, так как создаваемые на её основе программы могут иметь несколько вариантов контрольных заданий разной степени сложности; индивидуализации процесса контроля за счёт возможности адаптации к знаниям учащихся; осуществлению самоконтроля в обучении за счёт предъявления правильного решения в случае неверного ответа обучаемого на контрольный вопрос.

Разработанная методика использования контролирующих программ в процессе обучения математике является эффективной, что подтверждено с помощью критериев Макнамары и хи-квадрат.

Необходимо отметить, что дальнейшее совершенствование системы контроля знаний и умений учащихся с использованием ЭВМ напрямую зависит от совершенствования педагогических программных средств, которое предполагает следующее.

1. Применение более совершенной техники.

Развитие компьютеров серии IBM расширяет возможности ППС (увеличивается быстродействие, расширяется оперативная и внешняя память, что особенно важно при работе с графическими изображениями и мультипликацией).

В последнее время осуществляется выпуск IBM PC с дисководами CD-ROM, что даёт возможность использовать в ППС видеотехнологию с полным диапазоном возможностей (full-motion video). Видеотехнологии, как показывают исследования фирмы IBM, можно считать мощным средством в учебном процессе, так как мозг человека обрабатывает видеоизображения наиболее эффективно.

2. Улучшение технологии создания сред обучения. Прежде всего -это совершенствование программных средств формирования сцен путём использования методов визуального программирования в рамках систему мультимедиа.

Следующее направление совершенствования технологии создания среды контроля и самоконтроля - это переход к трёхмерным анимационным и графическим сценам.

3. Совершенствование средств общения конечных пользователей с ППС, развитие систем речевого ввода-вывода.

Существующие аппаратные средства речевого ввода-вывода не позволяют достаточно эффективно использовать их в ППС, часто возникают ошибки при произношении слова, требуется многократное произношение слов. В связи с этим ведётся разработка новых программных комплексов ввода-вывода речевой инфомации на более совершенной элементной базе, что позволит снизить уровень ошибок при общении с ППС.

4. Дальнейшее совершенствование Базы знаний.

Существующие Базы знаний ППС, реализующих среду обучения, ориентированы на конкретные предметные области (физика, биология и т.д.). Между сценариями и графическими фреймами различных Баз знаний отсутствуют связи, не разработано программное обеспечение различных Баз данных. По мере разработки ППС для различных областей (химия, география и др.) такие связи будут необходимы.

В связи с этим планируется разработка средств, позволяющих осуществлять связь между различными Базами знаний.

5. Развитие адаптивных свойств ППС.

Необходимо совершенствование методов адаптации к учащемуся - разработка модели учащегося, чтобы ППС мог применять её при ведении диалога:

- создать усреднённую модель, соответствующую уровню учащегося;

- вести диалог на уровне учащегося;

- обнаруживать индивидуальные различия учащихся;

- стимулировать взаимный инициативный диалог.

Список литературы диссертации автор научной работы: кандидата педагогических наук, Солобуто, Евгения Александровна, Москва

1. Алгебра и начала анализа : Учеб. Пособие для 10-11 кл. сред. шк./М.И.Башмаков.-М.: Просвещение.-1993.-315 с.

2. Алгебра и начала анализа : Учеб. Пособие для 10-11 кл. сред. шк./Ш.А.Алимов, Ю.М.Колягин, Ю.В.Сидоров и др.-М.: Просвещение.-1993.-254 с.

3. Алгебра и начала анализа : Учеб. Пособие для 10-11 кл. сред. шк./А.Н.Колмогоров, А.М.Абрамов, Ю.П.Дудницын и др.; Под ред. А.Н.Колмогорова.-М.: Просвещение.-1992.-320 с.

4. Анализ учебных пособий по информатике// Информатика и образование.-1988.-№ З.-с. 10-16.

5. АОС "Радуга". Описание применения.-М.: ИПИАН, 1989.

6. Апатова Н.В. Влияние информационных технологий на содержание и методы обучения в средней школе : Дисс. докт. пед. наук : 13.00.02.-М.-1994.-354 с.

7. Артемьева С.Ф. Дидактические условия разработки и применения контролирующих программных средств в учебном процессе профессиональных училищ : Дисс. канд. пед. наук : 13.00.01.-Спб.-1995.- с.

8. Архангельский Н.П. О проверке и оценке знаний учащихся начальной и средней школы Ташкент: Учпедгиз Уз ССР, 1938 - 62 с.

9. Ю.Бабанский Ю.К. Выбор методов обучения в средней школе.-М.: Педагогика-1981 .-с. 132-142.

10. П.Бабанский Ю.К. Оптимизация процесса обучения /Аспект предупреждения неуспеваемости школьников. Пособие/.-Ростов-на-Дону .-1972.-347 с.

11. Балк Г.Д. Об одном приёме проверки знаний учащихся.// Математика в школе.-М.-№3.-с. 39-40.

12. Барыбина И.А., Гринченко С.Н., Колягин Ю.М. Методические проблемы компьютеризации школьного обучения.// Информатика и компьютерная грамотность: Сб. ст.: под ред. Б.Н.Наумова.-М.: Наука.-1985.-е. 138-156.

13. Белякин A.M. Дидактические условия оптимизации контроля и самоконтроля в учебной деятельности студентов с применение ЭВМ : Дисс. канд. пед. наук : 13.00.01.-Казань.-1984.- с.

14. Бешенков С.А. Развитие содержания обучения информатике в школе на основе понятий и методов формализации. Дисс. докт. пед. наук : 13.00.02.-М.-1994.-250 с.

15. Богоявленский Д.Н., Метельская Н.А. Психология усвоения знаний в школе.-М.: Учпедгиз.-1959.-с.6-8.

16. Бонгард М.М. Проблемы узнавания-М.: Наука.-1967.-320 с.

17. Бондаренко С.М. Почему детям трудно учиться ?-М.: Знание.-1975.-64 с. (Новое в жизни науки и техники. Серия "Педагогика и психология" .-№2).

18. Борк А. Компьютеры в обучении : чему учит история // Информатика и образование.-1990.-№ 5.—с.110—118.

19. Боэм Б., Браун Д., Каспар X. и др. Характеристики качества программного обучения.-М.: Мир.-1981.-206 с.

20. Булыгина Г.А., Житомирский В.Г., Силин А.В., Шмакова Н.А., Казаринова Р.А. Контроль знаний по математике. Учебное пособие-Свердловск.-^ 1.-93 с.

21. Вопросы совершенствования проверки и оценки знаний, умений учащихся : Сборник научных трудов /редкол.:. И.И.Кулибаба (отв.ред.).-М.-1975.-150 е.- В надзаг.: НИИ СиМО АПН СССР.

22. Гершунский Б.С. Компьютеризация в сфере образования. Проблемы и перспективы.-М.: Педагогика.-1987.-264 с.

23. Горбачевская М.В. Разработка примерных норм оценки знаний, умений и навыков учащихся ПТУ (метод, рекомендации).-ВНМЦ ПТО молодёжи.-1989.-107 с.

24. Горбунов П.И. За индивидуально-тематический учёт знаний учащихся.// Советская педагогика М - 1951.- № 7 - с. 21-26.

25. Грабарь М.И., Краснянская К.А. Применение математической статистики в педагогических исследованиях. Непараметрические методы.-М.: Педагогика.-1977.-134 с.

26. Дайри Н.Г. Обучающее значение опроса учащихся.// Советская педагогика М.- 1953.- № 3.- с. 27-39.

27. Дайри Н.Г. Проверка знаний и познавательная деятельность класса (Исследование в обучении истории).-М.: АПН РСФСР- 1960. 159 с.

28. Дакоцьян У.В. Проверка знаний учащихся по математике.-М.: АПН РСФСР.-1963.-88 с.

29. Данилов М.А. Процесс обучения в советской школе- М.: Учпедгиз.- I960.- 299 с.

30. Деметер К. Роль оценки учителя и самоконтроля школьников в формировании учебно-познавательных мотивов: Автореф. Дис. канд. психол. наук : 19.00.07.-М.-1981.-16 с.

31. Денисова A.J1. Теория и методика профессиональной подготовки студентов на основе информационных технологий : Дисс. докт. пед. наук : 13.00.01.-М.-1994.-445 с.

32. Дёмушкин А.С., Кириллов А.И., Сливина Н.А., Чубров Е.В., Кривошеев А.О., Фомин С.С. Компьютерные обучающие программы.// Информатика и образование.-1995.-№ З.-с. 15-22.

33. Дистверг А. Руководство для немецких учителей/ перевод с немецкого А.Ф.Гретмана-М.: К.М.Тихомиров, 1913.-321 с.

34. Есипов Б.П. О роли и характере учёта успеваемости в советской школе.// Советская педагогика М - 1955.- № 9- с. 85-94.

35. Есипов Б.П. Основы дидактики (под ред. д-ра пед. наук, проф. Есипова Б.И.- М.: Просвещение.- 1967.- 472 с.

36. Ефремов А., Сенин Ю. Универсальная программа для обучения и контроля знаний по физике. // Информатика и образование.-1991-N 2.-е. 43-45.

37. Жомнир Н.М. Тематический контроль как средство руководства учебным процессом усвоения знаний учащимися по математике : Дисс. канд. пед. наук : 13.00.02.-Киев.-1978.-184 с.

38. Жуков В.Н. Управление учебно-воспитательным процессом с помощью средств вычислительной техники : Дисс. канд. пед. наук: 13.00.01 .-М.-1989.-163 с.

39. Зависимость обучения от типа ориентировочной деятельности : Сборник статей/Под ред. П.Я.Гальперина, Н.Ф.Талызиной/.-М.: Из-во МГУ.-1968.-238 с.

40. Иванов Ю.С. Основы параметрического моделирования при решении дидактических задач в системах автоматизированного обучения : Дисс. докт. пед. наук : 13.00.01.-Казань.-1995.-374 с.

41. Изучение возможностей школьников в усвоении математики //Пути повышения контроля и оценки математических знаний и развития школьников : Сборник научных статей/ Ю.М.Колягин.-М-1977.-е. 36-42.- В надзаг.: НИИ школ АНП СССР.

42. Инге Унт. Индивидуализация и дифференциация обучения.-М.: Педагогика.-1990.-192 с.

43. Использование программных педагогических средств в процессе обучения математике и информатике.-М.: МОПИ им. Н.К.Крупской.-1991 -96 с.

44. Карнаухов В.М. Система контроля знаний. // Информатика и образование.- 1995.-N6.-c. 118-124.• 53.Карпов В .Я., Корягин Д. А. Пакеты прикладных программ.-М.-1983.-64 с.

45. Карпов В.Я., Корягин Д.А. Разработка и использование пакетов прикладных программ.// Информатика и научно-технический прогресс-М.: Наука.-1987.-190 с.-Серия:

46. Кибернентика неограниченные возможности и возможные ограничения.-с. 104-120.

47. Карпов М.Д. Универсальная тест-программа для проверки знаний в школе. // Информатика и образование.- 1993.-N 4.-е. 43-47.

48. Ким В., Синицин Е., Копеев А. и др. "Барьер" эффективное средство обучения. // Информатика и образование - 1987.-N 3.-е. 45-47.

49. Козлова С.И. Классификационный алгоритм перебора признаков с направленным обучением .//Сборник алгоритмов и программ.-Рига.-1975.-Вып.5.-с. 126-137.

50. Коменский Я. А. Великая дидактика. Избранные педагогические сочинения.-Киев: Радянска школа, 1939 317 с.-т.1.

51. Коменский Я.А. Законы благоустроенной школы: соч. Амоса Коменского/ Пер. С лат., с предисл. и примеч. П.Ф.Каптерова СПб.: тип. И.Н.Скороходова, 1883 - 45 с.

52. Кондратьева Г.В. Методика обучения начальным теоретико-информационным понятиям и алгоритмам на факультативных занятиях по математике. Дисс. канд. пед. наук : 13.00.02.-М.-1996.-234 с.

53. Кочетов С.И., Романин В.А. Технические средства обучения в профессиональной школе.-М.: Высшая школа.-1988.-231 с.

54. Кравченко М.Б. Сочетание поурочной и тематической проверки и оценки знаний учащихся : Сборник статей /отв. Ред. Кравченко М.Б./.-Тамбов.-1979.-103 с.

55. Краудер Н. Автоматическое обучение с внутренним (разветвлённым) прграммированием./ Программированное обучение. Сборник переводных статей.-М.: Воениздат.-1966.-е. 30-37.

56. Крутецкий В.А. Психология обучения и воспитания школьников.-М.: Просвещение.-1972.-255 с.

57. Кручинина Г.А. Дидактические основы формирования готовности будущего учителя к использованию новых информационных технологий обучения : Дисс. докт. пед. наук : 13.00.01.-Н. Новгогрод-1995-501 с.

58. Кудрявцев Т.В. Психология технического мышления : (процесс и способы решения технических задач).-М.: Педагогика.-1975.-304 с.

59. Леонтьев А.Н. Проблемы развития психики.-3-е издание.-М.: Из-во МГУ.-1972.-575 с.

60. Лернер И.Я. Качества знаний учащихся. Какими они должны быть?-М.: Знание -1978.-45 с. (Новое в жизни науки и техники. Серия "Педагогика и психология".-№1.-1978).

61. Липанова И.А. Об общих требованиях, предъявляемых к педагогическим программным средствам.// Научно-методическое и программное обеспечение использования вычислительной техники в профтехучилищах : Сб. научн. тр. /ВНИИ ПТО.-Л.-1990.-С.37.

62. Маланюк М.П. Пути совершенствования контроля знаний по математике учащихся средней школы: Дисс. канд. пед. наук : 13.00.02-Киев.-1967.-280 с.

63. Марусева И.В. Методические основы подготовки будущего учителя информатики к использованию технологий компьютерного обучения: Дисс. докт. пед. наук : 13.00.02.-СП6.-1993.-434 с.

64. Машбиц Е.И. Психолого-педагогические проблемы компьютеризации обучения.-М.: Педагогика.-1988.-192 с.

65. Методические рекомендации по использованию вычислительной техники при изучении математики и основ информатики в средней школе и СПТУ.-Л.: ЛГПИ.-1988.-61 с.

66. Мечинская Н.А. Психологические проблемы неуспеваемости школьников.-М.: Педагогика.-1971.-270 с.

67. Мирошникова М.М. и др. Контроль знаний по математике с применением ЭВМ.-М.-1990.-192 с.

68. Мирская А., Сергеева Т. Обучающие программы оценивает практика. // Информатика и образование.- 1987.-N 6.-е. 45-49 .

69. Молибог А.Г., Тарнопольский А.И. Технические средства обучения и их применение.-Минск.-1985- с.

70. Монахов В.М. Вопросы воспитания в процессе обучения естественно-математическим предметам : Материалы V всесоюз. пед. чтений (Ред. В.М.Монахов).-М.-1979.-121 е.- В надзаг.: НИИ СиМО АПН СССР.

71. Наймин В., Рудаков Э., Тимошенко А., Щнглов Л. Технология разработки учебных программных средств. // Информатика и образование 1987.-N 6.-С.63-65.

72. Наше просвещение, орган Демянского отдела народного образования (Новгородской губернии).-1919.-№7.-с.17.

73. Оценка знаний школьников: (Метод, рекомендации)/ Киев.: гор. отд-е Пед. об-ва УССР.-1988.-39 с.

74. Павлович Л., Павлович О. Применение ЭВМ при контроле усвоения знаний. // Информатика и образование.-1987.-№ 5.-е. 13- .

75. Папахчан И.А. Принципы проверки и оценки успеваемости учащихся и их реализация обучения: Дисс. канд. пед. наук: 13.00.01.-Ёреван.-1974.-164 с.

76. Пейсаков М.М., Ахмирова С.У. Рекомендации по контролю знаний и интеллектуальных умений с помощью ЭВМ-Казань: КГУ-1986.-25 с.

77. Перовский Е.И. Проверка знаний учащихся в средней школе-М.: Из-во Академ. Пед. Наук РСФСР.-1960.-511 с.

78. Поддубный Г.В., Леоненко Л. Л., Шаповаленко В.А. Автоматизированная система проверки знаний "КОНТРОЛЬ".// ЭВМ вучебном процессе: Межвуз. сб. научн. тр./ Новосибирск: НГУ.-1990.-е. 21-28.

79. Поливанова К.Н. Психологические условия формирования действия контроля у младших школьников : Автореф. дис. канд. пед. наук : 18.00.07.-М.-1983.-23 с.

80. Полонский В.М. Оценка знаний школьников.-М.: Знание.-1981.-96 с.

81. Психология компьютеризации./ Подготовлено д-ром пед. наук О.К.Тихомировым.-Киев: Об-во "Знание".-1988.-15 с.

82. ЮО.Пугач В.И. Технологии и методическое обеспечение компьютерной подготовки будущих учителей информатики : Дисс. докт. пед. наук : 13.00.02.-М.-1994.-209 с.

83. Разработка программных средств вычислительной техники в средних профтехучилищах : Методические рекомендации.-Л.-1987.-с.

84. Ю2.Ретинская И.В., Шугрина М.В. Отечественные системы для создания компьютерных учебных курсов. // Мир ПК 1993.-N 7.-е. 5560.

85. Роберт И.В. Теоретические основы создания и использования средств информатизации образования . Дисс. докт. пед. наук : 13.00.02.-М.-1994.-339 с.

86. Ю4.Рубенштейн С.Л. О мышлении и путях его исследования М.: Из-во АН СССР.- 1958.- 147 с.

87. Руновский С.И. некоторые вопросы учёта успеваемости.// Советская педагогика.- М 1953.- № 3 - с. 16-27.

88. Об.Сагдетдинова М.Г. Тематическая проверка знаний учащихся в старших классах общеобразовательной школы и её место в общей системе проверки: Дисс. канд. пед. наук : 13.00.02.-Л.-1966.-322 с.

89. Ю7.Салмина Н.Г. Виды и функции материализации в обучении.-М.: Изд-во МГУ.-1981 .-134 с.

90. Сборник декретов и постановлений Рабочего и крестьянского правительства по народному образованию. Вып. 1.-М.: Наркомпрос РСФСР.-1918 .-с.96.

91. Скаткин М.Н. Совершенствование процесса обучения. Проблемы и суждения.- М.: Педагогика 1971.- 205 с.

92. Ю.Смирнов А.В. Теория и методика применения средств новых информационных технологий в обучении физике : Дисс. докт. пед. наук : 13.00.02.-М.-1996.-439 с.

93. Совершенствование проверки знаний и умений учащихся : Сборник научных трудов /Под ред. Кривошаповой Р.Ф.-М.-1979.-96 е.- В надзаг.: НИИ СиМО АПН СССР.

94. Сухорский С.Ф. Пути рационализации проверки и учёта успеваемости учащихся в средней школе: Дисс. канд. пед. наук: 13.00.01.-Киев.-1965.-282 с.

95. Талызина Н.Ф. Педагогика и психология : Круглый стол// Вопросы психологии.-1981.-с. 39-40.

96. Талызина Н.Ф. Теоретические основы программированного обучения : материалы лекций, прочитанных на факультете программированного обучения при Политехническом музее в 1967 г.-М.: Знание.-1968.-102 с.

97. Талызина Н.Ф. Теоретические основы контроля в учебном процессе.-М.: 3нание.-1983.-с.3-37.

98. Пб.Талызина Н.Ф. Управление процессом усвоения знаний : (Психологические основы). 2-е изд. доп. и испр.-М.: Из-во МГУ-1984.-344 с.

99. Технические средства контроля в учебном процессе средних профессионально технических училищ-Ч.1 .-М.-1986.-36 с.

100. Технические средства контроля в учебном процессе средних профессионально технических училищ.-Ч.2.-М.-1987.-55 с.

101. Тибор Вамош. Приоритет человеческого фактора.// Перспективы. Вопросы образования.-1899.-№ 3.-с.39^45.

102. Тругулов В.Ш. Принцип наглядности и материализации деятельности в процессе обучения : Автореф. Дис. канд. пед. наук : 13.00.01.-М.-1979.-18с.

103. Ушинский К.Д. Детский мир: Сборник сочинений, т.4.~ М.:АПН РСФСР, 1948.-679 с.

104. Ушинский К.Д. Родное слово: Сборник сочинений, т.6 М.: АПН РСФСР, 1949.- 447 с.

105. Формирование знаний и умений на основе теории поэтапного усвоения умственных действий: Сборник статей /Под ред. П.Я.Гальперина и Н.Ф. Талызиной/.-М.: Из-во МГУ.-1968.-135 с.

106. Шепетов А.С., Ганьшина Н.А. организация обратной связи на уроках математики в четвёртом классе.-Тула : приок. Кн. Из-во.-1973 -102 с.

107. Шманов Г.А. Формирование приёмов мышления по развитию ранее усвоенных знаний : Автореф. Дис. канд. пед. наук : 13.00.01.-М-1985.-18 с.

108. Эль-Ходари, Салиман. Зависимость эффективности усвоения знаний от характера контроля. Автореф. Дис. канд. психол. наук : 19.00.07.-М.: Из-во МГУ.-1973.-28 с.

109. Яскула Б. Совершенствование методов и средств контроля процесса трудового обучения школьников на базе использования вычислительной техники : Дисс. канд. пед. наук: 13.00.01.-М.-1991-173 с.

110. OutTextxy(90,305,'ВЫХОД НЕ ВОЗМОЖЕН, ТАК КАК ДАННОЕ ЗАДАНИЕ ' OutTextxy(425,305,'НЕ СФОРМИРОВАНО.*); SetColor(8);

111. Outtextxy(170,318,'Для продожения нажмите любую клавишу.'); С:=READKEY; $H-}Chdir (ndir) ; t q г : = 1; exit; end ;if (lotv=0) and (pocr-1) then beq in barf о,301,650,329) ;

112. OutTextxy(40,302,'РЕДАКТИРОВАНИЕ ДАННОГО ЗАДАНИЯ НЕ ЗАВЕРШЕНО OutTextxу(407,302,'НЕ ВВЕДЕН ЭТАЛОН ОТВЕТА. ); SetColor(8):

113. OutTeKtMy(210,312,'Выберите пункт меню "ОТВЕТ"');

114. Outtex t;;y ( 170 , 320 , ' Для продожения нажмите любую клавишу • ' ) ; С!«READKEY; tpr:=1; е к i t; end :if lhe.lp=0 then aoto 7; IF LHELPOO then beq in rewrite(f2): tpr:=l; с:=chr(10); Write(f2,с); While tprOlhelp do begin

115. Write(f2,helptpr.); tpr:=tpr+l; end ; Write(f2,с); tpr:-1; с:=chr( S) ; Write(f2,с); While tpr<=lvotv do begin

116. Write(f2,с); While tpr<=lotv2 do beq in

117. Wri te(f2,otv2Ctpr.); tpr: = tpr+1: end ;1. Wri te(f2,с); end :if 1 оtv3<>0 then begin tpr:=I; c:=chr(12); Write(f2,c); While tpr<=lotv3 do begin

118. Wr i te(f2,оtv3tpr1); tpr:=tpr+1; end ;1. Write ( f'2,c) ; end;if lotvAOO then begin t. d r : = 1; с:=chr(13); Write(f2,с); While tpr<=lotv4 do beoin

119. OutTextxy(30.40,'МЫ ЗАКОНЧИЛИ РЕДАКТИРОВАНИЕ ЗАДАНИЙ');

120. OutТех txy(140,SO, ' КОНТРОЛЬНОЙ РАБОТЫ' );1. SetColor(14);1. OutTextxy(270,120,паг);bar(20,160,600,340);

121. Se tТеx tS ty 1 e ( 0 , 0 , 0 ) ;1. SetColor(8);

122. Ou tTex txy (180 , 320 , ' Для продолжения нажмите любую клавишу'): с:—readkey; pocvih:=1; tpr:=0: exit; end ;

123. OutTextxy(40,40,'МЫ ЗАКОНЧИЛИ ФОРМИРОВАНИЕ ЗАДАНИЙ');

124. OutTextxy(140,80, ' КОНТРОЛЬНОЙ РАБОТЫ');1. SetColor(14) ;1. OutTextxy(270,120,naz);bar(20,160,600,340);1. SetColor(15);1. SetTextStyle(0,0, 0) ;

125. OutTextxy(130,185,'ДАЛЕЕ ВАМ ПРЕДЛАГАЕТСЯ ВВЕСТИ КРИТЕРИИ ОЦЕНКИ');

126. OutTextxy(155,200,'ПО КАЖДОМУ ЗАДАНИЮ И ПО РАБОТЕ В ЦЕЛОМ'); SetColor(14);

127. OutTextxy(50,240,'Вам необходимо ввести копличество баллов,') OutTextxy(385,240 ,'которые получит учащийся,' ) ; OutTextxy(130„255,'правильно ответив на вопрос каждогозадания , ' ) ; i f pocpov=l then beqin

128. OutTextxy(60,270,'как в случае использования одной попытки OutTextxy(390,270ответа, так и в случае'); OutTextxy(200,285повторной попытки ответа'); end ; SetColor(8);

129. OutTextxy(180,320Для продолжения нажмите любую клавишу'); с:=readkey; cri to;

130. Se t te х tS ty1e(0,0 , 3 ) ; SetColor(13); SetFi1IStyle(О,0); BAR(0,0,650,350);

131. Outtextxy(160,70,'ФОРМИРОВАНИЕ ); Outtextxy(230,130,'РАБОТЫ'); Outtextxy(255,190,NAZ); Outtextxy(190,250,'ЗАВЕРШЕНО'); Se tTe xtS ty1e(0,0,1) ; SetColor(9);

132. СheскEOF:=true; while true do begin4:read(f2,stracГi.);if (ord(stroc1.)=15) or (ord(strocCi3)=18) or (ord(streeti3)=8) or (ord(strocEi3}=10) or (ord(stroci.)=6) then goto 5; i:=i+l; ooto 4; end ; 5:Seek(f2,О); Truncate*f2); if i>l then begin к : = 1;

133. While k< = i do begin wri te(f2,stroc Г к 3); к:=k+l; end ; end ; tpr:=l;1. While tpr<10 do beg inif ord(m3tpr3)<>0 then goto 3: tpr:=tpr+1; end ; 3:tprpoc:=tpr;if (i<2) and (tprpoc=10) and (pocr=l) then beg in bar- ( 0, 301 , 650.329 ) ; SetColor(12);

134. OutTextxy(90,305,'ВЫХОД HE ВОЗМОЖЕН, ТАК КАК ДАННОЕ ЗАДАНИЕ '); OutTextxy(425.305.'НЕ СФОРМИРОВАНО.'); SetCo1or(8) ;

135. Outtextху(170,318,'Для продожемия нажмите любую клавишу.'); С:=READKEY; с1ose(f2); ■C$I + >Chdir(ndir) ; tpr:=1; exit; end ;if (1 оtv—0) and (pocr=l) then beg in bar(О,301,650,329); SetColor(12);

136. OutTextxy(40,302,'РЕДАКТИРОВАНИЕ ДАННОГО ЗАДАНИЯ HE ЗАВЕРШЕНО-'); OutTextxy(407,302,'HE ВВЕДЕН ЭТАЛОН ОТВЕТА.'); SetColor(8);

137. Wri te(f2,he 1 рГ tpr 3); tpr:=tpr+l; end ; Write(f2,с): if lvotvOO then beg in tpr:=i ; c:=chr(8); Write(f2,с); While tpr<=lvotv do begin

138. Wi-ite( f 2 , otv2 С tpr. ) ; tpr:=tpr+l; end ;1. Wri te(f2,с);end ;if 1 о t v3<>0 then begin. = i ■ ~ t-' ■ -п. 4с:=chr(12); Wri te(f2,с); While tpr<=lotv3 do beg in

139. Write(f2,otv3C tpr.); tor:=tpr+1; end ;1. Write(f2,с); end;i f 1 оtv4< >О thenbeg intor:=1;c:=chr(13);1. Wri te(f2,с);1. While tpr<=lotv4 dobeain

140. OutTextxy(20,40,'МЫ ЗАКОНЧИЛИ РЕДАКТИРОВАНИЕ ЗАДАНИЙ');

141. OutTextxy(140,SO,' КОНТРОЛЬНОЙ РАБОТЫ');1. SetColor(14);1. OutTextxy(270,120,naz);bar(20,160,600,340);1. Se tTe x tS ty1e(О,0,0);1. SetColor(8);

142. OutTextxy(180,320,'Для продолжения нажмите любую клавишу'); с:=readkey; pocvi h:=1; tpr:=0; exit; end ;

143. OutTextxy(40,40,'МЫ ЗАКОНЧИЛИ ФОРМИРОВАНИЕ ЗАДАНИЙ');

144. OutTextxy(140,80,' КОНТРОЛЬНОЙ РАБОТЫ');1. SetColor(14);1. OutTextxy(270,120, naz);ba r(20,160,600,340);1. SetColor(15);1. Se tTe x tS tу 1e(0,0,0);

145. OutTextxy(130,185,'ДАЛЕЕ ВАМ ПРЕДЛАГАЕТСЯ ВВЕСТИ КРИТЕРИИ ОЦЕНКИ');

146. OutTextxy(155,200,'ПО КАЖДОМУ ЗАДАНИЮ И ПО РАБОТЕ В ЦЕЛОМ'); SetColor(14);

147. OutTextxy(50,240,'Вам необходимо ввести колличество баллов,') OutTextxy(385,240, 'которые получит учащийся,'); OutTextxy(130,255,'правильно ответив на вопрос каждогозадания , ' ) ; if pocpov=l then begin

148. OutTextxy(60,270,'как в случае использования одной попытки OutTextxy(390,270,'ответа, так и в случае'); OutTextxy(200,285,'повторной попытки ответа'); end ; SetColor(8);

149. OutTextxy(180,320,'Для продолжения нажмите любую клавишу'); с:=readkey; cri to;

150. Se t te x tS tу 1 e (0 , 0 , 3 ) ; SetColor(13); SetFillStyle(O.O); BAR(0,0,650,350);

151. Outtextxy(160,70,'ФОРМИРОВАНИЕ'); Outtex txy(230,130,'РАБОТЫ' ) ; Ou t te x t x у ( 25 5 ,190 , N A Z ) ; Outtextxy(190,250,'ЗАВЕРШЕНО'); Se tTextS ty1e(0,0,1); SetCo1or(9);

152. Outtextxy(520,337,'зал.'): Outtextxy(550,337,istr); end else begin

153. SetFi 1 ISty led, 10) ; bar(x,334,x+65,346);if к=85 then beqin

154. Outtextxy(22,337,'ТЕКСТ'); Outtextxy(92,337,'ЧЕРТЕЖ'); end ;if x = 160 then beqin

155. Outtex txy(161,337, 'ПРОСМОТР' Outtextxy(92,337,'ЧЕРТЕЖ'); end ;if x=235 then beqin

156. Outtex txy(161,337,'ПРОСМОТР' Outtextxy(247,337,'ОТВЕТ'); end ;if x=310 then begin

157. Outtextxy(247,337,'ОТВЕТ'); Outtextxy(314,337,'ПЕРЕХОД') end;if x=385 then begin

158. Outtextxy(397,337,'ВЫХОД'); Outtextxy(314,337,'ПЕРЕХОД') end; end;if ord(c)=75 then beginif x = 10 then goto 91: SetFi1IStyle(1,7); bar(x,334,x+65,346);4 . •-75;

159. SetFi 11 Sty led, 10) : bar(x,334,x+65,346); if x = 10 then begin

160. Ou t te x t x у(22,337,'ТЕ KCT' ); Outtextxy(92,337,'ЧЕРТЕЖ'); end ;if x=85 then begin

161. Outtextxy(161,337,'ПРОСМОТР' Outtextxy (92,337, "-'ЕРТЕЖ ' ) ; end ;if и=160 then beg in

162. Outtex txy(161,337, 'ПРОСМОТР' Outtextxy(247,337,'ОТВЕТ'); end;if x=235 then begin

163. Outtextxy(247,337,'ОТВЕТ'); Outtextxy(314,337,'ПЕРЕХОД') end;if x=310 then beg in

164. Outtextxy(397,337,'ВЫХОД'); Outtextxy(314,337,'ПЕРЕХОД') end : end ; 91:с:=readkey; q о to 92;end ;с:-read key:end : if x=3S5 then begin v i h;if tpr=l then ooto 90; pocvi h:= 1; exit; end ; if x = 10 then beqin votv:=0;

165. SetFi1IStyle (0,0); BAR(11,3,629,299) ; CHDIR(DIRT)assign(f2,NAZ+nstr+istr+'. txt') reset(f2);{$1+} M:=I0Result; IF n=2 then beq in L:=l; dlCO.:=0; pnf:=X; tmax:=0; end ; IF N<>2 THEN beqin Close(f2); formir; L:=irab; pnf:-0; end ;

166. OutTextxy(260,305,'Сохранить текст ?'):

167. OutTextxy(ISO,317,' подтверждение, - отмена');1. SetColor(12);

168. CHDIR(DIRT); if pnfOl then begin

169. Assign(f2,naz+nstr+istr+'.txt'); erase(f2); end ;

170. Assign(f2,na:+nstr+istr+'.txt'); Rewrite(f2); k:=i;strocl.;=chr(6); While kOl do beginwrite(f2,strock.); k:=k+l; end; close(f2); с hdi r(nd i r);{$! + > SetColor(8); Se tF illS ty1e(0, О); bar(0,301,650,329): SetColor(12);

171. OutTextxy(260,305, 'Текст сохранен. ' ) ; SetColor(8);

172. OutTextxy(180,317,'Для продолжения нажмите любую клавишу'); с:=readkey; goto 90; end ; if x=160 then beg in

173. SetFil ISty led, 7) ; bar(160,334,235,346); SetCo1or(8);

174. Outtextxy(161,337,'ПРОСМОТР');1. SetFilIStyle(0,0);bar(0,301,650,329);1. BAR(11,3,629,299);1. SetColor(12);

175. OutTextxy(60,302,'Вам предлагается посмотреть задание е таком, OutTextxy(410,302,'виде каком оно будет'); OutTextxy(240,310,'предъявлено учащимся.'); SetColor(8);

176. Outtextxy(170,320,'Для продожения нажмите любую клавишу.'); с:=readkey; ppl:=0; 943:SetFi1ISty1е(0,0);bar(0,301,650,329);1. SetColor(8);0 и. t Т е;; t х у ( 30,3 О 2, ' С по м о ни, ь ю к у рсорных стрелок веберите реж и м ' )

177. Uu tTex txy ( 350, 302 , ' оа£>оты и нажмите клавишу ENTER.'); SEtFi1IStyle(1,10); bar(160,312,320,326) ;

178. SetFi USty led, 10) ; bar(350,312,465,326);

179. Outtextxy(170,316,'ПОСМОТРЕТЬ ЗАДАНИЕ'); Outtextxy(360,316,'ВВЕСТИ ОТВЕТ'); goto 941; end ;if ord(c)=75 then beginif x = 170 then goto 941; SetFi1IStyle(O^O); bar(350,312,465,326); x: = 170;

180. SetFi1IStyle(l,10): bar(160,312,320,326);

181. OutTextxy(30,40,'МЫ ЗАКОНЧИЛИ РЕДАКТИРОВАНИЕ ЗАДАНИЙ');

182. OutTextxy(140,80,' КОНТРОЛЬНОЙ РАБОТЫ'):1. Se tCo1or(14);

183. Ou tTex t xу(270,120,n a z);bar(20,160,600,340);1. SetColor(15);

184. Se tTe x tS t у 1e(0,О,0);

185. OutTextxy (40,40, ' Mb! ЗАКОНЧИЛИ ФОРМИРОВАНИЕ ЗАДАНИЙ');

186. OutTextxy(140,80,' КОНТРОЛЬНОЙ РАБОТЫ);1. SetColor(14);

187. Ou tTe x t x у(270,120,n a z);ba r(20,160,600,340);1. SetColor(15);1. SetTextSty1e(0,О,0);

188. OutTextxy(130,185,'ДАЛЕЕ ВАМ ПРЕДЛАГАЕТСЯ ВВЕСТИ КРИТЕРИИ ОЦЕНКИ');

189. OutTextxy(155,200,'ПО КАЖДОМУ ЗАДАНИЮ И ПО РАБОТЕ 8 ЦЕЛОМ'); SetColor(14);

190. OutTextxy(50,240,'Вам необходимо ввести колличество баллов,') OutTextxy(385,240,'которые получит учащийся, ' ) ; OutTextxy(130,255,'правильно ответив на вопрос каждогозадания,'); if pocpov=l then beg in

191. OutTextxy(60,270,'как в случае использования одной попытки OutTextxy(390,270,'ответа, так и в случае'); OutTextxy(200,285,'повторной попытки ответа ); end ; SetColor(8) ;

192. OutTextxy(180,320,'Для продолжения нажмите любую клавишу* с:=readkey; сгi to;

193. SettertSty1e(0,0,3); SetColor(13): SetFi1lStyle(0,0); BAR(О,0,650,350);

194. Outtex txy(160,70, 'ФОРМИРОВАНИЕ' ) ;

195. Outtex txy(230,130,'РАБОТЫ' ):

196. Ou 11 e x t x у(25 5,190,NA 2):

197. Ou t te x t x у(190,2 50,'ЗА ВЕРШЕНО' );1. SetTextS ty1e(0,0,1) ;1. SetColor(9);

198. SetFi 1 . Sty 1 e? (0 , 0 ) ;

199. СОЗДАТЬ'): , 'ПОМЕСТИТЬ' ,'УДАЛИТЬ"): ,'ВЫХОД');

200. Outtextxy(520,337,'зад.'); Outtextxy(550,337,istr); end e 1 se begin

201. SetFi1IStyle(1,10); bar(и,334,к+80,346); if x = 10 then beqin

202. Outtextxy(25,337,'СОЗДАТЬ'); Outtextxy(105,337,'ПОМЕСТИТЬ'); end ;if x=100 then beqin

203. Outtextxy(105,337,'ПОМЕСТИТЬ'); Outtextxy(205,337,'УДАЛИТЬ'); end ;if к = 190 then begin

204. Outtextxy(105,337,'ПОМЕСТИТЬ');

205. OutTextxy(130,310.'Введите номер чеотежа и нажмите клавишу

206. ENTER'); rectangle(500,307,515.319); 97:С1 г Key Bu f;

207. While not KeyF'ressed do begin SetColor(8); Line(503,316,512,316); delay(80); SetColor(15); Line(503,316,512,316); delay(80); end ;с:=readkey; i;=48;while i<58 do beqinif ord(с)=i then goto 98; i : = i +1 ;end ;aoto 97: 98:cz:= e;

208. SetColor(S); OutTex txy ( 504 , 310 , cz ) ; 99:с:=readkey;1. (ord(c)OS) and (ord(c)<>13) then aoto 99; if ord(c)=S then bea in SetFi1ISty1e(О,0); bar ( 50.1, 308 ,514,318) ; □oto 97; end ;if ord(c)=13 then beg in Chdir (dirt) ; •$!-}

209. Assian(f,naz+nstr+istr+cz+'.ris'); Reset(f);1. lOResult=2 then begin chdir(ndir); bar(0,301,650,320); SetColor(12);

210. Outtextxy(220,310,'ТАКОЙ ЧЕРТЕЖ HE СОЗДАН'); SetColor(8);

211. OutTextxy(190,320,'Выберите в меню пункт "СОЗДАНИЕ"');х$1 + >

212. C;=READKEY; SetFi11S ty1е(0,0); bar(0,301,650,329); goto 912; end;1. CLOSE(f); END;cin:=ord(cz)-48; SetColor(8); if ord(m3cin.)<>0 then begin bar(0,301,650,320);

213. OutTextxy(200,305,'Данный чертеж уже размещен.'); OutTextxy(45,315,'Для перемещения чертежа необходимо'); OutTextxy(350,315,'вначале удалить его с экрана.'); с:=readkey; goto 912;' end ;bar(О,301,650,328);if tin ax <=26 then goto 916;

214. Outtextxy(25,337,'СОЗДАТЬ'); Ou t te x t x у(10 5,337,'ПОМЕСТИТ Ь' ); Outtextxy(205,337,'УДАЛИТЬ'); Outtextxy(300,337,'ВЫХОД'); SetColor(9); 1ine(460,330,460,350); Outtextxy(470,337,naz); 1ine(510,330,510,350); if (k1v=0) or (k1v=l) then begin

215. Outtextxy(520,337,'зад.'); Outtextxy(550,337,istr); end else beg in

216. Outtex txy(520,337,'вар' ); Ou t tex t xу(550,337,ns t r ) ; 1ine(570,330,570,350); Outtextxy(580,337,'зад.' ) ; Outtextxy(610,337,istr); 1ine(630.330,630,350); end ; Chdir(ndir) ;

217. SetFillStvle(0,0): SetColor(8);

218. Ou t text x у(25,337,'СОЗДАТЬ' );

219. Outtex txv(105,337. 'ПОМЕСТИТЬ' ); Outtextxy(205,337,'УДАЛИТЬ'): Outtex txy(300„337,'ВЫХОД' ); SetColor(9); 1ine(460,330,460,350); Outtex txy(470,337,naz ) ; 1ine(510,330,510,3 50); if (к 1v=0) or (к 1v=l) then beq in

220. Outtextxy(520,337,'зад.'); Outtextxy(550,337,istr); enc! e 1 se beq in

221. Outtextxy(520,337,'eap'); Outtextxy(550,337,nstr); 1ine(570,330,570,350); Outtextxy(580,337,'зад.'); Ou t te x t x у(610,337,i s t r) ; 1ine(630,330,630,350); end ; Chd i r(nd ir) ; SetFil lS'tyle(0,0) ; SetColor(8);

222. OutTextxy(45,305,'С помощью клавиш Page Up и Page Down'); OutTextxy(350,305,'выберите страницу, на которой'); OutTextxy(120,315,'будет размещен чертеж и нажмите клавишу ENTER.'); END;goto 914; end ;916;bar(О,301,650,328);

223. OutTextxy(30,305,'С помощью курсорной точки выберите место); OutTextxy(360,305,'расположения правого верхнего'): OutTextxy(180,315,'угла чертежа и нажмите клавишу ENTER. ); Chdir(nd ir);

224. Outtextxy(20,337,'С ЭКРАНА'); OuttextxУ(103,337,'ИЗ ЗАДАНИЯ' ); Out tex txу(210,337, 'ВЫХОД' ); SetColor(9); 1ine(460,330,460,350); Outtextxy(470,337,naz); 1ine(510,330,510,350); if (klv=0) or (klv=l) then beg in

225. Outtextxy(520,337,'зад.'); Ou t te x t x у(5 50,337,i s t r); end e 15e begin

226. SetFi 1 ISty led, 10) : bar(x,334,x+85,346) ; if x=100 then begin

227. Ou t te x t x у(20,337, 'С Э КРАНА' ); Ou ttex txy(103,337, 'ИЗ ЗАДАНИЯ' ) ; end ;if x=190 then begin

228. Ou. t tex t x у ( 210 , 337 , ' ВЫ X ОД ' ) ; Outtextxy(103,337,'ИЗ ЗАДАНИЯ'); end ; end ;if ord(c)=75 then beginif x = 10 then goto 918; SetFil IStyled ,7) ; bar(x,334,x+85,346);

229. Se tF i11S tу 1e(1,10 ) ; bar(x,334,x+85,346); if x-10 then beg in

230. Outtextxy(20,337,'С ЭКРАНА');

231. Ou t text xу(103,337, 'ИЗ ЗАДАНИЯ' ); end ;if x = 100 then begin

232. SetFi1IStyle(0,0); bar(0,301,650,329);

233. OutTextxy(120,305,'На экране нет чертежей. Удаление не'); OutTextxy(415,305,'имеет смысла.'):

234. Outtextxy(170,315,'Для продожения нажмите любую клавишу.') с: =readk.ey ; goto 912; 930:SetFi11Sty 1е(О,О); bar(О,301,650.329); if tmax<=26 then goto 932;

235. Outtextxy(20,337,'С ЭКРАНА' ) ; Outtextxy(103,337,'ИЗ ЗАДАНИЯ'); Outtextxy(210,337, 'ВЫХОД' ) ; SetColor(9); Iine(460,330,460,350): Outtextxy(470,337,naz) ; 1ine(510,330,510,350); if (k1v=0) or (klv=l) then beg in

236. Outtextxy(520,337,'зад.'); Outtextxy(550,337,istr) ; end e 1 se begin

237. Outtextxy(520,337,'вар' ) ; Outtextxy(550,337,nstr); 1ine(570,330,570,350); Outtextxy(580,337,'зад.'); Outtextxy(610,337,istr); 1ine(630,330,630.350); end ; Chd i r(nd i r) ; SetFilIStyle(0,0) ; SetColor(8);

238. OutTextxy(45,305,'С помощью клавиш Page Up и Page Down OutTextxy(350,305,'выберите страницу, на которой');

239. OutTextXY(xpr,ypr,stracCchet.); xpr:=xpr+8; chet:=chet+l; end ; 929:tpr:=1;

240. Outtextxу(20,337,'С 3КРАНА' ) ; Outtex txу(103,337, 'ИЗ ЗАДАНИЯ' ) ; Outtextxy(210,337, 'ВЫХОД' ) ; SetCo1 or(9) ;1ine(460,330,460,350); Outtextxy(470,337,naz) ; line(510,330,510,350); i f (к 1v=0) or (к Iv=1) then beq in

241. Outtextxy(520,337, 'зад. ' ) ; Outtextxy(550,337,istr); end e 1 se beq in

242. Outtextxy(520,337,'вар' ) ; Outtextxy(5 50,337,n s t r); 1ine(570,330,570,350) ; Outtextxy(580,337,'зад.'); Outtextxy(610,337,istr); 1ine(630,330,630,350) ; end : Chdir(ndir); SetFil1Style(0,0) ; SetColor(8);

243. OutTextxy(90,305,'На данной странице нет чертежей.

244. Удаление'): OutTextxy(430,305,'не имеет смысла.');

245. Outtextxy(170,315,'Для продожения нажмите любую клавишу.') с:=readkey; goto 931; end ; t р г : = 1 ;1. perch=l then While tpr<10 do beqinif ord(m3tpr.)=vp then tprl:=tpr; tpr:=tpr+l; end ; If perch>l then begin SetFilIStyle(0,0): bar(0,301,650,329);

246. OutTextxy(150,302,'С помощью курсорной точки, используя клавиши');

247. OutTex txy (13 , 312 , для перехода и; следующему чертежу,')

248. Outtextxy(322,312, для перехода к предыдущему чертежу,

249. Outtextxy(80,322,'отметьте чертеж, подлежащий удалению и')

250. OutTextxy(260,305,'Удалять чертеж ?');

251. OutTextxy(ISO,317,' — подтверждение, отмена')1. SetCo1 or(12);

252. Г $ I } Whi 1 e tpr < 9 do beq in str(tpr,stro);

253. Assign(f1,naz+nstr+istr+stro+'.ris'); Reset(f1 ) ;190 then goto 912; :280 then GOTO 90;if IOResult=2 then begin Г $ I + }Chd i г(nd ir); goto 931; end ;str(tpr-l,stro); close(f1) ;

254. ВВЕДИТЕ НАЗВАНИЕ КОНТРОЛЬНОЙ РАБОТЫ.'); оно должно состоять из следующего набора1.й заглавная латинская буква');2.й ~ заглавная латинская буква');3.й цифра от 0 до 9');

255. OutTextxy(130,300,'При завершении ввода нажмите клавишу ENTER' SetColor(12);

256. OutTextxy(20,200,'Введите имя диска, на который будетзаписываться'); OutTextxy(20,210,'контрольная работа SETCOLOR(12);rectang1е(480,204,495,216); 87:С1 гKeyBuf;

257. While not KeyF'ressed do begin SetColor(9); Line(483,214,491,214); delay(80): SetCo1or(15); Line(483,214,491,214) ; delay(80); end ; cl:=read key;j , -iC,i. и -WO,while i<91 do beg inif ord(cl)=i then goto 88;i:=i+l; end ; goto 87; 88:SetColor(9) :

258. OuttextXy(250,250,'ОШИБКА В80ДА');

259. Outtextxy(40,270,'Заданный номер диска при текущей '); Outtextxy(310,270,'конфигурации ПЭВМ не имеет смысла.') sETcOLOR(9);

260. Outtextxy(150,310,'Для продолжения нажмите любую клавишу.'); с:=readkey; •C$I + >exit; end; if i=0 then begin•C$I-j-assign(f3, ' vihf . рос ' ) ; reset(f3); if lOResult=2 then beg in Setcolor(12); bar(20,230,650,320); FOR x:=1 to 30 do beg in

261. OutTextxy(250,250,'ОШИБКА ВВОДА');de1 ay(200);bar(20,230,650,320);1. Ч Я /4 H" 1. Щend;

262. OuttextXy(250,250,'ОШИБКА ВВОДА');

263. Outtextxy(100,270Контрольная работа с таким именем уже сформирована.');1. Setco1 or(9);

264. OuttextXy(140,250,'ФОРМИРОВАНИЕ ДАННОЙ РАБОТЫ

265. HE ЗАВЕРШЕНО.'): Outtextxy(200,270,'Продолжим формирование.'); Setcolor(9);

266. Outtextxy(150,310Для продолжения нажмите любуюклавишу.'); C:=READKEY; +}chdir(ndir); goto 89; end; end ;

267. Mkdir(dirt) : i:=IOResu1t; if i<>0 then beg in

268. Setcolor(12); bar(20,230,650,320); POR x:=l to 30 do beg in

269. OutTextxy(250,250,'ОШИБКА ВВОДА'); delay(200); bar(20,230,650,320); x : = x +1; end :

270. OuttextXy(250,250,'ОШИБКА ВВОДА'); IF i=5 then begin

271. Outtextxy(250,270,'На диске нет места.'); Setcolor(9);

272. Outtextxy(150,310,'Для продолжения нажмите любуюклавишу. ' ) ; с:=readkey; bar(О,О,630,350); •Г ф I + } е х i t; end ; IF i=152 then beg in

273. Outtextxy(230,270,'Дисковод не готов.'); SetColor(9);

274. Outtextxy(150,310,'Для продолжения нажмите любуюклавишу.*); с:=readkey ; end ; ■ ФI + } е х i t; end ;end ; SetColor(9) ; SetFi1IStyle(0,0)s bar(0,0,620,350) ;

275. OutTextxy(190,20,'ФОРМИРОВАНИЕ КОНТРОЛЬНОЙ РАБОТЫ');

276. OutTextxy(160,190,'При завершении ввода нажмите клавишу ENTER')1. OutTextх у(450,20,NA Z);1. SetCo1or(12);

277. OutTextxy(80,70,'Введите колличество вариантов контрольнойработы :');rectangle(540,66,555,79); 92: С1 г Key Buf :

278. OutTextxy(80,90,'Введите общее колличество заданий для одноговарианта :'); rectanq1е(540,86,565,99);к:=543; у:=95; v vod ; k J. z р : к ; SetColor(12);

279. OutTextxy(SO„110,'Введите колличество заданий, предлагаемых контроли-');

280. OutTex txy(SO,120, 'd уемуму в одном варианте )rectangle(540,116,565,129) ; х :=543; у:=125; vvod; k 12 v: = к ;1. к 1zv>к 1zр then beg inbar(541,117,564,128); goto 85; end ; SetColor(12) ;

281. Assign(fl,naz+nstr+istr+',txt');reset(f1>;{$!+}1votv:=0;lotv:=0;1.TV2:=0;1otv3:=0;1otv4:=0;1.ELP:=0;1. IOResult<>2 thenbeqin closetfi); formirS; end ; Chdir(ndir); zap;

282. P0CVIH=1 THEN EXIT; chz:=chz+l; end ; CHZ:=1; chv:=chv+l; end ; end ;function TestPrinter:ShortInt; var r: registers; begin

283. SetFi11Sty 1e(1,9); SetColor(15); j s=l; pcf:=0;bar(20,5,600,350);0utTe;;t:<y (170,20, ' РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ, гееtangle(40,40,595,325); line(40,55,595,55); line(85,40,85,325); 1ine(510,40,510,325); if klv>l then begin

284. RECTANGLE(420,40,450,325); 1ine(420,55,450,55); Outtextxy(423,43,'N/8'); RECTANGLE(450,40,480,325);line(450,55,480,55); Ou.ttex txy ( 453 , 43 , ' N/3 ' ) ; RECTANGLE(480,40,510,325); line(480,55,510,55): Outtextxy(483,43,'П/В'); if Docpov=l then begin

285. OutTextxy(485,у,strocCi.); I:=i+l;if ord(strocГ i 3)=26 then beqin i:=i+i;

286. OutTextxy(485,у,stroc1.); I: = i + l;if ord(strocГ i . )=26 then begin i : =i + l:

287. OutTex t x у(x,у,s t го с С i.); x:=x+8; i : = i +1 ; end ; SetColor(8);

288. Outtextxy(250,340,'ESC выход');с:=readkey; if ord(с)=27 then goto 5; if c<>#0 then goto 4 else c:=readkey;if (ord(c)=73) and (tpr>17) then goto 6 else ooto 4; 3:SEtCo1or(12);

289. Outtextxy ( 100,330, ' Клавиши PageUp и PageDown движение noстраницам. ' ) ; SetColor(15);

290. Outtextxy(250,340,'ESC выход'); 7:с:=readkey;if ord(c)=27 then goto 5; if c=#0 then c:=readkey;if (ord(c)<>81) and (ord(c)<>73; then goto 7; if ord(с)=S1 then beg in i:= i + l;ba r(20,5,600,325); SetColor(15);

291. OutTextxy(170,20,'РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ.') rectang1е(40,40,595,325): 1ine(40,55,595,55); 1ine(85,40,85,325); line(510,40,510,325); if klv>l then begin

292. RECTANGLE(420,40,450,325); line(420,55,4 50,55); Outtextxy(423,43,'N/B'); RECTANGLE(450,40,430,325); line(450,55,480,55); Outtextxy(453,43, 'N/3' ) ; RECTANGLE(480,40,510,325); 1ine(480,55,510,55); Outtextxy(483,43,'П/В'); if pocpov=l then begin

293. RECTANGLE(510,40,540,325) ; line(510,55,520,55); Outtextxy(513,43,'П/П'); end; end ;outtextxy(43,43,'N n/n ' ): OutTex txy(210,43, 'ФАМИЛИЯ, ИМЯ' ); OutTextxy(543,43,'ОЦЕНКА'); Outtextxy(250,340,'ESC выход'); SEtColor(12);

294. Outtextxy(100,330,'Клавиши PageUp и PageDown движениепо страницам.'); SetColor(15):

295. Ou tte x tx у(250,340,'ESC выход'); x : =90; у:=60: j :=j+l; tpr:=tpr+l; goto 2;end ;if ord(c)=73 then beg in6: if i=i then goto 7;tpr:=1; i : = 1 ; j s=l;bar(20,5,600,325); SetColor(15);

296. OutTextxy(170,20,'РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ.'): rectang1е(40,40,595,325); line(40,55,595,55); line(35,40,85,325); 1ine(510,40,510,325); if klv>l then begin

297. RECTANGLE(420,40,450,325); 1ine(420,55,450, 55) ; Outtextxy(423,43,'N/B'); RECTANGLE(450,40,480,325); line(450,55,480,55); Outtextxy(453,43,'N/3'); RECTANGLE(480,40,510,325); line(480,55,510,55); Outtex txy(483,43,'П/В' ); if pocpov=l then begin

298. RECTANGLE(510,40,540,325); line(510,55,520,55); Outtextxy(513,43,'П/П'); end; end :outtextxy(43,43,'N n/n'); OutTextxy(210,43,'ФАМИЛИЯ, ИМЯ'); OutTextxy(543,43,'ОЦЕНКА'); Ou t te x t x у(2 50,340,'ESC выход'); SEtColor(12);

299. Outtextxy(100,330,'Клавиши PageUp и PageDown движениепо страницам.'); SetColor(15);

300. Outtextxy(250,340,'ESC выход'); x:=90; у:=60: goto 2;end; goto 7; 5:close(f4);chdir(ndir); :setfillstyle(l,9); SetColor(15); bar(20,5,600,350);

301. OutTextxy(160,70,'ОСУЩЕСТВЛЕНИЕ РАБОТЫ'); OutTextxy(230,110,'НЕВОЗМОЖНО.'); OutTextxy(210,150,'HE ВСЕ ФАЙЛЫ,'); OutTextxy(165,190, Ou tTe x t x у(180,230, SetColor(15); SetTextStyle(0,0,1);

302. OutTextxy(180,320,'Для продолжения нажмите любую с:=readkey; chdir(nd ir); e x i t; end ; read(f3,klv); read(f3,к 1zp); read(f 3 , к 1 zv ) ; read(f3,pocpov);

303. СОСТАВЛЯЮЩИЕ РАБОТУ, НАХОДЯТСЯ НА ДИСКЕ')клавишу'close(f3); SetFi11Sty 1e(О,О); ba r ( О , О , 6 50 , 3 50) ; SetColor(8) :

304. OutTextxy(180,270,'Разрешить учащимся rdocmotd подсказок ?'); YN(q2);if (ord(q2)=108) OR (ord(q2)=76) then pocpod:=l;if (ord(q2)=121) OR (ord(q2)=89) then pocpod:=0;ba r(0,0,650,350);1. SetColor(8);if klv>l thenbegin

305. OutTextxy(160,270,'Осуществлять адаптацию к знаниям учащегося ?' Y N ( а 2 ) ;if (Ord(q2)=108) OR (ord(q2)=76) then adp:=i; end ;

306. SetFi1IStyle(0,0); bar(0,0,650,350); SetFi1IStyle(1,9); bar(10,5,620,350); SetColor(15);

307. OutTextxy(170,20,'ОСУЩЕСТВЛЕНИЕ КОНТРОЛЬНОЙ РАБОТЫ'); OutTextxy(435,20,NAZ);

308. OutTextxy(50,70,'Сейчас учащимся предоставляется возможностьвыполнить'); OutTextxy(488,70,'контрольную');

309. OutTextxy(40,90,'работу. Перед выполнением работы каждыйучащийся должен'); OutTextxy(489,90,'ввести свою');

310. OutTextxy(40,110,'фамилию и имя, а учитель задать вариант,который будет'); OutTextxy(507,110,'выполнять');

311. OutTextxy(40,130,'учащийся (если работа имеет несколько вариантов).');

312. OutTextxy(50,150После того, как учащийся выполнит все задания, ему');

313. OutTextxy(460,150, 'будет поставле-' ) ;

314. OutTextxy(40,170,'на соответствующая оценка.');

315. OutTextxy(50,190,'После того, как работу выполнит вся группаучащихся,'); OutTextxy(476,190,'преподаватель');0utTextxy(40,210может получить сведения об оценке, полученнойкаждым учащимся.'); SetColor(8):

316. OutTextxy(220,20,'КОНТРОЛЬНАЯ РАБОТА');

317. OutTextxy(380,20,NAZ); SetColor(12);

318. OutTextxy(40,60Введите Ваше имя и фамилию :'); к ро с1:=0; SetColor(14); rectangle(270,57,600,73): х:=280; while true do beq in1jClrKeyBuf;

319. OutTe:-; txy ( 240 , 335 , ' ЗАДАНИЕ ' ) ; OutTextxy(320,335,istr); end ; if klvOl then beg i n

320. OutTextxy(180,335,'ВАРИАНТ'); OutTex txy(260,335,nstr); OutTex txy(320,335.'ЗАДАНИЕ' ); OutTextxy(390,335,istr); end ;56:SfcTf x1Istyle(О,0); bar(11,301.620,312); SETCOLOR(8);

321. OutTextxy(30,302, 'С помощью курсорных стрелок веберитережим работы* ); OutTextxy(430,302,'и нажмите клавишу ENTER.'); SEtFillStvle(1,10); bar(160,312,320,326):

322. OutTextxy(170,316,'ПОСМОТРЕТЬ ЗАДАНИЕ'); OutTextxy(360,316,'ВВЕСТИ ОТВЕТ'); С:=READKEY; х:=170;4:Whi1e ord(с)<>13 do beq inif c=#0 then beginс:=readkey; if ord(c)=77 then beginif x=360 then goto 5; SetFilIStyle(O^O); ba r(160,312,320,326): x:=360;

323. SetFi1IStyle(1,10); bar(350,312,465,326);

324. Outtextxy(170,316,'ПОСМОТРЕТЬ ЗАДАНИЕ'): Outtextxy(360,316,'ВВЕСТИ ОТВЕТ'); goto 5; end ;if ord(c)=75 then beginif x=170 then goto 5; SetFillStyle<0~0); bar(350,312,465,326); x :=170;

325. SetFilIStyle(l,10): bar(160,312,320,326);

326. OutTextxy(220,20,'КОНТРОЛЬНАЯ РАБОТА'); Ou tТе x t x у(3S0,20,NA Z);

327. OutTextxy(140,60,'Вы закончили выполнение контрольной работы1. SetColor(12);1. Se tTe х tS ty1e(0,0,2);

328. Se tTe x tS t у 1e(0,0,1);1. SetColor(15) ;

329. OutTextxy(180,280,'Для продолжения нажмите любую клавишу');с:=readkey;bar(40,50,620,350);

330. OutTextxy(160,280,'Продолжим выполнение контрольной работы ?' ) V N ( о 2 ) :

331. SetFilIStyle(1,9): SetCo1 or(15) ;if (ord(q2)=108) OR (ord(q2)=76) then goto 8; if (ord(q2)=121) OR (ord(q2)=89) then BEG IN bar(40,50,620,350); c:=chr(6); write( f 4 , с ) ;

332. OutTextxy(80,280,'Показать результаты выполнения контрольнойработы учащимися ?'); Y'N(q3) ;

333. SetFi1!Style(l,9); SetColor(15);if (ord(q3)=121) OR (ord(q3)=89) then BEGIN close(f4); chdir(ndir); exit; end ;if (ord(q3)=108) OR (ord(q3)=76) then begin stat;

334. Outtextxy(32,337,'К0ЛЛИЧЕСТВ0'):

335. Outtex txy(157,337,'РЕДАКТИРОВАНИЕ' );

336. Outtextxy(317,337,'КРИТЕРИИ');

337. Outtextxy(440,337,'УНИЧТОЖЕНИЕ');

338. Outtextxy(570,337,'ВЫХОД');1. SetColor(8);1. SEtFi1IStyle(0,0):bar(0,301,650,329);1. SetFi11Sty1e(1,10);bar(20,334,135,346);

339. Outtextxy(32,337,'К0ЛЛИЧЕСТВ0');с:=readkey;2:While ord(c)<>13 doэед inif c=#0 then begin с:=readkey; if ord(c)=77 then be a inif x = 560 then aoto 1; SetFilIStylet 1,7); ba r (ic, 334 , x +115,346) ; x : = x +13 5 ;

340. SetFilIStyle(1,10); bar(x,334,x+115.346): if x = 155 then begin

341. Outtextxy(32,337,'К0ЛЛИЧЕСТВ0'); Outtextxy(157,337,'РЕДАКТИРОВАНИЕ end;if x=290 then begin

342. Outtextxy(157,337,'РЕДАКТИРОВАНИЕ Outtextxy(317,337,'КРИТЕРИИ'); end ;if x=425 then begin

343. Outtextxy(317,337,'КРИТЕРИИ'); Outtex txy(440.337. 'УНИЧТОЖЕНИЕ' ) ; end;if x=560 then begin

344. Outtextxy(440,337,'УНИЧТОЖЕНИЕ'); Outtextxy(570,337,'ВЫХОД'); SEtFilIStyle(1,7): bar(625,330,650,350); end: end ;if ord(c)=75 then beq inif x=20 then goto 1; SetFiIISty ie(1,7); bar(x,334,x+115,346);

345. SetFilIStyle(1,10); bar(x,334,x+115,346); if x=20 then beq in

346. Outtextxy(32,337,'КОЛЛИЧЕСТВО'); Outtextxy(157,337,'РЕДАКТИРОВАНИЕ end;if x = 155 then beq in

347. Outtex txy(157,337, 'РЕДАКТИРОВАНИЕ Outtextxy(317,337,'КРИТЕРИИ'); end ;if x=290 then beg in

348. Out te x t x у(317,337, 'КРИТЕРИИ' ); Outtex txy(440,337, 'УНИЧТОЖЕНИЕ' ) : end ;if x=425 then beg in

349. Outtextxy(440,337,'УНИЧТОЖЕНИЕ');

350. Outtextxy(570,337,'ВЫХОД'); end ; end ; 1 : с:=readkey; goto 2;end ;с:=readkey: end ; if x=20 then begin SetFi1IStyle(0,0); bar(0,0,650,350); SetFi1IStyle(1,9); bar(l0,5,620,3 50); SetColor(15);

351. OutTextxy(90,20,'РЕДАКТИРОВАНИЕ КОЛЛИЧЕСТБА ЗАДАНИЙ КОНТРОЛЬНОЙ

352. РАБОТЫ'): OutTex t ху(530,20,NA Z) ;

353. OutTextxy(80.150Сейчас в работе контролируемуму предлагается выпол нить' );1. klzv=l then Outtextxy(220,170задание в одном варианте'); If (klzv=2) or (k1zv=3) or (klzv=4) then

354. Outtextxy(220,170,'задания e одном варианте'); If klzv>4 then Outtextxy(220,170заданий в одном варианте'); OutTextxy(100,120,'Общее колличество заданий для одного варианта = ');

355. OutTextxy(80,200,'Введите колличество заданий, предлагаемых контроли—');

356. OutTextxy(80,220,'руемуму в одном варианте1. SetColor(14);reс tanq1е(540,217,570,233);wodl;if k>kizp then beci inba r(20 ,190,620,350); setcolor(12);

357. OutTextxy(80,220, ' Копличество заданий, предлагаемыхконтролируемуму в одном'); Outtextxy(90,240варианте должно быть не больше, чем общеекопличество'); outtextxy(200,260,'заданий для одного варианта.'); SetColor(15);

358. OutTextxy(180,320,'Для продолжения нажмите любую клавишу'); с:=readkey; goto 5; end ; chdir(dirt) ; rewrite(f3); write(F3,klv); write(f3,k1zp); wri te(f3,k); write(f3,pocpov); close(f3); chdir(ndir); bar(20,190,620,350); SetColor(15);

359. OutTextxy(80,220.'Копличество заданий, предлагаемых контролируемуму в одном');

360. Outtextxy(220,240.'варианте, изменено на');str(k,stro);1. SetColor(12);outtextxy(410,240,stro);1. SetColor(15);

361. OutTextxy(180,320,'Для продолжения нажмите любую клавишу'): с:=readkey; goto 5; end ;end ;if x=560 then exit; if x=290 then begin SetFillStyle(0,0); bar(0,0,650,350); SetFi11Style(1,9); bar(10,5,620,350); SetColor/15);

362. OutTex txy(100.20, 'РЕДАКТИРОВАНИЕ КРИТЕРИЕВ ОЦЕНКИ КОНТРОЛЬНОЙ

363. РАБОТЫ'): OutTextх у(530,20,NAZ); SetColor(14);

364. OutTextxy(120,310,'С помощью курсорных стрелок веберитережим работы'); OutTextxy(230,330,'и нажмите клавишу ENTER.'); SetColor(14);

365. OutTex txy(220,110, 'ИЗМЕНИТЬ КРИТЕРИИ ОЦЕНКИ ПО' ) ; SE tF i11S tу 1е(1,14); bar(l50,162,290,176); setсо lor(8) ;

366. Se tF i 11S ty 1 e ( 1,14 ) ; bar(380,162,510,176);

367. OutTextxy(160,166,'КАЖДОМУ ЗАДАНИЮ'); OutTex txy(390,166, 'РАБОТЕ Б ЦЕЛОМ' ); goto 7; end ;if ord(с)=75 then beg inif x=160 then goto 7; SetFil ISty led ^9) ; bar(380,162,510,176); x:=160;

368. SetFil ISty led, 14) ; bar(150,162,290,176);

369. Wh i 1 e с hiv < = k 1 v dobeq in str(chv,stro); While chz<=ki zp do beq in str(chz,strol):• Se t f i11s ty1e(1,9); Ш bar(20,30,620,350); W SEtColor(15);if к 1v=l then begin

370. Outtextxy(80,50,'ЗАДАНИЕ'); Ou t te x t x у(150,50,s t го1); end; if к 1v>1 then beg in

371. Outtextxy(80,50,'ВАРИАНТ'); Ou t te x t x у(150,50,stro); m Outtextxy(180,50,'ЗАДАНИЕ');

372. Outtextxy(250,50,strol); end ; Setcolor(12);

373. OutTextxy(80,80,'Имеющиеся критерии оценки'); SetColor(15); ^ if pocpov=l then9 beoin

374. OutTextxy(80,110,'В случае использования однойпопытки ответа баллов');

375. OutTextxy(80,130,'8 случае использования повторной• попытки ответа баллов');k1:=Fi1ePos(f3);read(f3,к ) ;str(к,strol ) :outtextxy(435,110,strol);read(f3,к ) ;str(к,strol ) ;ou. t te x t x у ( 470 ,130 , s t г о 1) ;1. SetColor(12);

376. OutTextxy(80,160,'Введите новые критерии оценки');• SetColor(15);

377. OutTextxy(80,190,'В случае использования одной попыткиответа баллов');

378. OutTextxy(170,320,'После ввода нажмите клавишу ENTER') гееtang 1е(470,187,520,203); х1:=40; tpr:=475; у:=190; wodl;seek(f3,kl); wri te(f3,k) ; « SetColor(15);

379. OutTextxy(80,220В случае использования повторнойпопытки ответа баллов');rectangle(470,217,520,233); х1:=40;tpr:=475;1. Р у:=220;wodl ;write( f 3 , k ) ;end ;if pocDov-O then beg in

380. OutTextxy(80,110,'За правильный ответ на вопросзадания баллов');к1:=F i1epos(f3); read(f3,к ) ; str(к,strol); outtextxy(385,110,strol); SetColor(12);

381. OutTextxy(80,140,'Введите новые критерии оценки'); SetCo1or(15);

382. OutTextxy(80,170,'За правильный ответ на вопрос заданиябаллов')

383. Outtex txy(80,50, 'ВАРИАНТ' ) ; Ou t te x t x у(150,50,s t го); end; Setcolor(12);

384. OutTextxy(80,80,'Имеющиеся критерии оценки'); SetColor(15); read(f3,k); str(k,strol);

385. OutTex txy(30,100,'оценка "ОТЛИЧНО" s от'); OutTex txy(215,100,strol);

386. OutTextxy(290,100,'до баллов');read(f3,к); str(к,strol);

387. Ou tie x t x у ( 325,100 , s t г о 1 ) ;read(f3,к);str(k.strol};

388. OutTextxy(30,115,'оценка "ХОРОШО" : от'); OutTextxy(215,115,strol)s

389. OutTex txy(290,115, 'до баллов' );read(f3,k ) ;str(k,strol) ;1. OutTextxy(325,115,strol);read(f3,k ) ;str(k,strol);

390. OutTextxy (30,130, 'оценка "УДОВ Л." : от')-, 0u t Те х t х у ( 215,130 , s t г о 1) ;

391. OutTextxy(290,130,'до баллов");read(f3,k) ;str(k,strol ) ;1. OutTextxy(325,130.strol);read( f 3, k ) ;str(k,strol) ;

392. OutTextxy(30,145,'оценка "НЕУД." : от'); OutTextxy(215,145,strol);

393. OutTextxy(290,145,'до баллов');read(f3,k) ;str(k,strol ) ;1. OutTextxy(325,145,strol);sETcOLOR(12);

394. OutTextxy(80,180,'Введите новые критерии оценки'); SetColor(15);

395. OutTextxy(170,320,'После ввода нажмите клавишу ENTER SetColor(14);

396. OutTextxy(30,210,'оценка "ОТЛИЧНО" ; от');reсtang1е(210,207,280,223);1. TPR:=215;у:=210;xi:=60;vvod1;

397. Seek(f3,kl); wri te(f3,k) ; SetColor(14);

398. OutTex txy(290,210,'до баллов' );rectangle*320,207,390,223);1. TPR:=325;у:=210:xl:=60:vvodl;wri te(f3,k) ; SetColor(14);

399. OutTextxy(30,230,'оценка "ХОРОШО" : от');rectanqle(210,227,280,243);1. TPR:=215;у:=230;xi:=60;vvod1;wri te(f3,k); SetColor(14);

400. OutTextxy(290,230,'до баллов');rectangle(320.227,390,243)s TPR:=325s у:=2oO; к1:=60; vvod1;wri te(f3,k) : SetColor(14) ;

401. OutTextxy(30,250,'оценка "УД0БЛ." : от');rectanqle(210,247,280,263);1. TPR:=215;у:=250;x1:=60;vvod1;wri te(f3,k); SetColor(14);

402. OutTextxy(290,250,'до баллов');rectanq1e(320,247,390,263);1. TPR:=325:у:=250;xl:=60:vvod1:wri te(f3,k); SetColor(14);

403. OutTextxy(30,270,'оценка "НЕУД." : от');гееtana 1е(210,267.280,283);1. TPR:=215:у:=270;х1;=60;vvodl;wri te(f3,k) ; SetColor(14);

404. OutTextxy(200,20,'УДАЛЕНИЕ КОНТРОЛЬНОЙ РАБОТЫ'); Ou tТеxt x у(430,20,NA Z); SetColor(14);

405. OutTextxy(120,150,'ВАМ ПРЕДЛАГАЕТСЯ УДАЛИТЬ КОНТРОЛЬНУЮ РАБОТУ1. С ЛИСКА');

406. While tpr<10 do begin str(tpr,stro);•Г -}assign ( f 2 , naz+nstr+istr+stro+ ' . ris ' reset ( f 2) ; -CSI + .-if IOResu1t<>2 then begin close(f2); erase(f2); end ; tpr:=tpr+l; end : chz:=chz+i; end ; chv s =chv+l; end ;

407. Г $ I J ass i q n ( f 3 , ' с r i to . po с ' ) ; reset(f3); С SI + T if IQResult<>2 then begin closetf3); erase(f3); end; Chd ir(nd i r); Rmdi r(d i r t); 8:SetFillStyle(l,9); bar(20,150,620,350); SetColor(12); SetTextStyle(0,0,2);

408. OutTex txyI 180,100,' КОНТРОЛЬНАЯ РАБОТА' ) ;

409. OutTextxy(300,150,NAZ); OutTex txy(240,200, 'УНИЧТОЖЕНА' ); SetColor(15): SetTextS ty1e(0,О,0);

410. Assian(f1,naz+nstr+i5tr + ' .txt' );reset ( f 1 ) ;C$I+}lotv;=0;

411. IOResult--BEGIN CLOSE(F1) formir2; END; Chdir(ndir) : zap;1. pocvih=l ch: end ; CHZ:=1; chv:=chv+l; end ;2 thenthen goto 5:end : end ;procedure redrab; label 1,2,3.4,5,6,7,8.9;var cl , c:2 : char ; beq in

412. BAR(0,0,650,350); SetColor(9);if pocr=i then OutTextxy(100,20,'ВВЕДИТЕ НАЗВАНИЕ РЕДАКТИРУЕМОЙ

413. КОНТРОЛЬНОЙ РАБОТЫ.'); if (pocr=2) OR (pocr=3) then OutTextxy(160,20ВВЕДИТЕ НАЗВАНИЕ

414. КОНТРОЛЬНОЙ РАБОТЫ.'); OutTextxy(100,50,'оно должно состоять из следующего набора символов:');

415. OutTextxy(180,65, '1-й заглавная латинская буква); OutTextxy(180,80. '2-й - заглавная латинская буква'); OutTextxy(180,95,'3-й - цифра от О до 9');

416. OutTextxy(130,300,'При завеошении ввода нажмите клавишу ENTER') SetColor(12);

417. OutTextxy(240,160,'Ввод'); rec tang 1e(280,155,320,170); x:=287; NAZ:=''; While x<308 do begin3:С1rKeyBuf;

418. OutTex txy ( 250 , 250 , ' ОШИБКА ВВОДА ' ) ; delay(200); bar(20,230,650,320) ; x : = x +1; end ;

419. OuttextXy(250,250,'ОШИБКА ВВОДА');

420. Outtextxy(40,270,*Заданный номер диска при текущей '); Outtextxy(310,270,'конфигурации ПЭВМ не имеет смысла.) sETcOLORf?);

421. Outtextxy(150,310,'Для продолжения нажмите любуюклавишу.'); с:=readkey; Г$1 +Тек it; end: IF i=152 then beqin SetcoI or(12); bar(20,230,650,320); FOR x:=l to 30 do beq in

422. OutTextxy(250,250, 'ОШИБКА ВВОДА' ) ; delay(200); bar(20,230,650,320); x s = x +1; end ;

423. OuttextXy(250,250, 'ОШИБКА ВВОДА' ) ; Outtextxy(230,270,'Дисковод не готов.'); SetColor(9);

424. Outtextxy(150,310,'Для продолжения нажмите любуюклавишу. ' ) ; с:=readkey; {$ I + }Chd i г(ndi г);r'\ X "t Чend : if i=3 then beq in Setcolor(12); bar(20,230,650,320); FOR x:=l to 30 do beqin

425. Ou.tTex txy (250 , 250 , ' ОШИБКА ВВОДА' ) ; delay(200 i ; bar(20,230,650,320); x : = x +1; end ;

426. OuttextXy(250,250,'ОШИБКА ВВОДА' ) ;

427. Outtextxy(90,270,'Контрольная работа с таким названием не сформирована.'); sETcOLOR(9);

428. OutTextxy(250,250,'ОШИБКА ВВОДА'); delay(200); bar(20,230,6 50,320); x:=x+l; end ;

429. Ou tte x tX у(250,2 50,'ОШИБКА ВВОДА' ) ; SetColor(S);

430. OuttextXy(140,270,'ФОРМИРОВАНИЕ ДАННОЙ РАБОТЫ HE

431. ЗАВЕРШЕНО.'); Outtextxy(110,290,'Выберите режим "ФОРМИРОВАНИЕ

432. КОНТРОЛЬНОЙ РАБОТЫ"'); SetColor(9);

433. OutTextxy(250,250,'ОШИБКА ВВОДА'); delay(200); ba r(20,230,6 50,320); x:=x+l; end ;

434. OuttextXy(250,250,'ОШИБКА ВВОДА'); SetColor(3);

435. OuttextXy(140,270, 'ДАННАЯ РАБОТА НИКЕМ HE ОСУЩЕСТВЛЯЛАСЬ .'); SetColor(9);

436. Ou.ttex txy (150, 310,'Для продолжения нажмителюбую клавишу.' ) ; с: =readkey; bar(О,О,630,350) ; close(f3); chdir(ndir) ;1. Г SI + } е х i t; end ;

437. SetFillStyle(1,9); bar(0,0,650,350); SetColor(14);

438. OutTextxy(90,110,'ВАМ ПРЕДОСТАВЛЯЕТСЯ ВОЗМОЖНОСТЬ ПРОСМОТРЕТЬ

439. И РАСПЕЧАТАТЬ'): OutTextxy(120,130,'РЕЗУЛЬТАТЫ ВЫПОЛНЕНИЯ КОНТРОЛЬНОЙ РАБОТЫ

440. ПОСЛЕДНЕЙ'); OutTextxy(260,150,'ГРУППОЙ УЧАШ.ИХСЯ,'); SetCo1or(15);

441. OutTextxy(210,260,'Будете осуществлять просмотр ?');1. YW(q2);if ( ord ( q2 )--108 ) OR (ord(q2)=76) then redrab GOTO 2; end ; SetBkCoIor(15) ; til SetColor(12); 1:end.