Задача Прима - Краскала

if (a[i,j]<>0) and (a[i,j]<min) then begin

min:=a[i,j];

i1:=i;

j1:=j;

end;

L:=L+min;

label4.Caption:=label4.Caption+stringgrid1.Cells[0,j1];

for z:=1 to n do begin

a[i1,z]:=0;

a[z,i1]:=0;

end;

q:=j1;

K:=k+1;

 

end;

Label3.Caption:=floattostr(L);

end;

 

// Кнопка «Закрыть»

procedure TForm1.N4Click(Sender: TObject);

begin

close;

 

end;

 

// Кнопка «Открыть»

procedure TForm1.N2Click(Sender: TObject);

var i,j,res:integer;

z:string;

begin

if opendialog1.Execute then

begin

assignfile(f,opendialog1.FileName);

{$I-}

Reset(f);

{$I+}

res:=IOResult;

if res <> 0

then showmessage('Нет такого файла!!!' )

else

begin

readln(f,z);

edit1.Text:=z;

n:=strtoint(z)+1;

StringGrid1.ColCount:=n;

StringGrid1.RowCount:=n;

for i:=1 to n do

for j:=1 to n do begin

readln(f,z); Считывание данных из файла

stringgrid1.Cells[j-1,i-1]:=z; в таблицу

end;

end;

end;

end;

 

 

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

#8,'0'..'9':;

else Ограничение ввода в Edit

key:=chr(0);

end;

end;

 

// Кнопка «О программе»

procedure TForm1.N6Click(Sender: TObject);

begin

aboutbox.show;

end;

 

end.

 

Заключение

 

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

–изучены наиболее инструментальные средства разработки приложений: и среда программирования Borland Delphi 7.0;

– проведен анализ теоретического материала для решения задач Прима - Краскала, методы и системы решения;

–письменно протестирована задача, которая в дальнейшем применяется для проверки результатов задачи;

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

Практическую ценность своей работы вижу в том, что:

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

во-вторых, мною был изучен раздел математических методов, задача Прима – Краскала.

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

 

Литература

 

1. Беллман Р. Динамическое программирование. М.: 1960. 400 с.
2. Беллман Р., Дрейфус С. Прикладные задачи динамического программирования. М.: Наука, 1965. 458 с.

3. Беллман Р., Калаба Р. Динамическое программирование и современная теория управления. М.: Наука, 1969. 118 с.
4. Черноусько Ф.Л., Баничук Н.В. Вариационные задачи механики и управления: Численные методы. М.: Наука, 1973. 238 с.
5. Моисеев Н.Н. Элементы теории оптимальных систем. М.: Наука, 1975. 526 с.
6. Черноусько Ф.Л., Меликян А.А. Игровые задачи управления и поиска. М.: Наука, 1978. 270 с.
7. Я.К. Шмидский. Москва. Санкт – Питербург.2004.Прогроммирование на Delphi7.
8. Н.В.Макарова. Москва. Финансы и Статистика.2004. Информатика: Учебник. Глова15.Системы управления базами данных
9. В.Фролов.Москва.2005.Прогроммирования баз данных в Delphi7.
10. С.Бобровский Санкт-Петербург.2005. Delphi7 Н. Культин.
11. Москва. Финансы и статистика.2005.Самаучитель программирования на языке Delphi7.
12. А.Жуков. Издательский дом Питер.2005.Изучаем Delphi.
13. Епанешников А., Епанешников В. Программирование в среде Delphi 2.0. Учебное пособие. В 4-х частях. Ч.2. Язык Object Pascal 9.0. – М.:ДИАЛОГ-МИФИ, 1997. -319с.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Магнитный носитель

 

 

Содержание

Введение………………………………………………………………………………………..4

Раздел 1. Теоретические аспекты……………………………………………………………..5

1.    Постановка задачи…………………………………………...……………………….….5
2.    Выбор языка программирования………………………………………………………..8

Раздел 2. Программная реализация………………………………………………………….12

1.    Описание программы…………………………………………………………………..12
2.    Тестирование программы………………………………………………………………14
3.    Листинг программы…………………………………………………………………….15

Заключение……………………………………………………………………………………24

Литература…………………………………………………………………………………….25

Магнитный носитель…………………………………………………………………………26

 

 

 

Федеральное агентство связи

БФ ГОУ ВПО СибГУТИ

 

                                                                          

 

 

 

 

 

 

 

 

«Задача Прима - Краскала»»

Пояснительная записка

 

 

 

 

 

 

 

 

 

Руководитель               / Капустина Ю.С. /

Разработал               / Решетников Д.С. /

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Улан-Удэ, 2008

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Курсовая работа

 

Математические  методы