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

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

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;