- •Міністерство освіти і науки україни
- •Природничо-гуманітарний коледж
- •Закарпатського державного університету
- •Реєстраційний номер ___________
- •Курсова робота з дисципліни
- •Допущено до захисту Науковий керівник:
- •Ужгород 2013
- •1 Теоретична частина
- •1.1 Загальні відомості
- •1.2 Опис предметної області та постановка задачі
- •1.3 Обґрунтування вибору методу розв’язку задачі
- •2 Практична частина
- •2.1 Порядок виконання роботи
- •2.1.2 Використані компоненти
- •Список використаної літератури
- •Додаток 1. Лістинг програми
Список використаної літератури
С. А. Немнюгин. С++. Учебник
Ю. А. Шпак. С++ на примерах
С.Немнюгин, Л.Перколаб, "Изучаем С++l"
Касаткин А.И., Вальвачев А.Н. Профессиональное программирование на языке С++. Мн., 1992. 240 С.
Бруно Бабэ. Просто и ясно о Borland C++. М., 1996. 400 С.
Справочник по классам Borland C++ 6.0. К., 1994. 256 С.
ObjectWindows для C++. К., 1993, 208 С.
Никита Культин. C++ Builder, BHV 2012. 464 С.
Архангельский. Компоненты C++Builder. Справочное и методическое пособие. Бином-Пресс 2008, 960 С.
Програмированние на C++Builder. 7-ой издание. А.К., Бином 2010, 1364 С.
Кнут Д. Искусство программирования для ЭВМ. Т.1,Основные алгоритмы. Пер. с англ. М: Мир,1976
Кнут Д. Искусство программирования для ЭВМ. Т.2,Получисленные алгоритмы. Пер. с англ. М: Мир,1977
Смелов А.А. Методические указания по оформлению дипломных и курсовых проектов (работ). – Мелитополь: ТГАТА, 1999. – 31с.: ил.
Буч Г. Объектно-ориентированный анализ и проектирование с примерами приложений на С++, 2-е изд./Пер. с англ. - М.: ”Издательство БИНОМ”, СПб: ”Невский проект”,1998-560с.
Страуструп Б. Язык программирования С++,3-е изд./Пер. с англ. - СПб.: ”Невский Диалект” - ”Издательство БИНОМ”,1999г.-991с
Додаток 1. Лістинг програми
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include <string.h>
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double a[100];
int i=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
/*char * c = Edit1->Text.c_str();
String b=Edit1->Text;
char str[] = c;
char delims[] = "#";
char *result = NULL;
result = strtok( str, delims );
while( result != NULL ) {
// printf( "result is \"%s\"\n", result );
result = strtok( NULL, delims );
Memo1->Lines->Add(result);
}
*/
/* Edit1->Text+=" ";
int string_len = Edit1->Text.Length();
char *string = new char[string_len];
memset(string, 0, string_len);
string = Edit1->Text.c_str();
Memo1->Lines->Add( AnsiString(string));
Memo1->Lines->Add(string); */
int string_len = Edit1->Text.Length();
String b=Edit1->Text;
char *str = new char[string_len];
memset(str, 0, string_len);
str = Edit1->Text.c_str();
char delims[] = "+";
char *result = NULL;
result = strtok( str, delims );
while( result != NULL ) {
// printf( "result is \"%s\"\n", result );
result = strtok( NULL, delims );
Memo1->Lines->Add(result);
}
}
//---------------------------------------------------------------------------
/*double insertSort(double t[], size_t length) {
int k, l, value;
for(k = 1; k < length; k++) {
value = a[i];
for (l = k - 1; l >= 0 && t[l] > value; l--) {
t[l + 1] = t[l];
}
t[l + 1] = value;
}
} */
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit3->Text=Edit3->Text+Edit2->Text+" | ";
a[i]=StrToFloat(Edit2->Text);
i++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (CheckBox1->Checked==true){ double summ=0;
int h=1;
while(h<i-1){
summ=summ+a[h];
h=h+1;
}
summ=summ/i;
Memo1->Lines->Add(CheckBox1->Caption+" - "+ FloatToStr(summ));
}
if (CheckBox2->Checked==true){
double min=a[1];
int h=1;
while(h<i){
if (a[h]<min){min=a[h];}
h=h+1;
}
Memo1->Lines->Add(CheckBox2->Caption+" - "+ FloatToStr(min));
}
if (CheckBox3->Checked==true){
double max=a[1];
int h=1;
while(h<i){
if (a[h]>max){max=a[h];}
h=h+1;
}
Memo1->Lines->Add(CheckBox3->Caption+" - "+ FloatToStr(max));
}
if (CheckBox4->Checked==true){
int h,y; bool check=false;
while(h<i){
check=false;
for (int t=2; t==a[h]-1; t++){
y = static_cast<int>(a[h]);
if (y%t==0){check=true; break;}
}
if (check==false){Memo1->Lines->Add(FloatToStr(a[h]));}
h++;
}
}
if (CheckBox5->Checked==true){
double fel=i/2;
int y = static_cast<int>(fel);
Memo1->Lines->Add(CheckBox5->Caption+" - "+ FloatToStr(a[y]));
}
if (CheckBox8->Checked==true){ int h=1;int y;
Memo1->Lines->Add(CheckBox8->Caption+" : ");
while(h<i){
y = static_cast<int>(a[h]);
if (y%2==0){Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";}
h=h+1;
}
}
if (CheckBox9->Checked==true){ int h=1;int y;
Memo1->Lines->Add(CheckBox9->Caption+" : ");
while(h<i){
y = static_cast<int>(a[h]);
if (y%2!=0){Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";}
h=h+1;
}
}
if (CheckBox10->Checked==true){
int h=1; int summ=0;
while(h<i){
summ=summ+a[h];
h=h+1;
}
Memo1->Lines->Add(CheckBox10->Caption+" - "+ FloatToStr(summ));}
if (CheckBox11->Checked==true){int h=1; int summ=1;
while(h<i){
summ=summ*a[h];
h=h+1;
}
Memo1->Lines->Add(CheckBox11->Caption+" - "+ FloatToStr(summ));}
if (CheckBox14->Checked==true){ Memo1->Lines->Add(CheckBox14->Caption+" : ");
int h=i-1; int summ=0;
while(h!=0){
Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";
h=h-1;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
if (CheckBox1->Checked==true){ double summ=0;
int h=1;
while(h<i-1){
summ=summ+a[h];
h=h+1;
}
summ=summ/i;
Memo1->Lines->Add(CheckBox1->Caption+" - "+ FloatToStr(summ));
}
if (CheckBox2->Checked==true){
double min=a[1];
int h=1;
while(h<i){
if (a[h]<min){min=a[h];}
h=h+1;
}
Memo1->Lines->Add(CheckBox2->Caption+" - "+ FloatToStr(min));
}
if (CheckBox3->Checked==true){
double max=a[1];
int h=1;
while(h<i){
if (a[h]>max){max=a[h];}
h=h+1;
}
Memo1->Lines->Add(CheckBox3->Caption+" - "+ FloatToStr(max));
}
if (CheckBox4->Checked==true){
int h,y; bool check=false;
while(h<i){
check=false;
for (int t=2; t==a[h]-1; t++){
y = static_cast<int>(a[h]);
if (y%t==0){check=true; break;}
}
if (check==false){Memo1->Lines->Add(FloatToStr(a[h]));}
h++;
}
}
if (CheckBox5->Checked==true){
double fel=i/2;
int y = static_cast<int>(fel);
Memo1->Lines->Add(CheckBox5->Caption+" - "+ FloatToStr(a[y]));
}
if (CheckBox8->Checked==true){ int h=1;int y;
Memo1->Lines->Add(CheckBox8->Caption+" : ");
while(h<i){
y = static_cast<int>(a[h]);
if (y%2==0){Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";}
h=h+1;
}
}
if (CheckBox9->Checked==true){ int h=1;int y;
Memo1->Lines->Add(CheckBox9->Caption+" : ");
while(h<i){
y = static_cast<int>(a[h]);
if (y%2!=0){Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";}
h=h+1;
}
}
if (CheckBox10->Checked==true){
int h=1; int summ=0;
while(h<i){
summ=summ+a[h];
h=h+1;
}
Memo1->Lines->Add(CheckBox10->Caption+" - "+ FloatToStr(summ));}
if (CheckBox11->Checked==true){int h=1; int summ=1;
while(h<i){
summ=summ*a[h];
h=h+1;
}
Memo1->Lines->Add(CheckBox11->Caption+" - "+ FloatToStr(summ));}
if (CheckBox14->Checked==true){ Memo1->Lines->Add(CheckBox14->Caption+" : ");
int h=i-1; int summ=0;
while(h!=0){
Memo1->Text=Memo1->Text+FloatToStr(a[h])+"; ";
h=h-1;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Memo1->Clear();
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sl1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::r1Click(TObject *Sender)
{
AboutBox->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
PagesDlg->Show();
}
//---------------------------------------------------------------------------
