Графика в Паскаль

Урок информатики в 7 классе
«Графические возможности
языка Паскаль»
подготовила Князюк Галина
Николаевна, учитель
информатики и математики
Новодевятковичской ГОСШ

Графика в Паскаль

В Ы П О Л Р А Д И У
О Т Р Е Н Е Н И Е С
А Р Г З О К В В О Д
Ф П А С К О К Р У Ж
И К О О А Т П Р Я Н
К И Д Р Л О У О М О
А Н А Т Ь Ч Г О Л С
К О Д Ы А К И Н Ь Т
О В Ы В П Р К А М Ь
М А Н Д А О Г Р М А

Применение
координат

Тема:
Графические возможности
языка Паскаль

Цель:
Познакомиться с основными командами
языка Паскаль для создания
графического изображения

Структура
программы
program <имя программы>;

<раздел описаний, в котором
описываются данные>

begin
<раздел команд (тело
программы)>;
end.

При работе в графическом
режиме изображение на экране
строится не из символов, а из
точек – пикселов. Каждый
пиксель имеет две координаты:
х и у . Геометрические размеры
пикселя определяются
разрешением монитора, где х – у
количество возможных
пикселов на экране по
горизонтали, а у - количество
возможных пикселов на экране
по вертикали.
Например,
320х320
640х480
800х600
1024х768
1280х1024 и др.

0 100 200 300 400 500 600 700

А
100

200 G
D С
Е
300

400
F В
500

