Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Практична робота № 1

Тема: компоненти для робот із масивами.

Мета: ознайомитися з інтерфейсом Builder C++ 6.0; навчитися створювати прості додатки для реалізації для обробки масивів за допомогою спеціальних елементів.

Задание №1:

TForm1 *Form1; const int n=8; int i=0; float mas[n]; … void __fastcall TForm1:: Button1Click(TObject *Sender) { mas[i]=StrToFloat(el-> Text); if (i< n-1) el_n-> Caption=" Введите " +IntToStr(i+2)+" элемент"; if (i==n) ShowMessage(" В массиве может быть " +IntToStr(n)+" элементов"); i++; } //---------------------------------------------------------------------------   void __fastcall TForm1:: Button2Click(TObject *Sender) { Mas-> Caption=" "; for (int j=0; j< n; j++) Mas-> Caption=Mas-> Caption+" mas[" +IntToStr(j)+" ]=" +FloatToStr(mas[j])+" \n";   }

 

Задание №2:

TForm1 *Form1; const int n=8; int i=0; float mas[n]; … void __fastcall TForm1:: Button1Click(TObject *Sender) { mas[i]=StrToFloat(el-> Text); if (i< n-1) el_n-> Caption=" Введите " +IntToStr(i+2)+" элемент"; if (i==n) ShowMessage(" В массиве может быть " +IntToStr(n)+" элементов"); i++; } //---------------------------------------------------------------------------   void __fastcall TForm1:: Button2Click(TObject *Sender) { Mas-> Lines-> Text=" "; for (int j=0; j< n; j++) Mas-> Lines-> Add(" mas[" +IntToStr(j)+" ]=" +FloatToStr(mas[j])+" \n");   }}

 

Задание №3:

TForm1 *Form1; const int n=8; int i=0; float mas[n]; … void __fastcall TForm1:: elKeyPress(TObject *Sender, char & Key) { if(Key == 13){ mas[i]=StrToFloat(el-> Text); if (i< n-1) el_n-> Caption=" Введите " +IntToStr(i+2)+" элемент"; if (i==n) ShowMessage(" В массиве может быть " +IntToStr(n)+" элементов"); i++; } } //--------------------------------------------------------------------------- void __fastcall TForm1:: Button2Click(TObject *Sender) { Mas-> Lines-> Text=" "; for (int j=0; j< n; j++) Mas-> Lines-> Add(" mas[" +IntToStr(j)+" ]=" +FloatToStr(mas[j])+" \n"); }

 

Задание №4:

TForm1 *Form1; const int n=8; int i=0; float mas[n]; … void __fastcall TForm1:: elKeyPress(TObject *Sender, char & Key) { if(Key == 13){ if (i> =n) ShowMessage(" В массиве может быть " +IntToStr(n)+" элементов"); if (i< n){ el_n-> Caption=" Введите " +IntToStr(i+1)+" элемент"; mas[i]=StrToFloat(el-> Text); Mas-> Lines-> Add(" mas[" +IntToStr(i)+" ]=" +el-> Text+" \n"); i++; } } }

 

Задание №5:

TForm1 *Form1; int n = 5; int m = 5; … void __fastcall TForm1:: Button1Click(TObject *Sender) { float **mas2 = new float*[n]; for(int i = 0; i < n; i++){ mas2[i] = new float[m]; } for (int i=0; i< n; i++) for (int j=0; j< m; j++) mas2[i][j]=StrToFloat(mas-> Cells[i][j]); for (int i=0; i< n; i++) { for (int j=0; j< m; j++) mas1-> Caption =mas1-> Caption + FloatToStr(mas2[i][j]) + " "; mas1-> Caption =mas1-> Caption+" \n"; } for (int count = 0; count < n; count++) delete []mas2[count]; }

 

Задание №6:

TForm1 *Form1; int n = 5; int m = 5; … void __fastcall TForm1:: Button1Click(TObject *Sender) { float **mas2 = new float*[n]; for(int i = 0; i < n; i++){ mas2[i] = new float[m]; } for (int i=0; i< n; i++) for (int j=0; j< m; j++) mas2[i][j]=StrToFloat(mas-> Cells[i][j]); for (int i=0; i< n; i++) { for (int j=0; j< m; j++) mas1-> Cells[i][j] =FloatToStr(mas2[i][j]); } for (int count = 0; count < n; count++) delete []mas2[count]; }

 

Задание №7:

TForm1 *Form1; int n; int m; … void __fastcall TForm1:: Button1Click(TObject *Sender) { float **mas2 = new float*[n]; for(int i = 0; i < n; i++){ mas2[i] = new float[m]; } for (int i=0; i< n; i++) for (int j=0; j< m; j++) mas2[i][j]=StrToFloat(mas-> Cells[i][j]); for (int i=0; i< n; i++) { for (int j=0; j< m; j++) mas1-> Cells[i][j] = FloatToStr(mas2[i][j]); } for (int count = 0; count < n; count++) delete []mas2[count]; }   void __fastcall TForm1:: ConfirmClick(TObject *Sender) { n=StrToInt(n_arg-> Text); m=StrToInt(m_arg-> Text); int borderWidth = 2; int border3d = 1; int allBorderWidth = mas-> GridLineWidth + borderWidth + border3d; int heightByRows = mas-> DefaultRowHeight * n; int widthByCols = mas-> DefaultColWidth * m; mas-> ColCount = m; mas-> RowCount = n; mas1-> ColCount = m; mas1-> RowCount = n; mas-> Height = heightByRows + allBorderWidth; mas-> Width = widthByCols + allBorderWidth; mas1-> Height = heightByRows + allBorderWidth; mas1-> Width = widthByCols + allBorderWidth; }

Задание №8:

TForm1 *Form1; int n; int i; int *arr; … void __fastcall TForm1:: ConfirmClick(TObject *Sender) { n = StrToInt(count -> Text); arr = new int[n]; Confirm -> Enabled = false; Label2 -> Caption = " Введите 1й элемент"; count -> Enabled = false; }   void TForm1:: showArray(int * arr, int n) { String result; for(int k = 0; k < n; k++){ result += IntToStr(arr[k]) + " "; } Label4-> Caption = Label4-> Caption + result + " \n"; }   void qs(int* array, int size) { for (int i = 0; i < size - 1; i++) { int min_i = i; for (int j = i + 1; j < size; j++) { if (array[j] < array[min_i]) { min_i = j; } } int temp = array[i]; array[i] = array[min_i]; array[min_i] = temp; Form1-> showArray(array, size); } }   void __fastcall TForm1:: SortClick(TObject *Sender) { qs(arr, n); }   void __fastcall TForm1:: AddClick(TObject *Sender) { if(i == n){ MessageBox(0, " Вы не можете ввести больше элементов", " ", MB_OK); } else{ arr[i] = StrToInt(el -> Text); Edit2 -> Text = Edit2 -> Text + el -> Text + " "; i++; if(i == n) Label2 -> Caption = " Конец ввода"; else Label2 -> Caption = " Введите " + IntToStr(i + 1)+ " й элемент"; } }

Висновок:

Я ознайомитився з інтерфейсом Builder C++ 6.0; навчився створювати прості додатки для реалізації та обробки масивів за допомогою спеціальних елементів.

<== предыдущая лекция | следующая лекция ==>
 | Практическая работа №5рактическая работа №4
Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал