//------Дорошкова 3 завдання 1-------

void __fastcall TForm1::Button14Click(TObject *Sender)

{

if (el <=1) {ShowMessage("Надто мало елементів у файлі, або файл не заповнений"); return;}

//f = fopen("startData_zavd4_1.txt","r");

g = fopen("results_zavd3_1.txt","w");

int a;

float r;

double q;

Memo5->Lines->Add("Числа:");

for (i=0;i<el;i++) {

r=pow(mas[i],1/2); q=pow(mas[i],1/2);

a=mas[i];

if (r==q && a%2!=0) {

Memo5->Lines->Add(FloatToStr(mas[i]));

fprintf(g,"%i",mas[i]);

fprintf(g," ");

}

}

fclose(g);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button15Click(TObject *Sender)

{

Edit8->Clear();

Memo5->Clear();

}

//---------------------------------------------------------------------------

// --Дорошкова 3 завдання_2------

int xc=0;

float *mas2;

void __fastcall TForm1::Button16Click(TObject *Sender)

{

if (Edit9->Text.Length()==0){ShowMessage("Вкажіть кількість елементів"); return;}

int k;

try

{

k=StrToInt(Edit9->Text);

}

catch(EConvertError&e)

{ShowMessage ("Перевірте правильність вводу даних!");

return;}

mas2 = new float[k];

randomize();

xc = 0;

f = fopen("startData_zavd3_2.txt","w");

Memo6->Lines->Add("Початкові значення:");

for (i=0; i<k; i++) {

mas2[i] = random(12)-(i*3./k)+0,3*k;

fprintf(f,"%i ",mas2[i]);

xc=i;

Memo6->Lines->Add(FloatToStrF(mas2[i],ffFixed,3,2));

}

fclose(f);

}

//---------------------------------------------------------------------------

//--Дорошкова 3 завдання_3--

int el2=0;

void __fastcall TForm1::Button31Click(TObject *Sender)

{

if (Edit15->Text.Length()==0){ShowMessage("Вкажіть кількість елементів"); return;}

int k;

try

{

k=StrToInt(Edit15->Text);

}

catch(EConvertError&e)

{ShowMessage ("Перевірте правильність вводу даних!");

return;}

mas = new int[k];

randomize();

el2 = 0;

f = fopen("startData_zavd3_3.txt","w");

Memo15->Lines->Add("Початкові значення:");

for (i=0; i<k; i++) {

mas[i] = random(15)-7;

fprintf(f,"%i ",mas[i]);

el2=i;;

Memo15->Lines->Add(IntToStr(mas[i]));

}

fclose(f);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit15KeyPress(TObject *Sender, char &Key)

{

if (IsCharAlpha(Key) || Key=='-' || Key=='.' || Key==',') Key=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button32Click(TObject *Sender)

{

int j,count=0;

g = fopen("results_zavd2_1.txt","w");

Memo15->Lines->Add("Елементи які не повторюються:");

for (i=0;i<el2;i++){

int temp=mas[i];

for (j=0;j<el2;j++)

if (temp==mas[j])

count++;

if(count == 1)

Memo15->Lines->Add(temp);

count=0;

fprintf(g,"%i",temp);

fprintf(g," "); }

fclose(g);

fclose(f);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button33Click(TObject *Sender)

{

Edit15->Clear();

Memo15->Clear();

}

//---------------------------------------------------------------------------

//---Дорошкова 3 завдання_4---

---

int sch=0;

void __fastcall TForm1::Button34Click(TObject *Sender)

{

if (Edit16->Text.Length()==0){ShowMessage("Введіть кількість елементів");return;}

int n;

try

{

n=StrToInt(Edit16->Text);

}

catch(EConvertError&e)

{ShowMessage ("Перевірте правильність вводу даних!");

return;}

mas2 = new float[n];

f = fopen("znacheniya_zavd3_4.txt","w");

Memo16->Lines->Add("Значення елементів:");

randomize;

for(i=0;i<n;i++) {

mas2[i] = (random(el)-3/(i+1))+i-i*(2./7);

fprintf(f,"%f",mas2[i]);

fprintf(f," ");

sch=i;

Memo16->Lines->Add(FloatToStrF(mas2[i],ffFixed,3,2));

}

fclose(f);

}

//---------------------------------------------------------------------------

---

Смотрите также файлы

• Звіт до лабораторної роботи #1 Лінійне програмування..Id_11188.doc

• Автоматизированная система сводных каталогов зарубежных книг..pdf

• Аймухамедова Г.Б. Пирролидонкарбоновая кислота (свойства, применение, способы ее получения и определения).pdf

• Аксентьев С.Т. Сопла ракетных двигателей учеб. пособие.pdf

• Аксютин Л.Р. Контроль остойчивости морского судна.pdf