program risunok;
uses graphabc;
{подключение модуля GraphAbc}
begin
setwindowsize(640,480);
{устанавливает размеры
графического окна}
setpixel(130,90,clBlack);
{устанавливает черный цвет
пера и рисует точку с
координатами (130,90)}
{устанавливает черный цвет
пера и рисует точку с
end.

Стандартные цвета
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clAqua – бирюзовый
clSkyBlue – голубой
clOlive – оливковый
clYellow – желтый
clFuchsia – сиреневый
clCream – кремовый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный

ЗАПИШИ В ТЕТРАДЬ:
uses graphabc;
{подключение модуля GraphAbc}
setwindowsize(х,у); { размеры
графического окна}
setpixel(х,у,c); {устанавливает с
цвет пера и рисует точку с
координатами (х,у)}

program risunok;
uses graphabc;
begin
setpencolor(clMedGray);{устанавливает
серый цвет пера}
line(40,420,160,200); {рисует отрезок от
точки с координатами(40,420) до точки с
end.

setpencolor(color); {устанавливает

цвет пера}
line(х1,у1,х2,у2); {рисует отрезок
от точки с координатами(х1,у1)
до точки с координатами с
координатами (х2,у2)}

program risunok;
uses graphabc;
begin
setpencolor(clMedGray);
line(40,420,160,200);
line(160,200,280,420);
line(280,420,40,420);
setpenwidth(5); {устанавливает ширину
текущего пера, где 5 - количество
пикселей, образующих ширину линии}
setpencolor(clRed); {устанавливает
красный цвет пера}
SetPenStyle (psDot); {задание стилей пера}
line(120,140,200,140); {рисует отрезок
от точки с координатами(120,140) до точки с
line(200,140,160,180); {рисует отрезок от точки
с координатами(200,140) до точки с
line(160,180,120,140); {рисует отрезок от точки
с координатами(160,180) до точки с
end.

setpenwidth(п); {устанавливает ширину
текущего пера, где п - количество пикселей,
образующих ширину линии}
SetPenStyle (Style); { задание стилей пера,
где Style - константы стилей пера}

program risunok;
uses graphabc;
begin
line(40,420,160,200);
line(160,200,280,420);
line(280,420,40,420);
floodfill(160,300,clMedGray); {заливка
серым цветом замкнутой облаcти, где
(160,300) - координата точки, которая
попала во внутреннюю область
закрашиваемой фигуры}
setpenwidth(5);
setpencolor(clRed);
SetPenStyle (psDot);
line(120,140,200,140);
line(200,140,160,180);
line(160,180,120,140);
floodfill(160,160,clCream); {заливка замкнутой
области кремовым цветом, где (160,160) -
координата точки, которая попала во
внутреннюю область закрашиваемой фигуры}
end.

floodfill(х,у,c); {заливка
замкнутой облати, где (х,у) -
координата точки, которая
обязательно должна попасть во
внутреннюю область закрашиваемой
фигуры, а c – цвет заливки}

program risunok;
uses graphabc;
begin
setpencolor(clDkGray);
rectangle(120,320,150,420); {рисует
прямоугольник, заданный координатами
противоположных вершин}
rectangle(170,320,200,420); {рисует
circle(160,120,80);
{рисует окружность с центром в точке
с координатами (160,120) и радиусом 80}
line(40,420,160,200);
line(160,200,280,420);
line(280,420,40,420);
floodfill(160,300,clMedGray);
setpenwidth(5);
setpencolor(clRed);
line(120,140,200,140);
line(200,140,160,180);
line(160,180,120,140);
floodfill(160,160,clCream);
end.

rectangle(х1,у1,х2,у2); {рисует
circle(х,у,r); {рисует окружность с
центром в точке с координатами (х,у)
и радиусом r}

program risunok;
uses graphabc;
begin
clearwindow(clCream); {устанавливает кремовый
цвет фона}
rectangle(120,320,150,420);
rectangle(170,320,200,420);
circle(160,120,80);
setbrushcolor(clGreen); {устанавливает цвет
кисти}
circle(130,90,10); {рисует круг с центром в точке
circle(190,90,10); {рисует круг с центром в точке
line(40,420,160,200);
line(160,200,280,420);
line(280,420,40,420);
floodfill(160,300,clMedGray);
setpenwidth(5);
setpencolor(clRed);
line(120,140,200,140);
line(200,140,160,180);
line(160,180,120,140);
floodfill(160,160,clCream);
end.

ЗАПИШИ В ТЕТРАДЬ
clearwindow(cоlor); {цвет фона}
setbrushcolor(cоlor); { цвет кисти}

program risunok;
uses graphabc;
begin
clearwindow(clCream);
rectangle(120,320,150,420);
rectangle(170,320,200,420);
circle(160,120,80);
setbrushcolor(clGreen); setpencolor(clBlack);
circle(130,90,10); setpenwidth(2);
circle(190,90,10); line(40,100,150,150);
setpixel(130,90,clBlack); line(40,150,145,157);
setpencolor(clMedGray); line(170,150,280,100);
line(40,420,160,200); line(175,157,280,157);
line(160,200,280,420); line(170,165,280,170);
line(280,420,40,420); setpenwidth(10);
floodfill(160,300,clMedGray); line(240,340,280,340);
setpencolor(clRed); line(280,340,320,360);
SetPenStyle (psDot); line(320,360,340,380);
line(120,140,200,140); line(340,380,340,420);
line(200,140,160,180); line(340,420,300,460);
line(160,180,120,140); line(300,460,240,460);
floodfill(160,160,clCream); line(240,460,220,440);
line(100,70,100,20);
line(100,20,140,40);
line(180,40,220,20);
line(220,20,220,70);
end.

program risunok;
uses graphabc;
begin
clearwindow(clCream);
rectangle(120,320,150,420);
rectangle(170,320,200,420);
circle(160,120,80); setpenwidth(10);
setbrushcolor(clGreen); line(240,340,280,340);
circle(130,90,10); line(280,340,320,360);
circle(190,90,10); line(320,360,340,380);
setpencolor(clMedGray); line(300,460,240,460);
line(40,420,160,200); line(240,460,220,440);
line(160,200,280,420); setpencolor(clMedGray);
line(280,420,40,420); line(100,70,100,20);
floodfill(160,300,clMedGray); line(100,20,140,40);
setpencolor(clRed); line(180,40,220,20);
SetPenStyle (psDot); line(220,20,220,70);
line(120,140,200,140); setfontstyle(fsbold);
line(200,140,160,180); {устанавливает стиль шрифта}
line(160,180,120,140); setfontsize(40);
floodfill(160,160,clCream); {устанавливает размер шрифта}
setpencolor(clBlack); setfontcolor(clLime);
setpenwidth(2); {устанавливает салатовый цвет
line(40,100,150,150); шрифта}
line(40,150,145,157); textout(260,200,'Котик');
line(40,180,150,165); {делает надпись}
line(170,150,280,100); end.
line(175,157,280,157);
line(170,165,280,170);

setfontstyle(Style);{стиль шрифта}
setfontsize(к); { размер шрифта}
setfontcolor(cоlor); { цвет шрифта}
textout(x,y,'текст'); { надпись}

Программа

Отдохни!
Сделай гимнастику
для глаз!

1. Работу с компьютером 0 100 200 300 400 500 600
начинайте только после
разрешения (100,400).
100
2. Не трогайте
соединительные провода и
не прикасайтесь к задним 200
стенкам (200,200) и
(300,400).
300
3. Не держите лишние
(400,100) на (600,200).
400
4. (300,400) должен
находиться на расстоянии
50-70см от ваших (400,300)
5. Нажимайте на (600,400)
мягко и не используйте для
этого посторонние
предметы.
6. При работе на компьютере
не сутультесь, держите
(200,300) прямо.

Я сегодня узнал …
Я познакомился…
Я научился…
У меня получается…
У меня не получилось…

Домашнее задание:
Конспект урока, программа
рисования своего рисунка (у кого
есть компьютеры - электронный
вариант, у кого нет –
а) можно выполнить после уроков
в классе,
б) написать программу
в тетрадь.

Урок окончен. Спасибо за
внимание.

Графика в Паскаль

More Related Content

What's hot (19)

Similar to Графика в Паскаль (19)

Графика в Паскаль