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



Уроки 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 (строки матрицы смежности) и К (столбцы матрицы смежности) осуществим вычисление весов ребер неориентированного графа и их вывод в таблицу (рис. 1.74). Для вывода половины элементов матрицы смежности начальному значению счетчика вложенного цикла присвоим значение K=N+1.

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


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

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

В таблицу будут выведены веса ребер неориентированного графа (рис. 1.74).

Рис. 1.74. Матрица смежности неориентированного графа



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



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





Наверх