Разработка программы создания и уничтожения объектов в среде C++Builder
Разработка прикладной программы для операций создания и уничтожения объектов в системе визуального объектно-ориентированного программирования C++Builder. Алгоритм работы программы, набор функций и операторов, компонент и модулей, кнопки событий.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 16.08.2012 |
| Размер файла | 672,5 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
case 3:
{
while(Isx!=0)
{
IntBuf=(Isx%8);
Isx=Isx/8;
StringBuf=StringBuf+IntToStr(IntBuf);
}
n=StringBuf.Length();
for(i=n;i>0;i--)
RevBuf=RevBuf+StringBuf[i];
StringBuf=RevBuf;
}
break;
}
if(StringBuf=="")
StringBuf=0;
return(StringBuf);
}
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Листинг 3. Код модуля обработки обычных/десятичных дробей Unit3.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button7Click(TObject *Sender)
{
Edit4->Text=Form1->Edit4->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
unsigned int D1=0,D2=0,D3=0,Nod=1;
D1=StrToInt(Edit1->Text);
D2=StrToInt(Edit2->Text);
D3=StrToInt(Edit3->Text);
D2=D1*D3+D2;
D1=0;
Nod=FindNOD(D2,D3);
D2=D2/Nod;
D3=D3/Nod;
if(DState==0)
{
if(D2>D3)
{
D1=D2/D3;
D2=D2%D3;
}
Edit1->Text=D1;
Edit2->Text=D2;
Edit3->Text=D3;
}
else
{
Edit1->Text=D1;
Edit2->Text=D2;
Edit3->Text=D3;
}
if(DState==0)
DState=1;
else
DState=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
double Data,Drob;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
Data=StrToFloat(Edit4->Text);
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit1->Text=Cel;
Edit2->Text=Fract/Nod;
Edit3->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button8Click(TObject *Sender)
{
Edit1->Text="0";
Edit2->Text="0";
Edit3->Text="0";
Edit4->Text="0";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Form1->Edit4->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
{
Form1->Edit4->Text=Edit4->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
{
unsigned int D1=0,D2=0,D3=0,Nod=1;
D1=StrToInt(Edit5->Text);
D2=StrToInt(Edit6->Text);
D3=StrToInt(Edit7->Text);
D2=D1*D3+D2;
D1=0;
Nod=FindNOD(D2,D3);
D2=D2/Nod;
D3=D3/Nod;
if(DState==0)
{
if(D2>D3)
{
D1=D2/D3;
D2=D2%D3;
}
Edit5->Text=D1;
Edit6->Text=D2;
Edit7->Text=D3;
}
else
{
Edit5->Text=D1;
Edit6->Text=D2;
Edit7->Text=D3;
}
if(DState==0)
DState=1;
else
DState=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button10Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
a=D1+D2/D3;
Edit8->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button11Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
a=D1+D2/D3;
Form1->Edit4->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button16Click(TObject *Sender)
{
Edit5->Text="0";
Edit6->Text="0";
Edit7->Text="0";
Edit8->Text="0";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button15Click(TObject *Sender)
{
Edit8->Text=Form1->Edit4->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button14Click(TObject *Sender)
{
Form1->Edit4->Text=Edit8->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button13Click(TObject *Sender)
{
float a,D1,D2,D3;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
a=D1+D2/D3;
Edit8->Text=a;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{
double Data,Drob;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
Data=StrToFloat(Edit8->Text);
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit5->Text=Cel;
Edit6->Text=Fract/Nod;
Edit7->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button17Click(TObject *Sender)
{
double Data,Drob;
float a,b,D1,D2,D3;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
b=D1+D2/D3;
Edit8->Text=b;
a=a+b;
Data=a;
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit1->Text=Cel;
Edit2->Text=Fract/Nod;
Edit3->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button18Click(TObject *Sender)
{
double Data,Drob;
float a,b,D1,D2,D3;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
b=D1+D2/D3;
Edit8->Text=b;
a=a-b;
Data=a;
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit1->Text=Cel;
Edit2->Text=Fract/Nod;
Edit3->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button19Click(TObject *Sender)
{
double Data,Drob;
float a,b,D1,D2,D3;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
b=D1+D2/D3;
Edit8->Text=b;
a=a*b;
Data=a;
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit1->Text=Cel;
Edit2->Text=Fract/Nod;
Edit3->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button20Click(TObject *Sender)
{
double Data,Drob;
float a,b,D1,D2,D3;
long int Cel,Mnoj,Nod,Fract;
AnsiString Buf;
D1=StrToFloat(Edit1->Text);
D2=StrToFloat(Edit2->Text);
D3=StrToFloat(Edit3->Text);
a=D1+D2/D3;
Edit4->Text=a;
D1=StrToFloat(Edit5->Text);
D2=StrToFloat(Edit6->Text);
D3=StrToFloat(Edit7->Text);
b=D1+D2/D3;
Edit8->Text=b;
a=a/b;
Data=a;
Cel=Data;
Drob=Data-Cel;
Buf=FloatToStr(Drob);
Mnoj=pow(10,Buf.Length()-2);
Drob=Drob*Mnoj;
Fract=Drob;
Nod=FindNOD(Fract,Mnoj);
Edit1->Text=Cel;
Edit2->Text=Fract/Nod;
Edit3->Text=Mnoj/Nod;
}
//---------------------------------------------------------------------------
Размещено на Allbest.ru
Подобные документы
Разработка приложения "Ведомость начисления заработной платы" в среде программирования C++Builder. Алгоритм и сценарий работы программы. Проектирование интерфейса пользователя. Написание программных модулей и результаты тестирования данной программы.
курсовая работа [597,4 K], добавлен 31.01.2016Создание и реализация программы в среде визуального программирования С++ Builder. Разработка ее алгоритма. Описание компонентов и их свойств, используемых в структуре приложения. Создание кнопок создания турниров по круговой системе и на выбывание.
курсовая работа [4,6 M], добавлен 12.11.2013Разработка программы для рисования различных правильных многоугольников с помощью объектно-ориентированного языка программирования. Использование для разработки среды C++ Builder 6 и библиотеки VCL. Разработка интерфейса приложения и алгоритма его работы.
курсовая работа [616,4 K], добавлен 18.10.2010Интегрированная среда программирования C++ Builder 6. Методы вычерчивания графических примитивов. Основные свойства инструментов рисования. Разработка рисунка паутины с центром в точке с произвольным числом лучей. Алгоритм программы в виде блок-схемы.
курсовая работа [842,5 K], добавлен 13.10.2017Алгоритм и блок-схема процесса обработки в диалоговой программе, вычисляющей площадь треугольника. Описание объектов, свойств, методов программы в среде визуального программирования С++ Builder. Формы и основные модули текста разработанной программы.
курсовая работа [2,2 M], добавлен 01.06.2014Разработка программы по оформлению заказов на билеты Оренбургского государственного областного драматического театра им. Горького. Использование объектно-ориентированного программирования и реализация проекта в среде визуального программирования Delphi 7.
курсовая работа [6,3 M], добавлен 12.11.2014Основные программы, функционирующие в среде Windows и поддерживающие диалоговые окна и другие возможности. Разработка программы на языке Builder C++ 6.0, осуществляющей выдачу сообщения в заданное время. Описание ее алгоритмов. Общие сведения о IBM PC.
курсовая работа [49,1 K], добавлен 13.11.2009Изучение базовых понятий объектно-ориентированного программирования. Исследование принципов работы с классами и объектами. Построение системы классов для описания плоских геометрических фигур. Анализ методов создания объектов, перемещения на плоскости.
лабораторная работа [212,0 K], добавлен 10.03.2013Математическое описание операций преобразования плоских фигур. Выбор и обоснование языка программирования и среды разработки. Задание базовой фигуры. Разработка алгоритма работы программы. Проверка корректности работы программы в различных режимах.
курсовая работа [567,6 K], добавлен 13.10.2014Разработка программы для сбора и анализа информации об автобусах на парковке. Назначение и область применения. Алгоритм в словесной форме. Состав технических и программных средств. Разработка приложения в среде визуального программирования C++Builder 6.
курсовая работа [1,5 M], добавлен 06.09.2014
