Семинар ДООМ "Основы графики Паскаля"
участник: Егорчева Светлана Валентиновна, 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", учебник, С.А. Немнюгин
"Задачи по информатике", учебное пособие,П.Н.Карасев
"Первый год лбучения языку Турбо Паскаль", учебное пособие,Р.М. Хадиев, А.Ф. Гарапов
