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

Материал из ТолВИКИ
(Различия между версиями)
Перейти к: навигация, поиск
 
(не показаны 8 промежуточных версий 1 участника)
Строка 1: Строка 1:
[http://www.example.com заголовок ссылки]
+
[[участник: Егорчева Светлана Валентиновна, 022.]]
 
+
участник: Егорчева Светлана Валентиновна, 022.
+
  
 
В составе Турбо Паскаля есть специальный графический модуль graph, который содержит графические процедуры:
 
В составе Турбо Паскаля есть специальный графический модуль graph, который содержит графические процедуры:
Строка 29: Строка 27:
  
  
''Тема урока'' – '''«Точечные рисунки».'''
+
<h2><font color="A52A2A">'''''Тема урока'' – ''«Точечные рисунки».'''''</font></h2>
  
 
''Цель урока'' – Построение рисунка из цветных точек.
 
''Цель урока'' – Построение рисунка из цветных точек.
  
 
+
''Начало урока''
 
+
Начало урока  
+
  
 
Запустить оболочку Турбо Паскаля – c:\bp\bin\bp<Enter>
 
Запустить оболочку Турбо Паскаля – c:\bp\bin\bp<Enter>
Строка 43: Строка 39:
 
'''1) Пример самой простой графической программы.'''
 
'''1) Пример самой простой графической программы.'''
  
Uses graph;  {графическое расширение}
+
 
 +
<pre>Uses graph;  {графическое расширение}
  
 
var i,j:integer ;
 
var i,j:integer ;
Строка 59: Строка 56:
 
closegraph
 
closegraph
  
end.
+
end.</pre>
 +
 
  
  
 
'''2) В точке (100, 50) поставить красную точку – (100, 50)'''  
 
'''2) В точке (100, 50) поставить красную точку – (100, 50)'''  
  
Решения:
+
<pre>Решения:
  
 
Uses graph;
 
Uses graph;
Строка 90: Строка 88:
 
closegraph
 
closegraph
  
end.
+
end.</pre>
  
 
'''3) Построить белую линию от точки (100, 150) до (200, 150) – (100, 150)'''
 
'''3) Построить белую линию от точки (100, 150) до (200, 150) – (100, 150)'''
  
Решения:
+
<pre>Решения:
  
 
Uses graph;
 
Uses graph;
Строка 116: Строка 114:
 
closegraph
 
closegraph
  
end.
+
end.</pre>
  
'''4) Построить программу полета реактивного самолета'''  
+
'''4) Построить программу полета реактивного самолета'''
  
Решения:
+
<pre>Решения:
  
 
Uses graph;
 
Uses graph;
Строка 152: Строка 150:
 
closegraph
 
closegraph
  
end.
+
end.</pre>
  
 
'''Домашнее задание:'''
 
'''Домашнее задание:'''
Строка 171: Строка 169:
  
  
[[Категория:Проект ДООМ]]
+
[[Категория:Проект ДООМ 2007-2008 (1 цикл)]]
 
+
[[участник: Егорчева Светлана]]
+

Текущая версия на 14:45, 10 января 2008

участник: Егорчева Светлана Валентиновна, 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", учебник, С.А. Немнюгин

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

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

Личные инструменты
наши друзья
http://аудиохрестоматия.рф/