Семинар ДООМ "Основы графики Паскаля"

Версия 23:59, 27 ноября 2007

участник: Егорчева Светлана Валентиновна, 022.

В составе Турбо Паскаля есть специальный графический модуль graph, который содержит графические процедуры:

Putpixel(x,y,c) – рисует точку с координатами x,y, цветом с;

Line(xl,yl,x2,y2) – рисует линию от точки с координатами xl,yl – x2,y2;

Rectangle(x1,y1,x2,y2) – рисует рамку, с диагональю x1,y1 – x2,y2;

Bar( x1,y1,x1,x2) – рисует прямоугольник с диагональю x1,y1- x1,y2,закрашенный в соответствии с образцом, установленным процедурой Setfillstyle;

Arc(x,y,alfl,alf2,r) – рисуется дуга радиусом r c центром в точке x,y от угла alf1 до угла alf2. Угол задается в градусах;

Сircle(x,y,r) – рисуется окружность радиуса r, с центром в точке x,y;

Setlinestyle(stil,pattern,tolsch) – устанавливает тип линии (сплошная, пунктирная, штрих-пунктирная, штриховая) и ее толщину;

Setfillstyle(obr,c) –устанавливает образец заполнения для процедур Bar,Bar3d,Floodfill. Значение параметра obr равное 0 – цветом фона, 1 – сплошное заполнение цветом, указанным параметром с;

Setcolor(c) – устанавливает цвет рисования;

Setbkcolor(c) – устанавливает цвет фона;

Floodfill(x,y,c) – заполняет замкнутые области, ограниченные линией цвета с, в соответствии с образцом, установленным процедурой Setfillstyle. Координаты x,y должны лежать внутри заполняемой области.

Тема урока – «Точечные рисунки».

Цель урока – Построение рисунка из цветных точек.

Начало урока

Запустить оболочку Турбо Паскаля – c:\bp\bin\bp<Enter>

Учащимся раздается таблица кодов цветов.

1) Пример самой простой графической программы.

Uses graph;  {графическое расширение}

var i,j:integer ;

Begin

 i: = 3  {установка EGA - дисплея}

 j: = 1

 initgraph ( i,j, );  {переход в графический режим}

{место построения рисунка}

closegraph

end.

2) В точке (100, 50) поставить красную точку – (100, 50)

Решения:

Uses graph;

var i,j:integer ;

Begin

 i: = 3

 j: = 1

 initgraph ( i,j, );

putpixel(100,50,4);

{100- номер столбца

50 – номер строки

4 – номер красного цвета}

readln;

closegraph

end.

3) Построить белую линию от точки (100, 150) до (200, 150) – (100, 150)

Решения:

Uses graph;

var i,j:integer ;

Begin

i : = 3

 j : = 1

 initgraph ( i,j, )

for i:= 100 to 200 do

putpixel( i,150,15)

readln;

closegraph

end.

4) Построить программу полета реактивного самолета

Решения:

Uses graph;

var i,j:integer ;

Begin

i: = 3

 j: = 1

 initgraph ( i,j, );

{ небо}

for i:= 0 to 150 do

for j:= 0 to 639 do

putpixel( j,i,11);

{ полет самолета}

for i:= 0 to 639 do

putpixel( j,50,15);

readln;

closegraph

end.

Домашнее задание:

1. Нарисовать прямоугольник.

2. Написать программу полета кометы.

Литература:

"Turbo Pascal", учебник, С.А. Немнюгин

"Задачи по информатике", учебное пособие,П.Н.Карасев

"Первый год лбучения языку Турбо Паскаль", учебное пособие,Р.М. Хадиев, А.Ф. Гарапов