Курсовая работа: Создание устного счета на языке Паскаль

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).