Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 31 - 34
§1.10. Графы и их исследование с использованием языков объектно-ориентированного программирования Visual Basic и Turbo Delphi




Содержание урока

1.10.1. Введение в теорию графов
1.10.2. Изучение графов на языке Visual Basic
1.10.3. Изучение графов на языке Turbo Delphi

Проект «Построение остовного связного дерева графа» на языке Turbo Delphi

Событийная процедура вывода в графическое поле вершин графа

Событийная процедура вывода элементов матрицы смежности взвешенного ориентированного графа

Событийная процедура вывода элементов матрицы смежности взвешенного неориентированного графа

Событийная процедура построения остовного связаного дерева минимального веса

Контрольные вопросы


1.10.3. Изучение графов на языке Turbo Delphi


Событийная процедура вывода элементов матрицы смежности взвешенного ориентированного графа


Во вложенном цикле со счетчиками n (строки матрицы смежности) и k (столбцы матрицы смежности) осуществим рисование ребер ориентированного графа, вычисление весов ребер и их вывод в таблицу (рис. 1.73).

6. Щелкнуть по кнопке Button2 и в заготовку событийной процедуры ввести программный код:


procedure TForm1.Button2Click(Sender: TObject);
begin
//Во вложенном цикле рисование ребер
//ориентированного графа, вычисление весов
//ребер и их вывод в таблицу
For N:=1 То 5 Do
For К: =1 То 5 Do
begin
Image1.Canvas.Pen.Width:=1;
Image1.Canvas.MoveTo(X[N],Y[N]);
Image1.Canvas.LineTo(X [K] , Y [K] ) ;
R[N,K]:=Round(Sqrt(Sqr(X[N]-X[K] ) + Sqr(Y[N]-Y[K])));
StringGridl.Cells[N,K]:=IntToStr(R[N,K]);
end;
end;

7. Осуществить щелчок по кнопке Матрица смежности орграфа.

В графическом поле будут нарисованы ребра графа, а в таблицу будут выведены веса ребер ориентированного графа (рис. 1.73).

Рис. 1.73. Построение остовного дерева графа



Следующая страница Событийная процедура вывода элементов матрицы смежности взвешенного неориентированного графа



Cкачать материалы урока





Наверх