Имитационное моделирование

Размещено на http://www.allbest.ru/

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение высшего Профессионального образования «Тихоокеанский государственный университет»

Кафедра КПСМ

КОНТРОЛЬНАЯ РАБОТА

По дисциплине Системный анализ и математическое моделирование

Имитационное моделирование

Выполнил студент 5 курса

Специальность УК ЗФ

Шифр 080431074

Скорик Ярослав Владимирович

Проверил Чуйко О.И.

Хабаровск 2013

Содержание

имитационный программный паскаль компьютерный

1. Имитационное моделирование

2. Практическая часть

3. Программа создана на языке паскаль (Delphi 7) по алгоритму рекурсивного поиска



1. Имитационное моделирование

Метод машинной имитации позволяет решать широкий круг задач, возникающих при проектировании АСУ, дает возможность одновременного рассмотрения и оценки нескольких альтернативных вариантов проектных решений, что в целом повышает достоверность и качество окончательно выбранного варианта. В настоящее время имеется определенный задел, создающий основу для практической реализации метода, например имитационные пакеты, использующие следующие типы моделей: модели технических средств, которые имитируют работу центральных и периферийных устройств вычислительной с системы (например, функционирование центрального процессора, передачу данных по каналу связи в управляющий блок периферийного устройства, работу пакета дисков с фиксированной головкой); модели программных средств, имитирующие функционирование программ, обеспечивающих работу вычислительной системы (например, программ управления вводом-выводом, компиляторов, программ, распределяющих задания); стыковочно-оптимизационные модели, осуществляющие увязку предыдущих типов моделей в единую согласованную систему. С помощью последних производится структурирование массивов, назначение массивов по периферийным устройствам и каналам, блокирование записей, корректировка длин записей, распределение памяти и др. Имитация дает возможность разработчику выяснить, может ли быть осуществлен проектируемый процесс обработки данных на заданной вычислительной системе, оценить возможные режимы нагрузки системы во времени, проверить возможность улучшения качества системы путем изменения конфигурации вычислительных средств и т. п. Использование имитационного метода носит итерационный характер. Одной из первых практических разработок была созданная в 60-х годах экономико-математическая модель упорядочения системы производства и подготовки ее к внедрению средств автоматизированного управления. Следует отметить, что модель в некотором смысле была прототипом современных ППП. В качестве исходных модулей были разработаны модели отдельных станков, предназначенных выполнять ряд технологических операций по обработке деталей. В зависимости от конкретного задания модуль настраивался на имитацию выполнения набора определенных технологических операций. Точность имитации случайных воздействий (например, частота и длительность отказов по различным причинам, изменение длительности выполнения операций в зависимости от характеристик основных факторов и т. д.) определялась собранной статистикой. При компоновке моделей технологических линий или производственных участков использовались также модули, описывающие динамику работы транспортных средств, состояние межоперационных бункеров и других элементов. Настраиваемые из предлагаемого набора модулей модели использовались для решения вопросов:

- Выбор и определение рациональной последовательности внедрения экономически обоснованных мероприятий по подготовке объекта к автоматизации. (Замена или модернизация

отдельных станков, определение структуры бункеров в функции рационального объема межоперационных заделов, внедрение средств локальной автоматики, выявление результатов внедрения НОТ, многостаночного обслуживания и т. д.). Исследование поведения производственного объекта после «внедрения» комплекса оргтехмероприятий (с учетом не только случайных возмущений, но и нелинейности объекта).

- Выявление точек и частоты съема информации и потребностей на обслуживание, в том числе со стороны системы Управления.

- Анализ возможных вариантов построения системы управления объектом и оценка их экономической эффективности.

Выбор варианта системы управления с элементами автоматизации и проверка ее работы при прогнозируемых или планируемых изменениях в производственном (технологическом) процессе. Вычислительный эксперимент является теоретическим методом познания. Развитием этого метода является численное моделирование -- сравнительно новый научный метод, получивший широкое распространение благодаря появлению ЭВМ.

Численное моделирование широко используется и на практике, и при проведении научных исследований.

Пример. Без построения математических моделей и проведения самых разных расчетов над постоянно изменяющимися данными, поступающими с измерительных приборов, невозможна работа автоматических производственных линий, автопилотов, станций слежения, систем автоматической диагностики. Причем для обеспечения надежности систем расчеты должны проводиться в режиме реального времени, а их погрешности могут составлять миллионные доли процента.

Пример. Современного астронома чаще можно увидеть не у окуляра телескопа, а перед дисплеем компьютера. Причем не только теоретика, но и наблюдателя. Астрономия -- необычная наука. Она, как правило, не может непосредственно экспериментировать с объектами исследований. Различные виды излучения (электромагнитное, гравитационное, потоки нейтрино или космических лучей) астрономы только «подсматривают» и «подслушивают». Значит, нужно научиться извлекать максимум информации из наблюдений и воспроизводить их в расчетах для проверки гипотез, описывающих эти наблюдения. Применения компьютеров в астрономии, как и в других науках чрезвычайно разнообразны. Это и автоматизация наблюдений, и обработка их результатов (астрономы видят изображения не в окуляре, а на мониторе, соединенным со специальными приборами). Компьютеры также необходимы для работы с большими каталогами (звезд, спек-тальных анализов, химических соединений и пр.).

Пример. Всем известно выражение «буря в стакане воды». Чтобы детально исследовать такой сложный гидродинамический процесс, как буря, необходимо привлекать сложные методы численного моделирования. Поэтому в крупных гидрометеоцентрах находятся мощные компьютеры: «буря разыгрывается» в кристалле процессора компьютера.

Даже если вы проводите не очень сложные вычисления, но вам нужно повторить их миллион раз, то лучше один раз написать программу, а компьютер повторит ее столько раз, сколько это нужно (ограничением, естественно, будет быстродействие компьютера).

Численное моделирование может быть самостоятельным методом исследования, когда интерес представляют только значения каких-то показателей (например, себестоимости продукции или интегрального спектра галактики), но чаще оно выступает одним из средств построения компьютерных моделей в более широком смысле этого термина.

Исторически сложилось так, что первые работы по компьютерному моделированию были связаны с физикой, где с помощью численного моделирования решался целый класс задач гидравлики, фильтрации, теплопереноса и теплообмена, механики твердого тела и т. п. Моделирование, в основном, представляло собой решение сложных нелинейных задач математической физики и по существу было, конечно, моделированием математическим. Успехи математического моделирования в физике способствовали распространению его на задачи химии, электроэнергетики, биологии, причем схемы моделирования не слишком отличались друг от друга. Сложность решаемых на основе моделирования задач ограничивалась лишь мощностью имеющихся ЭВМ. Данный вид моделирования широко распространен и в настоящеее время. Более того, за время развития численного моделирования накоплены целые библиотеки подпрограмм и функций, облегчающих применение и расширяющих возможности моделирования. И все же в настоящее время понятие «компьютерное моделирование» обычно связывают не с фундаментальными естественно-научными дисциплинами, а в первую очередь с системным анализом сложных систем с позиций кибернетики (то есть с позиций управления, самоуправления, самоорганизации). И сейчас компьютерное моделирование широко используется в биологии, макроэкономике, при создании автоматизированных систем управления и пр.

Пример. Вспомните эксперимент Пиаже, описанный в предыдущем параграфе. Его, конечно же можно было бы провести не с реальными предметами, а с анимационным изображением на экране дисплея. Но ведь движение игрушек можно было бы заснять на обычную кинопленку и демонстрировать ее по телевизору. Целесообразно ли называть использование компьютера в этом случае компьютерным моделированием?

Пример. Моделью полета тела, брошенного вертикально вверх или под углом к горизонту, является, например, график высоты тела в зависимости от времени. Построить его можно

а) на листе бумаги по точкам;

б) в графическом редакторе по тем же точкам;

в) с помощью программы деловой графики, например, в электронных таблицах;

г) написав программу, которая не только выводит на эк ран траекторию полета, но и позволяет задавать различные исходные данные (угол наклона, начальную скорость).

Почему вариант б) не хочется называть компьютерной моделью, а варианты в) и г) вполне соответствуют этому названию?

Под компьютерной моделью часто понимают программу (или программу плюс специальное устройство), которая обеспечивает имитацию характеристик и поведения определенного объекта. Результат выполнения этой программы также называют компьютерной моделью.

В специальной литературе термин «компьютерная модель» более строго определяется так:

