Завдання 7
Розробити простий динамічний клас для роботи з динамічним одновимірним масивом.
Рекомендації. Клас це складний (структурований) тип даних, який об’єднує змінні, які називають полями класу, і функції для роботи з цими полями, які називають методами класу.
1.Скріни програми.
Текст програми
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class array
{
int *a, n;
public:
array(int N);
void Enter();
void Sort();
float SrAr();
AnsiString Show();
}; // Конец описания класса.
array::array(int N)
{
n=N;
if (n<=0) n=1; else if (n>20) n=10;
a=new int[n];
Enter().*/
};
void array::Enter()
{
randomize();
for (int i=0;i<n;i++)
a[i]=random(101)-50;
};
void array::Sort()
{
for (int i=0;i<n;i++)
{ int min=i;
for (int j=i+1;j<n;j++)
if (a[j]<a[min])
min=j;
int temp=a[i];
a[i]=a[min];
a[min]=temp;
}
} ;
float array::SrAr()
{
float S=0;
for (int i=0;i<n;i++)
S+=a[i];
S/=n;
return S;
};
AnsiString array::Show()
{
AnsiString AS="";
for (int i=0;i<n;i++)
AS+=IntToStr(a[i])+" ";
AS+="\n";
return AS;
} ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n=StrToInt(InputBox("Input", " Rozmir masnvy ","10"));
array ob1(n);
ob1.Enter();
ShowMessage("Masuv "+ob1.Show());
ob1.Sort(); ob1.Show();
ShowMessage("Masuv pisla sortyvanna \n"+ob1.Show());
ShowMessage ("Seredne znacenna masuvy "+FloatToStr(ob1.SrAr()));
}
//---------------------------------------------------------------------------