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

Unit1h include File1h -- prgm pckgesmrtinit prgm resource

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 6.4.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. Сочинение на тему силен или слаб обломов
2. Розрахунки й оптимізація характеристик систем електрозвязку (Расчёты и оптимизация характеристик систем электросвязи)
3. Столица- Каракас Протяженность сухопутных границ- 4993 км.html
4. Вариант 53 Выполнил- ст
5. Однажды утром ~ значит утром того дня когда на бейсбольном поле Кавасаки кюдзё должен был начаться чемпи
6. Тюменский государственный нефтегазовый университет Сургутский институт нефти и газа филиал Кафедр
7. Демонополизация как одно из условий становления рыночной экономики
8. ТЕМА 39 ВОЗРОЖДЕНИЕ СТРАНЫ ПОСЛЕ СМУТЫ ПЛАН 1
9. тематика 2 класс Тема Алгебраические понятия
10. Вступление в Таможенный союз будет катастрофой для Украины