Заключение
В результате выполнения курсовой работы было создано приложение на тему «Статистические диаграммы», которое позволяет проанализировать данные в визуальном оформление.
Работа выполнялось в несколько этапов:
разработка технического задания;
рабочее проектирование;
создание программы.
В результате выполнения первого этапа было утверждено техническое задание на разработку программного продукта «Определение вида треугольника».
В результате проектирования реализована функциональная диаграмма и её уточнение, а также функциональная схема приложения. Исходя, из функциональной схемы, был создан электронный прототип программы, то есть макет программы, разработанный в среде Вогiапа Ее1р1iiс использованием компонентов среды без написания программного кода. Прототип программы был доработан в разделе пояснительной записки «Описание графического интерфейса пользователя».
На этапе создания реализовано приложение, которое выполняет функции:
1) ввод исходные данные;
2) проверка вводимых данных;
З) определение вида треугольника;
4) справочной системы.
А также выполнено тестирование программы на персональных компьютерах с разными характеристиками и создана инструкция пользователя.
В результате проделанной работы мною достигнута поставленная цель и задачи.
Список используемой литературы
Программа
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, ImgList, jpeg;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Image1: TImage;
PopupMenu1: TPopupMenu;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
p,pl,plo,m:real;
begin
try
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.text);
c:=StrToInt(Edit3.text);
// Image1.Visible:=false;
except
on EConvertError do
begin
MessageDlg('Ошибка ввода. Введена не цифра',mtError,mbOKCancel,0);
Exit;
end;
end;
if (a=b) and (b=c) and (a=c) then
begin
p:=a+b+c;
pl:=p/2;
Image1.Picture.LoadFromFile('x_79462021.bmp');
Label4.Caption:='Периметр: '+ FloatToStr(p);
plo:=sqrt(p*(p-a)*(p-b)*(p-c));
Label5.Caption:='Площадь: '+ FloatToStrF(plo,ffGeneral,5,10);
m:=1/2*sqrt(sqr(a)+sqr(b));
Label7.Caption:='Медиан: '+ FloatToStrF(m,ffGeneral,5,10);
Image1.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
Label7.Visible:=true;
end;
if not(a=b) and not(b=c) and not(a=c)then
begin
p:=a+b+c;
pl:=p/2;
Image1.Picture.LoadFromFile('x_fde1e6a2.bmp');
Label4.Caption:='Периметр: '+ FloatToStr(p);
plo:=sqrt(p*(p-a)*(p-b)*(p-c));
Label5.Caption:='Площадь: '+ FloatToStrF(plo,ffGeneral,5,10);
m:=1/2*sqrt(sqr(a)+sqr(b));
Label7.Caption:='Медиан: '+ FloatToStrF(m,ffGeneral,5,10);
Image1.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
Label7.Visible:=true;
end;
if (a=b) or (b=c) or (c=a) then
begin
p:=a+b+c;
pl:=p/2;
Image1.Picture.LoadFromFile('x_eddc7bc7.bmp');
Label4.Caption:='Периметр: '+ FloatToStr(p);
plo:=sqrt(p*(p-a)*(p-b)*(p-c));
Label5.Caption:='Площадь: '+ FloatToStrF(plo,ffGeneral,5,10);
m:=1/2*sqrt(sqr(a)+sqr(b));
Label7.Caption:='Медиан: '+ FloatToStrF(m,ffGeneral,5,10);
Image1.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
Label7.Visible:=true;
end;
if (a+b=c) or (b+c=a) or (a+b=c) then
begin
p:=a+b+c;
pl:=p/2;
Image1.Picture.LoadFromFile('x_25989f26.bmp');
Label4.Caption:='Периметр: '+ FloatToStr(p);
plo:=sqrt(p*(p-a)*(p-b)*(p-c));
Label5.Caption:='Площадь: '+ FloatToStrF(plo,ffGeneral,5,10);
m:=1/2*sqrt(sqr(a)+sqr(b));
Label7.Caption:='Медиан: '+ FloatToStrF(m,ffGeneral,5,10);
Image1.Visible:=true;
Label4.Visible:=true;
Label5.Visible:=true;
Label7.Visible:=true;
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
SetFocus;
Image1.Visible:=false;
Label4.Visible:=false;
Label5.Visible:=false;
Label7.Visible:=false;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Application.HelpFile:=('MyHelp.hlp');
Application.HelpCommand(HELP_FINDER,0);
end;
end.