Помогите с комментариями к программе

@Predator · Регистрация: 25.12.2008

Студворк — интернет-сервис помощи студентам

Очень прошу помочь сделать подробные комментарии к уже готовой программе, написанной в билдере! Это надо для оформления курсовика! Мне просто помогал знакомый делать, объяснял все, я пытался запомнить! но сейчас он уехал в другой город на недели 2, поэтому мне не у кого просить помощи! остается только надеяться на этот замечательный форум! если найдутся отзывчивые люди, то я вылажу сюда код программы! а могу и саму прогу выложить! ЗАРАНИЕ СПАСИБО! надеюсь на вашу отзывчивость

@SVEN · 23.04.2008, 19:00

Выкладывай исходники, посмотрим. И напиши сроки, когда тебе нужны комментарии.

@Predator · 23.04.2008, 21:21 **[ТС]**

C++
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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
//---------------------------------------------------------------------------
 
#include <vcl.h>
#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)
{
//размерность массива//
n=StrToInt(Edit2->Text);
P=new int[n];
NP=new int[n];
StringGrid1->ColCount=n;
StringGrid2->ColCount=n;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
//заполнение массива//
for(i=0;i<n;i++)
StringGrid1->Cells[i][0]=random(n);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(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; j++)
   for (i=0;i<n-j-1; i++)
    if (P[i]>P[i+1])
      {
       b=P[i];
       P[i]=P[i+1];
       P[i+1]=b;
      }
  Edit1->Text=FloatToStr((GetTickCount()-start)/1000.);
  for (i=0;i<n;i++)
  StringGrid2->Cells[i][0]=FloatToStr(P[i]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   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.);
     for (i=0;i<n;i++) StringGrid2->Cells[i][0]=FloatToStr(P[i]);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{//сохранение в файл//
 int iFileHandle;
 AnsiString cp;
 
 cp = "Несортированный массив:";
 for (i = 0; i < n; i ++) cp = cp + " " + IntToStr(NP[i]);
 cp += "\r\n";
 cp += "\r\n";
 
 cp += "Сортированный массив:";
 for (i = 0; i < n; i ++) cp = cp + " " + IntToStr(P[i]);
 cp += "\r\n";
 cp += "\r\n";
 cp += "Время сортировки: "; cp += Edit1->Text;
 
 if (SaveDialog1->Execute())
     {
        iFileHandle = FileCreate(SaveDialog1->FileName); // создание файла
        FileWrite(iFileHandle, cp.c_str(), cp.Length()); // запись в файл, заголовок созданного файла, преобразование типа в char, длина строки
     }
 FileClose(iFileHandle); // Закрытие файла
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{//чтение из файла//
 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);
     }
 FileClose(iFileHandle);
 
 nn=0;
 for (i=0;i<iFileLength;i++) if (buf[i] == ' ') nn ++;
 StringGrid1->ColCount=nn;
 Edit2->Text = IntToStr(nn);
 
 nn=0;
 for (i=0;i<iFileLength;i++)
   {
      if (buf[i] == ' ')
        {
           StringGrid1->Cells[nn][0] = cp;
           cp = "";
           nn++;
        }
      else cp += buf[i];
   }
 
 delete[] buf;
 
}
//---------------------------------------------------------------------------

Так то у мну уже есть комменты, но если Вы напишите, то скажу только спасибо! К выходным, а именно к субботе желательно выложить с комментами! потому что я на выходных начну оформлять курсовик! Зарание спасиб

@SVEN · 23.04.2008, 21:28

Я постараюсь к выходным, но на 100% не гарантирую

@Predator · 23.04.2008, 21:39 **[ТС]**

хорошо, спасибо, буду ждать

@SVEN · 25.04.2008, 00:50

C++
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
}

Единственное, я не уверен насчет ф-ции GetTickCount(), по логике она возвращает время в милисекундах с начала работы программы, но в MSDN написано, что возвращает время с начала работы системы в милисекундах.

@Predator · 25.04.2008, 16:19 **[ТС]**

ОГРОМНОЕ СПАСИБО! Я И НЕ РАССЧИТЫВАЛ НА ТАКИЕ ПОДРОБНЫЕ КОММЕНТЫ! РЕСПЕКТ!

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@Predator 0 / 0 / 0 Регистрация: 25.12.2008 Сообщений: 16

	Помогите с комментариями к программе 23.04.2008, 13:57. Показов 2003. Ответов 6 Метки нет (Все метки) Очень прошу помочь сделать подробные комментарии к уже готовой программе, написанной в билдере! Это надо для оформления курсовика! Мне просто помогал знакомый делать, объяснял все, я пытался запомнить! но сейчас он уехал в другой город на недели 2, поэтому мне не у кого просить помощи! остается только надеяться на этот замечательный форум! если найдутся отзывчивые люди, то я вылажу сюда код программы! а могу и саму прогу выложить! ЗАРАНИЕ СПАСИБО! надеюсь на вашу отзывчивость 0

@SVEN 10 / 3 / 7 Регистрация: 25.03.2008 Сообщений: 50
	23.04.2008, 19:00
	Выкладывай исходники, посмотрим. И напиши сроки, когда тебе нужны комментарии. 0

@SVEN 10 / 3 / 7 Регистрация: 25.03.2008 Сообщений: 50
	23.04.2008, 21:28
	Я постараюсь к выходным, но на 100% не гарантирую 0

@Predator 0 / 0 / 0 Регистрация: 25.12.2008 Сообщений: 16
	23.04.2008, 21:39 [ТС]
	хорошо, спасибо, буду ждать 0

@Predator 0 / 0 / 0 Регистрация: 25.12.2008 Сообщений: 16
	25.04.2008, 16:19 [ТС]
	ОГРОМНОЕ СПАСИБО! Я И НЕ РАССЧИТЫВАЛ НА ТАКИЕ ПОДРОБНЫЕ КОММЕНТЫ! РЕСПЕКТ! 0