Организационная часть - 5 мин
Перекличка студентов и выяснение причин отсутствия студентов, кто не готов к занятию, проверка конспектов.
Самостоятельная работа студентов - 35 мин
Освоение практических навыков: Решение типовых и ситуационных задач.
Задачи:
Нарисовать на холсте дом.
Нарисовать человечка.
Подключить готовый графический объект.
Разработка проекта
Разработать программу, которая вычерчивает графический объект.
Рисунок 6.10. Окно формы
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm)
Button1:TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R*.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var rl,r2,r3:TRect;
pol:array[1..3] of Tpoint;
begin
r1 :=Rect(200,200,400,400);
r2:=Rect(250,230,300,280);
r3 :=rect(350,300,400,400);
pol[1].x:=200;
pol[1].y:=200;
pol[2].x:=300;
pol[2].y:=150;
pol[3].x:=400;
pol[3].y:=200;
with forml.Canvas do
begin
Brush.color:=ClAqua;
FillRect(rl);
Brush.color:=ClBlack;
FrameRect(r2);
fillrect(r3);
moveTo(250,250);
form1.canvas.lineto(300,250);
moveTo(275,230);
form1.canvas.lineto(275,280);
form1.canvas.polygon(pol);
brush.color:=clYellow;
form1. Canvas.ellipse(450,10,500,60);
end;
end;
end.
Раздаточный материал: карточки с заданиями
Литература:
С. И. Бобровский. Учебный курс Delphi7. Питер, 2006г.
Г.Г. Рапаков, С.Ю. Ржеуцкая. Программирование на языке Паскаль. Санкт-Петербург,2005г.
Н.Культин. Учебный курс Delphi Санкт-Петербург,2005г.
Н.Культин. Delphi в задачах и примерах. Санкт-Петербург,2005г.
Е.Р. Алексеев, О.В. Чесноков Шаг за шагом. Москва,2005г.
Контроль заключительного уровня знании - 10 мин
Преподаватель проводит анализ результатов практической работы студентов, выясняет осознанно ли выполнили работу.
Контроль
Вопросы:
Что такое понятие холста, класс TCanvas, его свойства, методы?
Как рисовать на холсте?
Что представляет собой наследники класса TGraphics (формат .bmp, .ico)?
Как подключить графические объекты (формат .bmp, .ico)?
Тесты: См. Сборник тестовых заданий по «Информатике», тема « Основы программирование языка Delphi»
Специальность: «Общественное здравоохранение», «Фармация», «Технология фармацевтического производства», «Медико-профилактичесое дело», «Сестринское дело»
Кафедра: Мед. биофизики, информатики и мат.статистики