- условный образ объекта или некоторой системы объектов (процессов, явлений), описанный с помощью взаимосвязанных компьютерных таблиц, блок-схем, диаграмм, графиков, рисунков, анимационных фрагментов, гипертекстов и так далее и отображающий структуру (элементы и взаимосвязи между ними) объекта. Компьютерные модели такого вида называют структурно-функциональными;

- отдельную программу или совокупность программ, позволяющих с помощью последовательности вычислений и графического отображения их результатов воспроизводить (имитировать) процессы функционирования объекта при условии воздействия на него различных, как правило случайных, факторов. Такие модели называют имитационными.

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

Пример. Идея построить модель деятельности человека с помощью компьютера не нова, и трудно найти такую область деятельности, в которой ее не пытались бы реализовать. Экспертные системы -- компьютерные программы, моделирующие действия эксперта-человека при решении задач в какой-либо предметной области на основе накопленных знаний, составляющих базу знаний. ЭС решают задачу моделирования умственной деятельности. Из-за сложности моделей разработка ЭС занимает, как правило, несколько лет.

Современные экспертные системы кроме базы знаний имеют еще и базу прецедентов -- например, результаты обследования реальных людей и информацию о последующей успешности/неуспешности их деятельности. Для примера, база прецедентов экспертной системы Нью-Йоркской полиции -- 786 000 чел., Центра «Хобби» (кадровая политика на предприятии) -- 512 000 чел., причем по словам специалистов этого центра, разрабатываемая ими ЭС заработала с ожидаемой точностью, только когда база перевалила за 200 000 человек, на ее создание ушло 6 лет.

Пример. Прогресс в создании компьютерных графических изображений продвинулся от каркасных образов трехмерных моделей с простым полутоновым изображением до современных реалистических картинок, являющихся образцами искусства. Это явилось результатом успеха в более точном определении среды моделирования. Прозрачность, отражение, тени, модели освещения и свойства поверхности -- вот несколько областей, где напряженно работают группы исследователей, постоянно предлагающие новые алгоритмы создания все более реалистичных искусственных образов. Сегодня эти методы применяются и для создания качественной анимации.

Практические потребности в компьютерном моделировании ставят задачи перед разработчиками аппаратных средств компьютера. То есть метод активно влияет не только на появление все новых и новых программ, но и на развитие технических средств.Компьютерное моделирование имеет следующие преимущества:

- дает возможность рассчитать параметры эффектов, изучение которых в реальных условиях невозможно, либо очень затруднительно по технологическим причинам;

- позволяет моделировать и изучать явления, предсказываемые любыми теориями;

- является экологически чистым и не представляет опасности для природы и человека;

- обеспечивает наглядность;

- доступно в использовании.

Основное преимущество компьютерного моделирования заключается в том, что оно позволяет не только пронаблюдать, но и предсказать результат эксперимента при каких-то особых условиях. Благодаря этой возможности этот метод нашел применение в биологии, химии, социологии, экологии, физике, экономике и многих других сферах знания.

Компьютерное моделирование широко используется в обучении. С помощью специальных программ можно посмотреть модели таких явлений, как явления микромира и мира с астрономическими размерами, явления ядерной и квантовой физики, развитие растений и превращения веществ при химических реакциях.

Подготовка специалистов многих профессий, особенно таких, как авиадиспетчеры, пилоты, диспетчеры атомных и электростанций, осуществляется с помощью тренажеров, управляемых компьютером, моделирующим реальные ситуации, в том числе аварийные.

На компьютере можно провести лабораторные работы, если нет необходимых реальных устройств и приборов или если решение задачи требует применения сложных математических методов и трудоемких расчетов.

Компьютерное моделирование дает возможность «оживить» изучаемые физические, химические, биологические, социальные законы, поставить с моделью ряд экспериментов. Но не стоит забывать, что все эти эксперименты носят весьма условный характер и познавательная ценность их тоже весьма условна.

Пример. До практического использования реакции ядерного распада физики-ядерщики просто не знали о вреде радиации, но первое массовое применение «достижений» (Хиросима и Нагасаки) четко показало, насколько радиация с опасна для человека. Начни физики с ядерных электростанций, человечество долго еще не узнало бы о вреде радиации. Достижение химиков начала прошлого века -мощнейший пестицид ДДТ -- достаточно долго считался абсолютно безопасным для человека

