51349

Расширенная работа с файлами

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Написать программу, осуществляющую запись массива в файл и чтение из файла в массив с помощью потоков. Рабочие данные выбрать самостоятельно.

Русский

2014-02-09

127 KB

2 чел.

Лабораторная работа 8

Расширенная работа с файлами

 Выполнил: Шуклецов М.А.

              ФРТ, гр. 2106

Цель работы: Написать программу,  осуществляющую запись массива в файл и чтение из файла в массив с помощью потоков. Рабочие данные выбрать самостоятельно.

Общий вид программы следующий: 

Здесь мы видим следующие элементы управления:

«Заполнение массива» - заполнение массива 10х10 случайными числами в интервале до 99

«Сохранение в фаил» - считывание в поток и сохранение в фаил *.txt

«Чтение из файла» - считывание из файла в поток и заполнение массива 2 из потока

Код программы:

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

TStringList *fil = new TStringList();  //инициализация потока

int a[10][10];    //массив 1

int b[10][10];    //массив 2(можно и без него)

AnsiString S;    //строковая переменная

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

void __fastcall TForm1::Button1Click(TObject *Sender)   //заполнение случайными числами

{   for(int x=0; x<10; x++)

 { for(int y=0; y<10; y++)

       {

        StringGrid1->Cells[x][y] = random(99);

        a[x][y]=StrToInt( StringGrid1->Cells[x][y]);

       }

 }

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{  fil = new TStringList();  //Открытие потока

for(int y=0; y<10; y++)

       {for(int x=0; x<10; x++)

               {S = IntToStr(a[x][y]);  //запоминание ячейки

                fil->Append(S);                } //добавление в конец нужной ячейки

       }

       fil->SaveToFile("Test.txt");  //Сохранение потока в файл

      fil->Free();    //закрытие потока

      S = "";    //Обнуление переменной

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{ fil = new TStringList();   //Открытие потока

fil->LoadFromFile("Test.txt");  //Загрузка потока из файла

for(int y=0; y<10; y++)

       {for(int x=0; x<10; x++)

               {

              b[x][y] =StrToInt( fil->Strings[y*10+x]);  //Заполнение массива 2

              StringGrid2->Cells[x][y] = b[x][y];  //Заполнение StringGrid2

               }

       }

}

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

Вывод:  Мы научились использовать потоки


 

А также другие работы, которые могут Вас заинтересовать

25552. Удовлетворенность браком и условия сохранения супружества 12.99 KB
  Субъективная удовлетворенность браком отношение реальности выполнения партнером своих обязательств к ожидаемым. Причины неудовлетворенности браком: неудовлетворенность адекватных потребностей нереалистич чрезмерно завш ожидания в отношении брала и партнера В иследованиях установили что семейные люди особенно те кто участ в браке ощущающие более высокую степень удовлетворенности. Удовлетворенность браком может быть: полная частичная Эйдемиллер и Юстицкис различают неудовлетворительность осознанная сопровожд конфликтом...
25553. Факторы семейного благополучия 13.1 KB
  Психологическая совместимость супругов. Психологическая совместимость взаимное принятие партнеров по общению и совместной деятельности основанное на оптимальном сочетании сходстве или взаимодополнительности ценностных ориентации личностных и психофизиологических особенностей. Компоненты с семейной психологической совместимости: Психофизиологическая совместимость сексуальная совместимость. Ценностная совместимость любовь нежность взаимоуважение верность деликатность Личностная совместимость наличие благоприятных качеств...
25554. Предприятие, цели и задачи его создания. Основные типы предприятий. Аренда, лизинг, франчайзинг 123.5 KB
  Предприятие это самостоятельный специализированный субъект созданный в порядке установленном законом для производства продукции выполнения работ и оказания услуг с целью удовлетворения общественных потребностей и получения прибыли. 2 по структуре продукции: узкоспециализированные многопрофильные комбинированные. Оплата труда непроизводственного персонала включается в себестоимость продукции косвенным путем. Затраты на оборотные средства включаются в себестоимость изготавливаемой продукции в полном объеме по мере потребления.
25555. Учение Платона о душе 28.5 KB
  Вожделеющая и страстная души должны подчиняться разум ной которая одна может сделать поведение нравственным. И наконец разумную часть души Платон отождествляет с возницей который ищет правильный путь и направляет по нему колесницу управляя конем. В описании души Платон придерживается четких чернобелых критериев доказывая что есть плохие и хорошие части души: разумная часть для него является однозначно хорошей в то время как вожделеющая и страстная плохими более низкими. У человека Платон выделял два уровня души высший и низший.
25556. Аристотель о душе и ее способностях 30.5 KB
  Форма придает материи качественную определенность составляет сущность вещей. Материя не может быть бесформенной форма не может не иметь материальной основы. Душа форма живой материи. Душа и тело связаны как материя и форма т.
25557. Неоплатонизм и томизм в философии и психологии Средневекового периода 30.5 KB
  Развитие мира постоянное восхождение или нисхождение божественного Ступени: Божественное первоначало Божественный ум Божественная душа Природа По мере нисхождения верховного начала оно передается во множество умов и душ. Первично божественное материя последняя стадия дробления первоначала Душа человека происходит из мировой души она нематериальна непространственна едина. Уровни или части души: Умопостигаемая душа Чувственная душа Тело Деятельность души функции Обращение к мировому разуму Обращение к чувственному миру и...
25558. Развитие средневековой психологии на востоке. Авиценна, Альгазен, Аверроэс 26.5 KB
  Авиценн согласен с Аристотелем в том что душа это форма тела и о трех способностях души растительной рост животной ощущения аффекты движения и разумной воображение память разум. Авиценн выделил чистые разумные акты независимые от тела. Причины выделения индивидуального разума 1. чувства и разум разобщены самостоятельны по отношению друг к другу независимы.
25559. Психология в эпоху Возрождения: основные тенденции в развитии философо-психологических взглядов 27.5 KB
  Поскольку человек есть часть природы то и душа его есть лишь проявление природы. Стремления и удовольствия требования природы человек должен их удовлетворять. Помпонацци 14621524 О бессмертии души Бог в делах природы участия не принимает. Человек есть результат развития природы причем у него как и у всего живого появляется психическое душевное названное термином дух захваченное из окружающей среды наиболее совершенное материальное вещество.
25560. Общие черты в развитии психологии Нового времени 26 KB
  : Рост производства Переход к капитализму Мануфактуры Тенденции характерные для философов: Отделение науки от религии: отказ от веры светский характер науки для того чтобы ускорить прогресс Источник познания: Сенсуализм родоначальник Ф.Бэкон Источник познания чувственный опыт. Источник познания мышление разум. Способы научного познания: Индуктивный: от частногоопыта к общему правилу Дедуктивный: от общего теории к частному частным ситуациям Что первично: психика или телесный мир Сенсуализм: сначала...