В режиме устный счёт:

1 Выберите знак действия;

2 Выберите количество операций;

3 Выберите максимальное число, которое возможно в примере;

4 Нажмите на кнопку "Сгенерировать";

5 Для проверки ответа нажмите на кнопку "Показать ответ".

Выход осуществляется при нажатии кнопки "Выход".

По нажатию пункта меню "Справка - О программе" открывается форма с описанием программы, информацией об авторе.

9. Проектирование

Для создания формы использовалась стандартная форма, предложенная в Delphi, на которую и были наложены другие элементы программы.

В самом начале любой программы, сделанной на Delphi, объявляется переменная формы(Form1), которую Delphi создаёт автоматически при создании проекта. Потом собственноручно объявляются две переменные (l,Chars) строкового типа(String). Так же объявляются три переменные (k,m,i) целочисленного типа(Integer) и одну переменную (rezult) типа (real). И дальше идут основные процедуры программы. Самая основная процедура- это процедура - Button1Click.

procedure TForm1.Button1Click(Sender: TObject);

var

rezult:real;

l,Chars:string;

k,m,i:integer;

begin

GroupBox5.Visible:=True;

Edit2.Visible:=False;

randomize;

Edit1.Text:=' ';

rezult:=0;

k:=random(SpinEdit2.Value);

m:=random(SpinEdit2.Value);

if k=0 then k:=1;

if m=0 then m:=1;

if CheckBox1.Checked=True then Chars:='+';

if CheckBox2.Checked=True then Chars:=Chars+'-';

if CheckBox3.Checked=True then Chars:=Chars+'/';

if CheckBox4.Checked=True then Chars:=Chars+'*';

l:=(Chars[1+Random(Length(Chars))]);

Edit1.Text:=IntToStr(k)+l+IntToStr(m);

if l='+' then rezult:=k+m;

if l='-' then rezult:=k-m;

if l='/' then rezult:=k/m;

if l='*' then rezult:=k*m;

if SpinEdit1.Value>1 then

begin

for i:=1 to (SpinEdit1.Value-1) do

begin

k:=random(SpinEdit2.Value);

if k=0 then k:=1;

if CheckBox1.Checked=True then Chars:='+';

if CheckBox2.Checked=True then Chars:=Chars+'-';

if CheckBox3.Checked=True then Chars:=Chars+'/';

if CheckBox4.Checked=True then Chars:=Chars+'*';

l:=(Chars[1+Random(Length(Chars))]);

if l='+' then rezult:=rezult+k;

if l='-' then rezult:=rezult-k;

if l='/' then rezult:=rezult/k;

if l='*' then rezult:=rezult*k;

if l='/' then Edit1.Text:='('+Edit1.Text+')';

if l='*' then Edit1.Text:='('+Edit1.Text+')';

Edit1.Text:=Edit1.Text+l+IntToStr(k);

end;

end;

Edit4.Text:=FloatToStr(rezult);

end;

Она непосредственно генерирует пример и выводит его на экран. Эта процедура начинает свою работу при нажатию кнопки "Сгенерировать" в верхней правой части окна программы. В основе этой процедуры заложены циклы которые определяют выбранный знак и генерируют пример с этим знаком. При нажатию кнопки "Показать ответ" в нижней части окна программы осуществляется вывод ответа в компоненте Edit2.

procedure TForm1.N3Click(Sender: TObject);

begin

form1.Close;

form2.Close;

end;

При нажатию кнопки "Выход" в верхней части окна программы, работа с программой заканчивается и она закрывается. При нажатию пункта меню "Справка - О программе" открывается ещё одна форма с описанием программы, информацией об авторе. Данная форма кнопку(Button) для закрытия этой формы. На форме располагаются 3 поля с надписью(Label).

Ниже приведена блок схема работы кнопки Button1 отвечающей за создание примера.

10. Тестирование и отладка

При тестировании программы отклонений от правильной работы не обнаружено. Все юниты работают исправно.

При отладке программы были исправлены недочеты в построение примеров. Программа готова к эксплуатации.

11. Руководство пользователя

В данном разделе приведено описание всех ключевых элементов панели Настройки

Операции - в данном разделе пользователь вводит какие операции устного счета будут в примере.

Количество операций - сколько действий будет в примере.

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

Вывод