В условиях применения мощных современных технологий, широкого тиражирования и бездумного использования ошибочных программных продуктов такие узкоспециальные, казалось бы, вопросы, как адекватность компьютерной модели реальности, могут приобрести весомое общечеловеческое значение. Компьютерные эксперименты -- это инструмент исследования моделей, а не природных или социальных явлений.

Компьютерное моделирование широко используется в обучении. С помощью специальных программ можно посмотреть модели таких явлений, как явления микромира и мира с астрономическими размерами, явления ядерной и квантовой физики, развитие растений и превращения веществ при химических реакциях.

Подготовка специалистов многих профессий, особенно таких, как авиадиспетчеры, пилоты, диспетчеры атомных и электростанций, осуществляется с помощью тренажеров, управляемых компьютером, моделирующим реальные ситуации, в том числе аварийные.

На компьютере можно провести лабораторные работы, если нет необходимых реальных устройств и приборов или если решение задачи требует применения сложных математических методов и трудоемких расчетов.

Компьютерное моделирование дает возможность «оживить» изучаемые физические, химические, биологические, социальные законы, поставить с моделью ряд экспериментов. Но не стоит забывать, что все эти эксперименты носят весьма условный характер и познавательная ценность их тоже весьма условна.

Пример. До практического использования реакции ядерного распада физики-ядерщики просто не знали о вреде радиации, но первое массовое применение «достижений» (Хиросима и Нагасаки) четко показало, насколько радиация с опасна для человека. Начни физики с ядерных электростанций, человечество долго еще не узнало бы о вреде радиации. Достижение химиков начала прошлого века -мощнейший пестицид ДДТ -- достаточно долго считался абсолютно безопасным для человека.

В условиях применения мощных современных технологий, широкого тиражирования и бездумного использования ошибочных программных продуктов такие узкоспециальные, казалось бы, вопросы, как адекватность компьютерной модели реальности, могут приобрести весомое общечеловеческое значение.

Компьютерные эксперименты -- это инструмент исследования моделей, а не природных или социальных явлений.

Поэтому одновременно с компьютерным экспериментом всегда должен идти натурный, чтобы исследователь, сравнивая их результаты, мог оценить качество соответствующей модели, глубину наших представлений о сути явлений природы. Не стоит забывать, что физика, биология, астрономия, информатика это науки о реальном мире, а не о виртуальной реальности.

В научных исследованиях, как фундаментальных так и практически направленных (прикладных), компьютер нередко выступает как необходимый инструмент экспериментальной работы.

Компьютерный эксперимент чаще всего связан:

- с проведением сложных математических расчетов (численное моделирование);

Под компьютерной моделью понимается программа (или программа в совокупности со специальным устройством), которая обеспечивает имитацию характеристик и поведения определенного объекта, а также результат выполнения этой программы в виде графических изображений (неподвижных или динамических), числовых значений, таблиц и пр.

Различают структурно-функциональные и имитационные компьютерные модели.

Структурно-функциональная компьютерная модель -- это условный образ объекта или некоторой системы объектов (процессов, явлений), описанный с помощью взаимосвязанных компьютерных таблиц, блок-схем, диаграмм, графиков, рисунков, анимационных фрагментов, гипертекстов и так далее и отображающий структуру объекта или его поведение.

Имитационная компьютерная модель -- это отдельная программа или программный комплекс, позволяющий с помощью последовательности вычислений и графического отображения их результатов воспроизводить (имитировать) процессы функционирования объекта при условии воздействия на него различных случайных факторов.

Компьютерное моделирование -- метод решения задачи анализа или синтеза системы (чаще всего сложной системы) на основе использования ее компьютерной модели.

Преимущества компьютерного моделирования заключаются в том, что оно:

- дает возможность рассчитать параметры и смоделировать явления, процессы и эффекты, изучение которых в реальных условиях невозможно либо очень затруднительно;

- озволяет не только пронаблюдать, но и предсказать результат эксперимента при каких-то особых условиях;

- позволяет моделировать и изучать явления, предсказываемые любыми теориями;

- является экологически чистым и не представляет опасности для природы и человека;

- обеспечивает наглядность;

- доступно в использовании.

