Додаток г Лістинг модуля SumUnit

#include <vcl.h>

#pragma hdrstop

#include "SumUnit.h"

#include "FracUnit.h"

#include "CalculateFrac.h"

#include "Math.h"

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button2Click(TObject *Sender)

{Label3->Hide(); Label6->Hide();

Edit5->Hide(); Edit6->Hide(); Edit7->Hide();

Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear(); Edit5->Clear();

Edit6->Clear(); Edit7->Clear();

Button1->Enabled=true;

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button3Click(TObject *Sender)

{ SumForm->Close();

MainForm->Show();}

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button1Click(TObject *Sender)

{ int a,b,c,d;

if(((Edit1->Text).Length()==0)||((Edit2->Text).Length()==0)||

((Edit3->Text).Length()==0)||((Edit4->Text).Length()==0))

{

ShowMessage("Заповніть всі поля!");

return;

}

a=StrToInt(Edit1->Text);

b=StrToInt(Edit2->Text);

c=StrToInt(Edit3->Text);

d=StrToInt(Edit4->Text);

if((d==0)||(b==0))

{

ShowMessage("Ділення на нуль!!");

return;

}

Button1->Enabled=false; Label3->Show();

CalculateFrac *Calculate=new CalculateFrac;

Calculate->SubFrac(a,b,c,d);

if(Calculate->GetA()!=0)

{

Edit5->Show();

Edit5->Text=IntToStr(Calculate->GetA());

}

if(Calculate->GetP()!=0)

{

Edit6->Show(); Edit7->Show(); Label6->Show();

Edit6->Text=IntToStr(Calculate->GetP());

Edit7->Text=IntToStr(Calculate->GetQ());

}

if((Calculate->GetA()==0)&&(Calculate->GetP()==0))

{

Edit5->Show();

Edit5->Text="0";

}

}

Додаток д Лістинг модуля MulytUnit

#include <vcl.h>

#pragma hdrstop

#include "MultUnit.h"

#include "FracUnit.h"

#include "CalculateFrac.h"

#include "Math.h"

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button2Click(TObject *Sender)

{Label3->Hide(); Label6->Hide();

Edit5->Hide(); Edit6->Hide(); Edit7->Hide();

Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit4->Clear(); Edit5->Clear();

Edit6->Clear(); Edit7->Clear();

Button1->Enabled=true;

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button3Click(TObject *Sender)

{ SumForm->Close();

MainForm->Show();}

//---------------------------------------------------------------------------

void __fastcall TSumForm::Button1Click(TObject *Sender)

{ int a,b,c,d;

if(((Edit1->Text).Length()==0)||((Edit2->Text).Length()==0)||

((Edit3->Text).Length()==0)||((Edit4->Text).Length()==0))

{

ShowMessage("Заповніть всі поля!");

return;

}

a=StrToInt(Edit1->Text);

b=StrToInt(Edit2->Text);

c=StrToInt(Edit3->Text);

d=StrToInt(Edit4->Text);

if((d==0)||(b==0))

{

ShowMessage("Ділення на нуль!!");

return;

}

Button1->Enabled=false; Label3->Show();

CalculateFrac *Calculate=new CalculateFrac;

Calculate->Mult(a,b,c,d);

if(Calculate->GetA()!=0)

{

Edit5->Show();

Edit5->Text=IntToStr(Calculate->GetA());

}

if(Calculate->GetP()!=0)

{

Edit6->Show(); Edit7->Show(); Label6->Show();

Edit6->Text=IntToStr(Calculate->GetP());

Edit7->Text=IntToStr(Calculate->GetQ());

}

if((Calculate->GetA()==0)&&(Calculate->GetP()==0))

{

Edit5->Show();

Edit5->Text="0";

}

}