Росжелдора
Федеральне державне бюджетне освітня установа
ВИЩОЇ ОСВІТИ
«СИБІРСЬКИЙ ДЕРЖАВНИЙ УНІВЕРСИТЕТ шляхів сполучення» (СГУПС)
Кафедра «Інформаційні технології транспорту»
Розрахунково-графічна робота
з дисципліни «Високорівневі методи програмування» на тему
«Online тестування»
Виконав: Студент гр. Бісти - 211
М. Нартова
Керівник:
Доцент _______________ А.В.Хлебус
Новосибірськ, 2014
ЗМІСТ
ЗАВДАННЯ
СТРУКТУРА ПРОГРАМИ
ІНСТРУКЦІЯ КОРИСТУВАЧА
Список використаної літератури
ДОДАТОК А - КОД ПРОГРАМИ
ЗАВДАННЯ
Розробити програму для тестування студентів в інтегрованому середовищі розробки Lazarus.
Вимоги до програми:
. Для кожного питання має бути надано не більше чотирьох можливих варіантів відповіді;
. Кожному відповіді необхідно привласнити певний у балів;
. У програмі повинні використовуватися різні компоненти;
. По закінченню тесту необхідно надати оцінку, яку заробив користувач (оцінка: «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 radiobutton1ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );
: if Edit1.Text= 255 then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );
: if radiobutton3ecked then n:=n + 1 else ShowMessage ( Ви відповіли не вірно! );