Метод компьютерного моделирования нашел применение в биологии, химии, социологии, экологии, физике, экономике, лингвистике, юриспруденции и многих других сферах знания.

Компьютерное моделирование широко используется в обучении, подготовке и переподготовке специалистов:

- для наглядного представления моделей явлений микромира и мира с астрономическими размерами;

- для имитации процессов, происходящих в мире живой и неживой природы

- для моделирования реальных ситуаций управления сложными системами, в том числе аварийных ситуаций;

- для проведения лабораторных работ, когда нет необходимых устройств и приборов;

- для решения задач, если при этом требуется применение сложных математических методов и трудоемких расчетов.

Важно помнить, что на компьютере моделируется не объективная реальность, а наши теоретические представления о ней. Объектом компьютерного моделирования являются математические и другие научные модели, а не реальные объекты, процессы, явления.

Компьютерные эксперименты -- это инструмент исследования моделей, а не природных или социальных явлений.

Критерием верности любого из результатов компьютерного моделирования был и остается натурный (физический, химический, социальный) эксперимент.

В научных и практических исследованиях компьютерный эксперимент может лишь сопутствовать натурному, чтобы исследователь, сравнивая их результаты, мог оценить качество модели, глубину наших представлений о сути явлений природы.

2. Практическая часть

Даны три графа.

Найти минимальный путь в графе (схема выбирается по варианту).

Для решения задачи необходимо изучить методику нахождения кратчайшего пути (теория графов).

Вар	Схема	Пункты
11	2	С1 > А2



Составим матрицу

A1

B1

C1

1

2

3

4

5

6

7

8

9

10

A2

B2

C2

A1

0

?

?

8

12

?

32

?

?

?

?

?

?

?

?

?

B1

?

0

?

19

11

14

18

?

?

?

?

?

?

?

?

?

C1

?

?

0

?

?

12

15

38

?

?

?

?

?

?

?

?

1

8

19

?

0

?

?

?

13

27

33

?

?

?

?

?

?

2

12

11

?

?

0

7

?

15

?

20

?

?

?

?

?

?

3

?

14

12

?

7

0

?

?

16

18

?

?

?

?

?

?

4

32

18

15

?

?

?

0

?

23

9

?

?

?

?

?

?

5

?

?

38

13

15

?

?

0

8

?

?

37

?

?

28

?

6

?

?

?

27

?

16

23

8

0

6

15

12

20

?

?

31

7

?

?

?

33

20

18

9

?

6

0

?

22

11

?

34

?

8

?

?

?

?

?

?

?

?

15

?

0

?

?

35

17

10

9

?

?

?

?

?

?

?

37

12

22

?

0

?

27

16

23

10

?

?

?

?

?

?

?

?

20

11

?

?

0

9

19

?

A2

?

?

?

?

?

?

?

?

?

?

35

27

9

0

?

?

B2

?

?

?

?

?

?

?

28

?

34

17

16

19

?

0

?

C2

?

?

?

?

?

?

?

?

31

?

10

23

?

?

?

0



3. Программа создана на языке паскаль (Delphi 7) по алгоритму рекурсивного поиска

Текст программного модуля:

unit recurs;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, Mask, ExtDlgs;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

StringGrid1: TStringGrid;

Edit1: TEdit;

Edit2: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button2: TButton;

Button3: TButton;

Edit3: TEdit;

SaveDialog1: TSaveDialog;

Button4: TButton;

OpenDialog1: TOpenDialog;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure StrGrefresh(N:integer);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

N:integer;{ кол-во вершин графа}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

map:array[1..100,1..100]of integer;// Карта.map[i,j] не 0,если // точки i и j соединены

road:array[1..100]of string;// Дорога -- номера точек карты

incl:array[1..100]of boolean; // incl[1]равен TRUE,если точка с номером i включена в road

start, finish:integer; // Начальная и конечная точки

found:boolean; len:integer; // длина найденного (минимального) маршрута

clen:integer; // длина текущего (формируемого) маршрута

i,j:integer; // выбор очередной точки

procedure step(s,f,p:integer);

var

c:integer; { Номер точки, в которую делаем очередной шаг }

tmp :string;

i:integer;

begin

if s=f then begin

found:=TRUE;

len:=clen;{ сохраним длину найденного маршрута }

