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

  if (persent>=60) and (persent<80) then

  form2.Label3.Caption:='3';

  if (persent>=0) and (persent<60) then

  form2.Label3.Caption:='2';

  end;

 

Button1.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Panel3.Visible:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

var

A : String;

Begin

 

 

  if MaskEdit1.Text='fktrcfylhdbrnjhjdbx' then

  Begin

  SaveTextFileDialog1.Execute;

  Memo1.Lines.LoadFromFile(SaveTextFileDialog1.FileName);

  Panel1.Visible:=true;

  Memo1.Visible:=true;

  MaskEdit1.Text:='';

  Label5.Visible:=true;

  End;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

A : String;

i: integer;

str :array[1..100] of char;

begin

i:=0;

memo1.Lines.Add(Edit4.Text);

memo1.Lines.Add(Edit1.Text);

memo1.Lines.Add(Edit2.Text);

memo1.Lines.Add(Edit3.Text);

if RadioGroup2.Buttons[0].Checked=true then

memo1.Lines.Add(Edit1.Text);

if RadioGroup2.Buttons[1].Checked=true then

memo1.Lines.Add(Edit2.Text); //(Edit3.Text

if RadioGroup2.Buttons[2].Checked=true then

memo1.Lines.Add(Edit3.Text);

{A:=Memo1.Lines.Strings[0];

i:=Length(A);

str:=; }

Edit4.Text:='';

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

 

Button4.Enabled:=false;

 

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Memo1.Lines.SaveToFile(SaveTextFileDialog1.FileName);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

RadioGroup1.Visible:=true;

Panel1.Visible:=false;

Panel2.Visible:=false;

Button9.Visible:=true;

Button1.Visible:=true;

Button8.Visible:=true;

Memo1.Visible:=false;

Label5.Visible:=false;

end;

 

procedure TForm1.Button8Click(Sender: TObject);

begin

Form1.Close();

  Form3.Close();

end;

 

procedure TForm1.Button9Click(Sender: TObject);

Var i,j: integer;

label M1 ;

begin

Button9.ShowHint:=false;

Panel4.Visible:=false;

BalloonHint1.HideHint;

if Button9.Caption='Начать тест заного' then

begin

 

  if Form3.ShowModal=MROK then

  begin

    form2.Label1.Caption:='';

    Count_VO:=0;

    Tek_VO:=0;

    Ocenka :=0;

    goto m1;

  end;

  if Form3.ShowModal=mrclose then

  begin

  end;

end;

 

if Button9.Caption='Начать тест' then

  begin

  Button9.Caption:='Начать тест заного';

  M1:

  RadioGroup1.Enabled:=true;

  SaveTextFileDialog1.Execute();

  Memo1.Lines.LoadFromFile(SaveTextFileDialog1.FileName);

  i:=0;

  j:=0;

  while i<Memo1.Lines.Count  do

    begin

    VO[j].Vopros:=Memo1.Lines.Strings[i];

    VO[j].var_1:=Memo1.Lines.Strings[i+1];

    VO[j].var_2:=Memo1.Lines.Strings[i+2];

    VO[j].var_3:=Memo1.Lines.Strings[i+3];

    VO[j].Pravelniy:=Memo1.Lines.Strings[i+4];

    j:=j+1;

    i:=i+5;

    Count_VO:=Count_VO+1;

    end;

    Form2.StringGrid1.RowCount:=Count_VO+1;

 

  RadioGroup1.Caption:=VO[0].Vopros;

  RadioGroup1.Items[0]:=VO[0].var_1;

  RadioGroup1.Items[1]:=VO[0].var_2;

  RadioGroup1.Items[2]:=VO[0].var_3;

end;

end;

 

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

label M1;

begin

if Form3.ShowModal=MROK then

begin

goto m1;

end;

Application.Run;

m1:

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

Count_VO:=0;

Tek_VO:=0;

Ocenka:=0;

BalloonHint1.ShowHint;

end;

 

procedure TForm1.N1Click(Sender: TObject);

begin

Panel2.Visible:=True;

RadioGroup1.Visible:=false;

Button9.Visible:=false;

Button1.Visible:=false;

Button8.Visible:=false;

Panel4.Visible:=false;

 

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

Panel3.Visible:=true;

Panel3.Width:=633;

Panel3.Height:=445;

Panel4.Visible:=false;

end;

 

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.Buttons[0].Checked=true then

  begin

  Button1.Enabled:=true;

  end;

if RadioGroup1.Buttons[1].Checked=true then

  begin

  Button1.Enabled:=true;

  end;

if RadioGroup1.Buttons[2].Checked=true then

  begin

  Button1.Enabled:=true;

  end;

end;

procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

if RadioGroup2.Buttons[0].Checked=true then

  begin

  Button4.Enabled:=true;

  end;

if RadioGroup2.Buttons[1].Checked=true then

  begin

  Button4.Enabled:=true;

 

  end;

if RadioGroup2.Buttons[2].Checked=true then

  begin

  Button4.Enabled:=true;

  end;

end;

end.

4.2 Результат выполнения

 

 

5 Отладка и испытание программы

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

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

Существует несколько методов  отладки программы:

1. Метод индукции - анализ программы от частного к общему. 
   Просматриваем симптомы ошибки и определяем данные, которые имеют к ней хоть какое-то отношение. Затем, используя тесты, исключаем маловероятные гипотезы, пока не остается одна, которую мы пытаемся уточнить и доказать.
2. Метод дедукции –от общего к частному. Выдвигаем гипотезу, которая может объяснить ошибку, пусть и не полностью. Затем при помощи тестов эта гипотеза проверяется и доказывается.
3. Обратное движение по алгоритму. 
   Отладка начинается там, где впервые встретился неправильный результат. Затем работа программы прослеживается (мысленно или при помощи тестов) в обратном порядке, пока не будет обнаружено место возможной ошибки.
4. Метод тестирования.

5.1 Допущенные ошибки при составление  программы

В ходе разработки программы были допущены следующие ошибки:

1. В таблице не отмечались правильные ответы.
2. Неправильное описание переменных.
3. последовательность вывода вопросов и вариантов ответа была не верной

 

5.2 Выявление ошибок;

1. Ошибка отметки правильных ответов была обнаружена при тестировании программы. Ошибка была исправлена переформированием алгоритма отметки правильных ответов.
2. Ошибка описания переменных была сразу обнаружена компилятором и исправлена.
3. последовательность  не верного вывода вопросов и вариантов ответа была не обнаружена при тестировании и была исправлена переформированием алгоритма их вывода.

 

 

 
5.3 Контрольный пример 

1 –  Прохождение теста 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
 

 

 

 

 

 

 

 

 

 

 
 
2 – Добавление вопросов

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9 Вывод

 

 

 Я написала программу в  соответствии с общепринятыми  этапами разработки

программных продуктов, оформила  документацию в соответствии с ЕСПД.