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



Уроки 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


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


Создадим событийную процедуру генерации случайных координат вершин графа и их рисование в графическом поле (рис. 1.72).

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


procedure TForm1.ButtonlClick(Sender: TObject);
begin
//Очистка областей рисования и обнуление
//переменной
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,200,200);
Image2.Canvas.Brush.Color:=clWhite;
Image2.Canvas.Rectangle(0,0,200,200);
S: =0;
//Обозначение строк и столбцов в элементах
//управления StringGrid
For I: =0 То 6 Do
begin
StringGrid1.Cells[I,0]:=IntToStr(I);
StringGrid1.Cells[0,1]:=IntToStr(I);
StringGrid2.Cells[1,0]:=IntToStr(I);
StringGrid2.Cells[0,I]:=IntToStr(I);
StringGrid3.Cells[1,0]:=IntToStr(I);
StringGrid3.Cells[0,1]:=IntToStr(I);
end;
//Генерация случайных координат вершин графа
//и их рисование
For I: =1 То 5 Do
begin
X[I]:=Random(200);
Y[I]:=Random(200);
Image1.Canvas.Pen.Width:=3;
Image1.Canvas.Ellipse(X[I],Y[I],X[I]+4,Y[I]+4);
Image1.Canvas.TextOut(X[I]+5, Y[ I ], IntToStr(I));
end;
end;

5. Запустить проект и осуществить щелчок по кнопке Вершины графа.

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

Рис. 1.72. Вершины графа



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



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





Наверх