Online-тестирование
РОСЖЕЛДОР
ФЕДЕРАЛЬНОЕ
ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО
ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«СИБИРСКИЙ
ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ» (СГУПС)
Кафедра
«Информационные технологии транспорта»
Расчетно-графическая
работа
по
дисциплине «Высокоуровневые методы программирования» на тему
«Online
тестирование»
Выполнил:
Студент гр. БИСТ-211
М.
Нартова
Руководитель:
Доцент_______________А.В.Хлебус
Новосибирск,
2014 г.
СОДЕРЖАНИЕ
ЗАДАНИЕ
СТРУКТУРА ПРОГРАММЫ
ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ А - КОД ПРОГРАММЫ
ЗАДАНИЕ
Требования к программе:
. Для каждого вопроса должно быть
предоставлено не более четырех возможных вариантов ответа;
. Каждому ответу необходимо присвоить
определенное кол-во баллов;
. В программе должны использоваться
различные компоненты;
. По окончанию теста необходимо
предоставить оценку, которую заработал пользователь (оценка: «5», «4», «3»,
«2»).
СТРУКТУРА ПРОГРАММЫ
Программная среда:Lazarus
Приложение состоит из нескольких форм, которое
содержит следующие процедуры:- создание формы;
Image1, Image2,
Image3, Image4
- отображает графическое изображение;
Button1Click-
выход;
Button2Click
- ответ;
Button3Click
- завершить тест;
Radiobutton1, Radiobutton2,
Radiobutton3, CheckBox1, CheckBox2, CheckBox3 - выбор
ответа;1
- вопрос в тесте;
Edit1.Text
- ответ, данный пользователем;
Edit2.Text
- результат за правильный ответ.
ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ
Исходный вид программы:
Пользователь набрал 10 баллов:
Пользователь набрал 7-9 баллов:
Пользователь набрал 5-6 баллов:
Пользователь набрал 3-4 балла:
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Самоучитель
по программированию на Free Pascal и Lazarus / Е.Р. Алексеев, О.В. Чеснокова,
Т.В. Кучер. - 2012
. Основы
программирования в среде Lazarus
/ К.Т. Мансуров - 2011.
ПРИЛОЖЕНИЕ А - КОД ПРОГРАММЫ
unit Unit1;
{$mode objfpc}{$H+}, SysUtils,
FileUtil, Forms, Controls, Graphics, Dialogs, Menus,, StdCtrls, ExtCtrls,
Unit2, Unit3, Unit4;
{ TForm1 }= class(TForm): TButton;:
TButton;: TButton;: TCheckBox;: TCheckBox;: TCheckBox;: TEdit;: TEdit;:
TImage;: TLabel;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TRadioButton;: TRadioButton;: TRadioButton;Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender:
TObject);FormCreate(Sender: TObject);MenuItem10Click(Sender:
TObject);MenuItem1Click(Sender: TObject);MenuItem2Click(Sender:
TObject);MenuItem3Click(Sender: TObject);MenuItem4Click(Sender:
TObject);MenuItem5Click(Sender: TObject);MenuItem6Click(Sender:
TObject);MenuItem7Click(Sender: TObject);MenuItem8Click(Sender:
TObject);MenuItem9Click(Sender: TObject);
{ private declarations }
{ public declarations };:
TForm1;=record;:integer;:integer;:integer;:string[255];
{$R *.lfm}
{ TForm1
}TForm1.Button1Click(Sender: TObject);;;TForm1.Button2Click(Sender: TObject);k
of
: if radiobutton2.Checked then
n:=n+1 else ShowMessage('Вы ответили не верно!');
: if radiobutton1.checked then
n:=n+1 else ShowMessage('Вы ответили не верно!');
: if Edit1.Text= '255' then n:=n+1
else ShowMessage('Вы ответили не верно!');
: if radiobutton3.checked then
n:=n+1 else ShowMessage('Вы ответили не верно!');
: if Edit1.Text= 'нет' then n:=n+1
else ShowMessage('Вы ответили не верно!');
: if radiobutton1.checked then
n:=n+1 else ShowMessage('Вы ответили не верно!');
: if CheckBox1.checked and
CheckBox2.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');
: if CheckBox1.checked and
CheckBox3.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');
: if Edit1.Text= '0' then n:=n+1
else ShowMessage('Вы ответили не верно!');;.Text
:=IntToStr(n);;TForm1.Button3Click(Sender: TObject);Edit2.Text='10' then
form2.Label1.Caption:='Ваша оценка 5';(Edit2.Text='7')or (Edit2.Text='8') or
(Edit2.Text='9') then form2.Label1.Caption:='Ваша оценка 4';(Edit2.Text='5') or
(Edit2.Text='6') then form3.Label1.Caption:='Ваша оценка 3';(Edit2.Text='3') or
(Edit2.Text='4') then form4.Label1.Caption:='Вы не прошли
тест!';Edit2.Text='10' then form2.ShowModal;(Edit2.Text='7')or (Edit2.Text='8')
or (Edit2.Text='9') then form2.ShowModal;(Edit2.Text='5') or (Edit2.Text='6')
then form3.ShowModal;(Edit2.Text='3') or (Edit2.Text='4') then
form4.ShowModal;;TForm1.FormCreate(Sender:
TObject);:=1;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=25;.Caption:='1.
Как
называется группа файлов, которая хранится отдельной группой и имеет
собственное имя?';
radiobutton1.Caption:='Байт';.Caption:='Каталог';.Caption:='Дискета';;TForm1.MenuItem1Click(Sender:
TObject);:=1;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=25;.Caption:='1.
Как
называется группа файлов, которая хранится отдельной группой и имеет
собственное имя?';
radiobutton1.Caption:='Байт';.Caption:='Каталог';.Caption:='Дискета';;TForm1.MenuItem2Click(Sender:
TObject);:=2;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:='2.
Выберите
правильное имя файла anketa
с расширением txt';
radiobutton1.Caption:='Anketa.
txt';.Caption:='Anketa.
txt.';.Caption:='Anketa/txt';;TForm1.MenuItem3Click(Sender:
TObject);:=3;:=0;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=35;.Left:=104;.Top:=48;.Text:='';.Caption:='3.
Какое
наибольшее количество символов имеет имя файла или каталога в Windows?';
stroka:=edit1.text;.Text:=IntToStr(rez);;TForm1.MenuItem4Click(Sender:
TObject);:=4;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:='4.
Какое
расширение у исполняемых файлов?';
radiobutton1.Caption:='exe,
doс';.Caption:='bak, bat';.Caption:='exe, com,
bat';;TForm1.MenuItem5Click(Sender: TObject);:=5;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=24;.Caption:='5.
Подкаталог
SSS входит в каталог YYY.
Как называется каталог YYY
относительно каталога SSS?';
radiobutton1.Caption:='дочерний';.Caption:='корневой';.Caption:='родительский';;TForm1.MenuItem6Click(Sender:
TObject);:=6;:=0;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=40;.Left:=104;.Top:=48;.Text:='';.Caption:='6.
Может
ли в одном каталоге быть два файла с одинаковыми именами?';
stroka:=edit1.text;.Text:=IntToStr(rez);;TForm1.MenuItem7Click(Sender:
TObject);:=7;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=72;.Caption:='7.
Что
такое кластер на магнитном диске?';
radiobutton1.Caption:='единица
дискового пространства';
radiobutton2.Caption:='конверт для
диска';.Caption:='виртуальный диск';;TForm1.MenuItem8Click(Sender:
TObject);:=8;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Left:=80;.Left:=120;.Left:=120;.Left:=120;.Caption:='8.
Что
содержит 0-я дорожка каждой дискеты?';
CheckBox1.Caption:='корневой
каталог';
CheckBox2.Caption:='FАТ-таблицу';
CheckBox3.Caption:='файлы';;TForm1.MenuItem9Click(Sender:
TObject);:=9;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Left:=25;.Left:=120;.Left:=120;.Left:=120;.Caption:='9.
На
дискете имеются испорченные сектора. Что делает система, чтобы предотвратить их
использование?';
CheckBox1.Caption:='ничего
не делает';
CheckBox2.Caption:='использует,
но осторожно';
end;TForm1.MenuItem10Click(Sender:
TObject);:=10;:=0;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Left:=80;.Left:=104;.Top:=48;.Text:='';.Caption:='10.
Какой
номер имеет начальная дорожка?';
stroka:=edit1.text;.Text:=IntToStr(rez);;.