Проведение пробного ЕГЭ по информатике

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

Для начала – где брать контрольно-измерительные материалы. Очень удобный способ построить КИМ – сайт Полякова Константина Юрьевича. Его генератор позволяет получить множество различных вариантов с ответами к ним. Ссылка на генератор.

Проверка работ и фиксация результатов.

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

Шаблон выполнялся в Libre Office 4.2

Главная особенность – мой собственный макрос.

Порядок работы с шаблоном:

1. В ячейку С1 внесите количество сдающих экзамен.
2. Заполните графы “Ученик”, “Средний балл по предмету” и “Вариант”.
3. Внесите ответы учеников (если задание выполнено правильно – 1, если неправильно – 0, за задания части С – соответствующее количество баллов).
4. Графы “Первичный балл” и “Тестовый” заполнять НЕ НАДО.
5. Пункт меню “Сервис – Макросы – Выполнить макрос”
6. В диалоговом окне выберите макрос
   

Макрос подставит формулу для всех учеников для расчета суммы баллов, поставит в соответствие первичному баллу тестовый, выделит фамилии учеников двумя цветами: зеленый – если порог пройден, красный – если нет.

Результат выполнения макроса:

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

Текст макроса
[spoiler]

Sub SetValue
  Dim oDoc As Object, oSheet As Object, oCell As Object
  Dim i,k as integer
  Dim countstudent as integer
  Dim balls(0 to 40, 1 to 2) as Integer
  balls(0,1)=0
  balls(0,2)=0
  balls(1,1)=1
  balls(1,2)=5
  balls(2,1)=2
  balls(2,2)=10
  balls(3,1)=3
  balls(3,2)=15
  balls(4,1)=4
  balls(4,2)=20
  balls(5,1)=5
  balls(5,2)=25
  balls(6,1)=6
  balls(6,2)=30
  balls(7,1)=7
  balls(7,2)=35
  balls(8,1)=8
  balls(8,2)=40
  balls(9,1)=9
  balls(9,2)=42
  balls(10,1)=10
  balls(10,2)=44
  balls(11,1)=11
  balls(11,2)=45
  balls(12,1)=12
  balls(12,2)=47
  balls(13,1)=13
  balls(13,2)=49
  balls(14,1)=14
  balls(14,2)=50
  balls(15,1)=15
  balls(15,2)=52
  balls(16,1)=16
  balls(16,2)=54
  balls(17,1)=17
  balls(17,2)=55
  balls(18,1)=18
  balls(18,2)=57
  balls(19,1)=19
  balls(19,2)=58
  balls(20,1)=20
  balls(20,2)=60
  balls(21,1)=21
  balls(21,2)=62
  balls(22,1)=22
  balls(22,2)=63
  balls(23,1)=23
  balls(23,2)=65
  balls(24,1)=24
  balls(24,2)=67
  balls(25,1)=25
  balls(25,2)=68
  balls(26,1)=26
  balls(26,2)=70
  balls(27,1)=27
  balls(27,2)=71
  balls(28,1)=28
  balls(28,2)=73
  balls(29,1)=29
  balls(29,2)=75
  balls(30,1)=30
  balls(30,2)=76
  balls(31,1)=31
  balls(31,2)=78
  balls(32,1)=32
  balls(32,2)=80
  balls(33,1)=33
  balls(33,2)=81
  balls(34,1)=34
  balls(34,2)=83
  balls(35,1)=35
  balls(35,2)=84
  balls(36,1)=36
  balls(36,2)=88
  balls(37,1)=37
  balls(37,2)=91
  balls(38,1)=38
  balls(38,2)=94
  balls(39,1)=39
  balls(39,2)=97
  balls(40,1)=40
  balls(40,2)=100

  oDoc=ThisComponent
  oSheet=oDoc.Sheets.getByName("Лист1")
  oCell=oSheet.getCellByPosition(2,0) 
  countstudent=oCell.getValue+1
  for i=2 to countstudent
  oCell=oSheet.getCellByPosition(35,i) 'AJ2
  oCell.setFormula("=SUM(D"+(i+1)+":AI"+(i+1)+")")
  oCell=oSheet.getCellByPosition(35,i) 'AJ2
  k = oCell.getValue
  oCell=oSheet.getCellByPosition(36,i) 'AK2
  oCell.setValue(balls(k,2))
  oCell=oSheet.getCellByPosition(0,i) 'Ученик
  If k<8 then   
  oCell.CellBackColor = RGB(255,100,100)
  Else 
  oCell.CellBackColor = RGB(141,255,56)
  End If
	next i
End Sub

[/spoiler]

В перспективе – построение диаграмм по результатам экзамена (правильность выполнения различных заданий и сравнение баллов учеником между собой).
Полезные ссылки:

Таблица пересчета первичных баллов в тестовый.

[wpfilebase tag=file id=1 /]