Определение метрических характеристик графа
Граф как средство для описания структуры сложных объектов и функционирования систем. Входные и выходные данные. Язык программирования, системные требования. Модульный состав программы. Схемотехническое и конструкторско–топологическое проектирование.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 22.04.2014 |
| Размер файла | 1,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
N := Form2.SpinEdit1.Value;
for i := 1 to N do
for j := 1 to N do
Mg[i, j] := StrToInt(Form2.StringGrid1.Cells[j, i]);
WriteLn(f, 'Матрица смежности графа');
for i := 1 to N do
begin
for j := 1 to N do
Write(f, Mg[i, j]:5);
WriteLn(f);
end;
Floid(Mg, N, Duv);
if Form4.CheckListBox1.Checked[0] then
begin
WriteLn(f, 'Матрица кратчайших путей графа');
for i := 1 to N do
begin
for j := 1 to N do
if Duv[i, j] <> _BIG_ then
Write(f, Duv[i, j]:5)
else
Write(f, '-':5);
WriteLn(f);
end;
end;
//степени вершин
if Form4.CheckListBox1.Checked[1] then
begin
WriteLn(f, 'Степени вершин:');
for i := 1 to N do
begin
j := deg(Mg, N, i);
WriteLn(f, i, '. Степень: ', j);
end;
end;
//эксцентрисистеты
if Form4.CheckListBox1.Checked[2] then
begin
WriteLn(f, 'Эксцентрисистеты вершин:');
for i := 1 to N do
begin
eu[i] := Excentr(Duv, N, i);
WriteLn(f, i, '. Эксцентриситет: ', eu[i]);
end;
end;
//диаметр и радиус
DRG(eu, N, D, R);
if Form4.CheckListBox1.Checked[3] then
WriteLn(f, 'Диаметр графа D=', D);
if Form4.CheckListBox1.Checked[4] then
WriteLn(f, 'Радиус графа R=', R);
//периферийные вершины
if Form4.CheckListBox1.Checked[5] then
begin
WriteLn(f, 'Периферийные вершины:');
for i := 1 to n do
if eu[i] = D then
Write(f, i, '; ');
WriteLn(f);
end;
//центральные вершины
if Form4.CheckListBox1.Checked[6] then
begin
WriteLn(f, 'Центры графа:');
for i := 1 to n do
if eu[i] = R then
Write(f, i, '; ');
WriteLn(f);
AbsCenter(Mg, N);
end;
CloseFile(f);
Form3.Memo1.Lines.LoadFromFile('mh');
Form3.ShowModal;
end;
procedure TForm1.Params(Sender: TObject);
//задать параметры вывода решения
begin
Form4.ShowModal;
end;
end.
Модуль ввода графа
unit U2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Spin, Grids;
type
TForm2 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
SpinEdit1: TSpinEdit;
BitBtn1: TBitBtn;
procedure SpinEdit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.SpinEdit1Change(Sender: TObject);
//изменение числа вершин графа
var
n, i: integer;
begin
n := SpinEdit1.Value;
StringGrid1.ColCount := n + 1;
StringGrid1.RowCount := n + 1;
for i := 1 to n do
begin
StringGrid1.Cells[0, i] := IntToStr(i);
StringGrid1.Cells[i, 0] := IntToStr(i);
end;
end;
end.
Размещено на Allbest.ru
Подобные документы
Средства программирования, описание языка С++. Назначение программы, требования к документации. Стадии разработки, виды испытаний. Используемые технические, программные средства. Вызов и загрузка, входные и выходные данные. Программа и методика испытаний.
контрольная работа [205,3 K], добавлен 23.07.2013Функциональное назначение и область применения программы "Локальный сетевой чат"; логическая структура, технические и программные средства. Требования к программе; характеристика, вызов и загрузка, входные и выходные данные, настройка, интерфейс.
дипломная работа [1,3 M], добавлен 18.10.2013Описание платформы NET Framework. База данных Microsoft Access. Разработка Windows приложения. Модель программирования Windows Forms. Функциональное назначение программы. Входные и выходные данные. Требования к техническому и программному обеспечению.
курсовая работа [2,2 M], добавлен 15.03.2015Разработка программы, находящей эйлеров путь в графе с количеством вершин n от 2 до 20. Входные и выходные данные. Алгоритм поиска эйлерова пути с возвратом массива, содержащего результат. Описание модулей. Проектирование тестов методами черного ящика.
курсовая работа [89,9 K], добавлен 25.02.2012Выбор среды программирования, предметной области автоматизированной информационной системы "Риелторская контора". Входные и выходные данные, создание запросов SQL. Проектирование интерфейса проекта. Использование для отчета реляционной модели данных.
отчет по практике [2,4 M], добавлен 13.01.2011Технико-математическое описание задачи. Требования к программе учета книг и читателей библиотеки. Описание языка программирования. Алгоритмы обработки информации. Текст программы. Инструкция на выполнение: вызов и загрузка, входные и выходные данные.
дипломная работа [1,2 M], добавлен 29.06.2012Математическая постановка задачи. Обоснование выбора средств разработки. Входные и выходные данные работы программы. Решение задачи теста для написания и отладки программы. Описание программных модулей. Разработка алгоритма, анализ полученных результатов.
курсовая работа [2,2 M], добавлен 13.12.2015Навыки использования теоретического материала и практического опыта для решения задач проектирования и разработки программного обеспечения для систем различного назначения на языке Паскаль. Описание логической структуры, входные и выходные данные.
курсовая работа [647,0 K], добавлен 23.04.2009Общие сведения о программном средстве по моделированию работы электродвигателя, его функциональное назначение. Описание логической структуры программного обеспечения. Вызов программы modelDPR52, ее загрузка, входные и выходные данные. Листинг программы.
курсовая работа [420,0 K], добавлен 28.05.2012Требования к программе, составу и параметрам технических средств. Основные элементы языка программирования. Инструкция на выполнение программы учета клиентов: вызов и загрузка, входные и выходные данные. Расчет себестоимости программного продукта.
дипломная работа [3,9 M], добавлен 29.06.2012
