- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему Модуль Graph в среде программирования Pascal
Содержание
- 1. Презентация по информатике на тему Модуль Graph в среде программирования Pascal
- 2. procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами
- 3. type ColorType=integer; - стандартные цвета задаются символическими константами:
- 4. program dom;uses graphabc;beginsetwindowsize (640,480);setwindowtitle ('Дом');setpencolor (clbrown);setpenwidth (2);rectangle(100,100,270,200);setbrushcolor(cllime);rectangle(130,120,160,160);rectangle(210,120,240,160);line(100,100,185,50);line(185,50,270,100);line(145,120,145,160);line(130,130,145,130);line(225,120,225,160);line(210,130,225,130);circle(185,75,12);setbrushstyle (bssolid);floodfill(110,110,clteal);floodfill(120,97,clgray);setfontcolor(clyellow);setfontstyle(fsbold);setfontsize(1);setbrushcolor(clteal);textout (104,104,'№49');end.
- 5. Рассмотрим используемые функции в программе:
- 6. Слайд 6
- 7. Слайд 7
- 8. Слайд 8
- 9. Слайд 9
- 10. Слайд 10
- 11. Слайд 11
- 12. 1. Измените цвет дома.2. Измените цвет крыши.
- 13. 1. Измените цвет дома.(floodfill(110,110,clteal) заменить наfloodfill(110,110,clPurple))2. Измените
procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color (точка).procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных
Слайд 1Модуль GrahpABC.
Функции, которые помогут вам нарисовать точку, отрезок, окружность и прямоугольник.
Слайд 2procedure SetPixel(x,y,color: integer); - закрашивает один пиксел с координатами (x,y) цветом color (точка).
procedure Line(x1,y1,x2,y2:
integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).
procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.
procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.
function PenColor: integer; - возвращает текущий цвет пера.
procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.
procedure Circle(x,y,r: integer); - рисует окружность с центром в точке (x,y) и радиусом r.
procedure Rectangle(x1,y1,x2,y2: integer); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.
function PenColor: integer; - возвращает текущий цвет пера.
procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.
Слайд 4program dom;
uses graphabc;
begin
setwindowsize (640,480);
setwindowtitle ('Дом');
setpencolor (clbrown);
setpenwidth (2);
rectangle(100,100,270,200);
setbrushcolor(cllime);
rectangle(130,120,160,160);
rectangle(210,120,240,160);
line(100,100,185,50);
line(185,50,270,100);
line(145,120,145,160);
line(130,130,145,130);
line(225,120,225,160);
line(210,130,225,130);
circle(185,75,12);
setbrushstyle (bssolid);
floodfill(110,110,clteal);
floodfill(120,97,clgray);
setfontcolor(clyellow);
setfontstyle(fsbold);
setfontsize(1);
setbrushcolor(clteal);
textout (104,104,'№49');
end.
Слайд 121. Измените цвет дома.
2. Измените цвет крыши.
3. Измените способ закрашивания
окон.
4. Измените цвет закрашивания окон.
5.Измените цвет надписи на доме.
4. Измените цвет закрашивания окон.
5.Измените цвет надписи на доме.
Слайд 131. Измените цвет дома.(floodfill(110,110,clteal) заменить наfloodfill(110,110,clPurple))
2. Измените цвет крыши. (floodfill(120,97,clltgray) заменить
наfloodfill(120,97,clYellow))
3. Измените способ закрашивания окон. (setbrushstyle(bsdiagcross) заменить на setbrushstyle (bsBDiagonal))
4. Измените цвет закрашивания окон. (setbrushcolor(cllime) заменить на setbrushcolor(clBlue))
5.Измените цвет надписи на доме. (setfontcolor(clyellow) наsetfontcolor(clWhite))
3. Измените способ закрашивания окон. (setbrushstyle(bsdiagcross) заменить на setbrushstyle (bsBDiagonal))
4. Измените цвет закрашивания окон. (setbrushcolor(cllime) заменить на setbrushcolor(clBlue))
5.Измените цвет надписи на доме. (setfontcolor(clyellow) наsetfontcolor(clWhite))
