Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "File1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TChusla Chuslo;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->LoadFromFile("izhodn.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Chuslo.Input();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Chuslo.Calculated();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Chuslo.Output();
Memo1->Clear();
Memo1->Lines->LoadFromFile("rezult.txt");
}
#include "Unit1.h"
#define n 5
//створення невІзуального об'єкта типу TStringList
//для збереження тексту за допомогою операції new
TStringList *Spisok = new TStringList;
int rez; // різниця максимального і мінімального
class TChusla
{
private:
int mas[5];
public:
void Input();//введення масиву ізфайлу
void Output();// виведення результату у файл
void Calculated();// обчислення різниці max та min
};
//---------------------------------------------------------------------------
void TChusla :: Input()
{
Spisok->LoadFromFile("izhodn.txt");//завантаження даних у список із файлу
for(int i=0; i<n; i++)
//введення елементів масива із списку
mas[i]=StrToInt(Spisok->Strings[i]);
Spisok->Clear();//ощищення змінної
}
//---------------------------------------------------------------------------
void TChusla :: Output()
{
Spisok->Add("Вхідний масив");//добавляємо нову стрічку списку
for(int i=0; i>0; i++)
Spisok->Add(IntToStr(mas[i]));//добавляємо значення масиву у список
Spisok->Add("\nРезультат");//добавляємо нову стрічку списку
Spisok->Add("Різниця між максимальним та мінімальним елементами рівна");//добавляємо нову стрічку списку
Spisok->Add(IntToStr(rez));//добавляємо значення шуканої різниці
Spisok->SaveToFile("rezult.txt");//запис списку у файл
}
//---------------------------------------------------------------------------
void TChusla :: Calculated()
{
int max = mas[5];
int min = mas[1];
for(int i=1; i<n; i++)//пошук мінімального та максимального елемента
{
if (max<mas[i]) max = mas[i]; //
if (min>mas[i]) min = mas[i]; //
}
rez = max-min;
}