Тестирующая программа на языке Delphi

Курсовая работа, 26 Декабря 2011, автор: пользователь скрыл имя

Описание работы

В данной курсовой работе была создана тестирующая программа по предмету «Основы алгоритмизации программирования». Она представляет собой опросник из 10 вопросов (случайно выбранных из базы «Access»), определяющих уровень знаний по заданной теме.

Содержание

ВВЕДЕНИЕ 3
1. ПОСТАНОВКА ЗАДАЧИ 4
1.1. Формализация задачи 4
1.2. Задача 4
1.3. Необходимость автоматизации 5
2. ВЫЧИСЛИТЕЛЬНАЯ СИСТЕМА 6
2.1 Среда разработки 6
2.2 Пользовательский интерфейс. 6
2.3 Аппаратные требования программы. 7
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ И ЕГО ОПИСАНИЕ 8
3.1. Алгоритм программы 8
3.2. Используемые процедуры 9
3.3. Описание компонентов 9
4. ПРИМЕНЕНИЕ ПРОГРАММЫ 12
4.1. Область применения 12
4.2. Описание программы 12
4.3. Инструкции по работе с программой 13
ЗАКЛЮЧЕНИЕ 16

Скачать полностью (348.77 Кб) Сколько стоит заказать работу?

Работа содержит 1 файл

Пояснительная записка.docx

— 413.60 Кб (Скачать)

    RadioButton1.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton1.Tag:=1 else RadioButton1.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton2.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton2.Tag:=1 else RadioButton2.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton3.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton3.Tag:=1 else RadioButton3.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton4.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton4.Tag:=1 else RadioButton4.Tag:=0; 

    Label2.Caption:=inttostr(strtoint(Label2.Caption)+1); 
 

    end; 

    procedure Ttesti.Button1Click(Sender: TObject);

    var i:integer;

        RB:TRadioButton;

        cena:string;

    begin

      if ((RadioButton1.Checked=true) or

      (RadioButton2.Checked=true) or

      (RadioButton3.Checked=true) or

      (RadioButton4.Checked=true) )

      then

      begin

      for i := 0 to GroupBox1.ControlCount-1 do

      begin

        RB:=TRadioButton(GroupBox1.Controls[i]);

        if RB.Checked=true then

        Label1.Caption:=inttostr(strtoint(Label1.Caption)+RB.Tag);

      end; 

      if strtoint(Label2.Caption)<11 then

      begin

        Vopros(strtoint(Label2.Caption));

        RadioButton1.Checked:=false;

        RadioButton2.Checked:=false;

        RadioButton3.Checked:=false;

        RadioButton4.Checked:=false;

      testi.Caption:='Тестирование. Вопрос '+inttostr(strtoint(Label2.Caption)-1)+' из 10';

      end else

      begin

        if strtoint(Label1.Caption)>9 then

        cena:='10' else

        if strtoint(Label1.Caption)>8 then

        cena:='9' else

        if strtoint(Label1.Caption)>7 then

        cena:='8' else

        if strtoint(Label1.Caption)>6 then

        cena:='7' else

        if strtoint(Label1.Caption)>5 then

        cena:='6' else

        if strtoint(Label1.Caption)>4 then

        cena:='5' else

        if strtoint(Label1.Caption)>3 then

        cena:='4' else

        if strtoint(Label1.Caption)>2 then

        cena:='3' else

        cena:='2'; 

        if MessageDlg('Набрано баллов '+Label1.Caption+'.'+#13+

        'Ваша оценка: '+cena+'!',

      mtConfirmation, [mbYes], 0)=mrYes then

      Form1.Visible:=true;

      testi.Close;

      Label2.Caption:='1';

      Label1.Caption:='0';

      RadioButton1.Checked:=false;

      RadioButton2.Checked:=false;

      RadioButton3.Checked:=false;

      RadioButton4.Checked:=false;

      end;

      end else

      showmessage('Вы не выбрали вариант ответа!');

    end; 

    procedure Ttesti.Button2Click(Sender: TObject);

    var i,kol:integer;

    begin

    For i:=1 to DataModule2.Vopros.RecordCount do

    begin

      DataModule2.Vopros.Edit;

      DataModule2.Vopros.FieldValues['Номер']:=i;

      DataModule2.Vopros.Post;

      DataModule2.Vopros.Next;

    end;

    DataModule2.Vopros.Last;

    kol:=DataModule2.Vopros.FieldValues['id']; 

      Randomize;

      SetLength(mass,kol);

      FillArray(mass); 

    Vopros(strtoint(Label2.Caption));

    testi.Caption:='Тестирование. Вопрос 1 из 10';

    end; 

    procedure Ttesti.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

      Form1.Visible:=true;

      Form1.Show;

    end; 

    end. 

 

    

       СПИСОК  ЛИТЕРАТУРЫ 

  1. Чеснокова О.В., Delphi 2007. Алгоритмы и программы. Самоучитель. – М.: НТ Пресс, 2008 – 368 с.
  2. Алексеев Е.Р., Чеснокова О.В., Турбо Паскаль 7.0, - М.: НТ Пресс, 2006 – 320 с.
  3. Бобровский С., Delphi 5: учебный курс, - СПб: Питер, 2001 – 640 с.
  4. Карчевская М.П., Рамбургер О.Л., Тархов С.В., Хамзина Е.А., Разработка приложений в среде Borland Delphi: лабораторный практикум по дисциплине "Информатика",- Уфа: УГАТУ, 2005.
  5. Интернет-издание, 32 урока: Borland Delphi или о том, что лучше один раз увидеть, чем сто раз услышать.
  6. Электронная книга. Архангельский А.Я., 100 компонентов общего назначения библиотеки Delphi 5.
  7. Сухарев - Основы Delphi. Профессиональный подход. – СПб.: Наука и Техника, 2004
  8. Шпак Ю.А. - Delphi 7 на примерах. – К.: Издательство Юниор, 2003

Информация о работе Тестирующая программа на языке Delphi

Связанные документы

Язык программирования

Программирование на языке VBA

Тестирующая программа в среде Delphi

Программирование на языке gpss и delphi

Простейшие программы на языке С++

Программная реализация на языке Delphi

Разработка программы на языке Паскаль

Использование языка программирования VBA

Похожие темы

Речь и язык

История языка

Развитие языка