1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
| #include <vcl.h> //подключение библиотеки vcl
#pragma hdrstop
//#include <fstream> //подключение библиотеки для работы с файлами
//#include <iomanip.h> //подключение библиотеки манипуляторов
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; //указатель на экземпляр формы
int *NP,*P,n,i,j,b,maxx,nom;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender) //ф-я на изменение в Edit2
{
//размерность массива//
n=StrToInt(Edit2->Text); //преобразование текста из EDIT2 в целое число
P=new int[n]; //создание массива с размерностью n
NP=new int[n]; //создание массива с размерностью n
StringGrid1->ColCount=n; //установка кол-ва колонок равным n
StringGrid2->ColCount=n; //установка кол-ва колонок равным n
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender) //ф-я по щелчку на Button3
{
//заполнение массива//
for(i=0;i<n;i++)
StringGrid1->Cells[i][0]=random(n); //заполнение поля StrinGrid1 произвольными числами
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) //ф-я по щелчку на Button1
{ //обменная сортировка//
DWORD start=GetTickCount(); //получение кол-ва милисекунд с начала работы программы
for (i=0;i<n;i++)
NP[i]=StrToInt(StringGrid1->Cells[i][0]); //заполнение массива из первого столбца StringGrid1
for (i=0;i<n;i++) P[i] = NP[i]; //копирование одного массива в другой
for (j=0; j<n; j++)
for (i=0;i<n-j-1; i++)
if (P[i]>P[i+1]) //сортировка массива P по возрастанию
{
b=P[i];
P[i]=P[i+1];
P[i+1]=b;
} //конец сортировки
Edit1->Text=FloatToStr((GetTickCount()-start)/1000.); //заполнение Edit1 кол-вом секунд с начала работы программы
for (i=0;i<n;i++)
StringGrid2->Cells[i][0]=FloatToStr(P[i]); //заполнение первого столбца StringGrid2 из массива P
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender) //ф-я по нажатию на Button4
{
delete[] P; delete NP; //высвобождение ресурсов, выделенных под массивы
Form1->Close(); //закрытие формы
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Сортировка выбором//
DWORD start=GetTickCount();
for (i=0;i<n;i++)
NP[i]=StrToInt(StringGrid1->Cells[i][0]);
for (i=0;i<n;i++) P[i] = NP[i];
for (j=0; j<n; b=P[n-j-1],P[n-j-1]=P[nom],P[nom]=b,j++) //Сортировка выбором
for (maxx=P[0], nom=0, i=1; i<n-j;i++)
if (P[i]>maxx)
{
maxx=P[i]; nom=i;
} //конец сортировки
for (i=0; i<n; i++)
Edit1->Text=FloatToStr((GetTickCount()-start)/1000.); //заполнение Edit1 кол-вом секунд с начала работы программы
for (i=0;i<n;i++) StringGrid2->Cells[i][0]=FloatToStr(P[i]); //заполнение первого столбца StringGrid2 из массива P
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{//сохранение в файл//
int iFileHandle;
AnsiString cp;
cp = "Несортированный массив:";
for (i = 0; i < n; i ++) cp = cp + " " + IntToStr(NP[i]); //конкатенация переменной cp и элементов массива NP
cp += "\r\n"; //конкатенация строки с возвратом каретки и переходом на новую строку
cp += "\r\n"; //конкатенация строки с возвратом каретки и переходом на новую строку
cp += "Сортированный массив:";
for (i = 0; i < n; i ++) cp = cp + " " + IntToStr(P[i]); //конкатенация переменной cp и элементов массива P
cp += "\r\n"; //конкатенация строки с возвратом каретки и переходом на новую строку
cp += "\r\n"; //конкатенация строки с возвратом каретки и переходом на новую строку
cp += "Время сортировки: "; cp += Edit1->Text; //конкатенация строки и времени проведения сортировки из Edit1
if (SaveDialog1->Execute()) //проверка на вызов диалогового окна сохранения
{
iFileHandle = FileCreate(SaveDialog1->FileName); // создание файла
FileWrite(iFileHandle, cp.c_str(), cp.Length()); // запись в файл, заголовок созданного файла, преобразование типа в char, длина строки
}
FileClose(iFileHandle); // Закрытие файла
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender) //ф-я по нажатию на Button6
{//чтение из файла//
int iFileHandle, iFileLength, nn;
AnsiString cp;
char *buf;
if (OpenDialog1->Execute()) //проверка на вызов диалогового окна открытия файла
{
iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead); //ф-я открытия файла
iFileLength = FileSeek(iFileHandle, 0, 2);
FileSeek(iFileHandle, 0, 0); //установка начала чтения на начало файла
buf = new char[iFileLength]; //динамич выделение памяти под строку
FileRead(iFileHandle, buf, iFileLength); //ф-я чтения файла вв переменную buff
}
FileClose(iFileHandle); // Закрытие файла
nn=0;
for (i=0;i<iFileLength;i++) if (buf[i] == ' ') nn ++; //если символ - пробел, то инкремент счетчика
StringGrid1->ColCount=nn; //установка кол-ва колонок StringGrid1 равным кол-ву пробелов
Edit2->Text = IntToStr(nn); //вывод кол-ва пробелов в Edit2
nn=0;
for (i=0;i<iFileLength;i++)
{
if (buf[i] == ' ')
{
StringGrid1->Cells[nn][0] = cp; //если символ - пробел, то првый столбец StringGrid1 приравнивается пустой строке
cp = "";
nn++;
}
else cp += buf[i]; //или присваивается этому символу
}
delete[] buf; //освобождение ресурсов, выделенных под перменную buff
} |
(
