У вас вопросы?
У нас ответы:) SamZan.net

Unit1h include File1h -- prgm pckgesmrtinit prgm resource

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 30.6.2025

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

#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;

}




1. 052013 На каждое движение и желание хозяина дома свое ldquo;умноеrdquo; освещение Свет может быть опти
2. дисциплина изучающая наиболее общие существенные характеристики и фундаментальные принципы реальности бы
3. . МЕБЕЛЬЩИК 5 5 0 0 15 4214
4. Философия эпохи Возрождения ее основные направления и представители
5. Эжен Сю
6. Средства доступа к базам данных в Internet и свободно доступная СУБД POSTGRES95
7. Позднее средневековье в Западной Европе
8. О системе показателей рентабельности
9. КУРСОВОЙ ПРОЕКТ по дисциплине Микроэкономика Рынок труда и его роль в современной экономике
10. Город костей Кассандра КлэрГород костей Серия- Сумеречные охотники ~ 1 Пере