{ вывод найденного маршрута }

Label1.caption:= Label1.caption+StringGrid1.Cells[Start,0];

for i:=1 to p-1 do

IF incl[i] then

Label1.caption:=Label1.caption+' '+road[i];

Label1.caption:=Label1.caption+', длина:'+IntToStr(len)+#13;

end

else

{ выбираем очередную точку }

for c:=1 to N do { проверяем все вершины }

if(map[s,c]<> 0) and (NOT incl[c]) and ((len=0)or(clen+map[s,c]< len)) then

begin // точка соединена с текущей, но не включена в маршрут

road[p]:=StringGrid1.Cells[0, c];{ добавим вершину в путь }

incl[p]:=TRUE;{ пометим вершину как включенную }

clen:=clen+map[s,c];

step(c,f,p+1);

incl[p]:=FALSE;

road[p]:='0'; //StringGrid1.Cells[c,0];

clen:=clen-map[s,c];

end;

end;

{ конец процедуры step }

begin

Label1.caption:='';

{ инициализация массивов }

found:=False;

for i :=1 to N do road[i]:='0'; //StringGrid1.Cells[i,0];

for i:=1 to N do incl[i]:=FALSE;

{ ввод описания карты из SrtingGrid.Cells}

for i:=1 to N do

for j:=1 to N do

if (StringGrid1.Cells[i, j] <>'') then

map[i,j]:=StrToInt(StringGrid1.Cells[i,j])

else

map[i,j]:=0;

len:=0; // длина найденного (минимального) маршрута с

clen:=0; // длина текущего (формируемого) маршрута

{ Поиск стартовой точки }

start:=-1;

for i:=1 to N do

if uppercase(Edit1.text)=StringGrid1.Cells[i,0] then

start:=i;;

finish:=-1;

for i:=1 to N do

if uppercase(Edit2.text)=StringGrid1.Cells[i,0] then

finish:=i;;

if (start=-1) or (finish=-1) then begin

showmessage('Неверные параметры старта или финиша !!!');

exit;

end;

road[1]:=StringGrid1.Cells[0,start];{ внесем точку в маршрут }

incl[start]:=TRUE;{ пометим ее как включенную }

step(start,finish,2);{ищем вторую точку маршрута }

if not found // проверим, найден ли хотя бы один путь

then Label1.caption:='Указанные точки не соединены!';

end;

procedure TForm1.StrGrefresh(N:integer);

begin

stringgrid1.ColCount:=N;

stringgrid1.RowCount:=N;

stringgrid1.Refresh;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

N:=strtoint(edit3.Text);

StrGrefresh(N+1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

N:=1;

edit3.Text:=inttostr(N);

StrGrefresh(N+1);

end;

procedure TForm1.Button3Click(Sender: TObject);

Function LoadGrid(stringgrid: tstringgrid; fn: string):integer;

var

f: textfile;

temp, x, y: integer;

tempstr: string;

begin

assignfile(f, fn);

reset(f);

readln(f, temp);

stringgrid.colcount := temp;

Result:=temp;

readln(f, temp);

stringgrid.rowcount := temp;

for X := 0 to stringgrid.colcount - 1 do

for y := 0 to stringgrid.rowcount - 1 do

begin

readln(F, tempstr);

stringgrid.cells[x, y] := tempstr;

end;

closefile(f);

end;

begin

if (opendialog1.execute) then

begin

N:=LoadGrid(stringgrid1, Opendialog1.fileName)-1;

edit3.Text:=inttostr(N);

Label5.Caption:=OpenDialog1.FileName;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

procedure SaveGrid(stringgrid: tstringgrid; fn: string);

var

f: textfile;

x, y: integer;

begin

assignfile(f, fn);

rewrite(f);

writeln(f, stringgrid.colcount);

writeln(f, stringgrid.rowcount);

for X := 0 to stringgrid.colcount - 1 do

for y := 0 to stringgrid.rowcount - 1 do

writeln(F, stringgrid.cells[x, y]);

closefile(f);

end;

begin

if SaveDialog1.Execute then begin

SaveGrid(stringgrid1, SaveDialog1.FileName);

Label5.Caption:=SaveDialog1.FileName;

end;

end;

end.

Размещено на Allbest.ru

...