Графические возможности языка Паскаль. (9 класс)
презентация к уроку по информатике и икт (9 класс) по теме

Слайд 1

Графические возможности ЯП Паскаль Урок-лекция

Слайд 2

Режимы работы монитора: Текстовый – на экране 25 строк по 80 символов в строке. Т.о. на экране 80*25=2000 знакомест, куда выводятся символы. Минимальный элемент вывода – символ. Графический – на экране точки (пикселя). Размер пикселя меньше размера символа, он определяется разрешением экрана. В Паскале разрешение экрана 640*480. Каждая точка может быть одним из цветов заданной палитры, в нашем случае – 16-ти цветной. Минимальный элемент вывода – пиксель.

Слайд 3

Графический экран 0 639 479 x y Курсор, указывающий текущее положение, НЕВИДИМЫЙ

Слайд 4

Инициализация графического режима USES crt, graph; VAR gd, gm : Integer; …… .. Begin gd:=detect; InitGraph(gd, gm, ‘ путь ’); ……… ……… Readkey; CloseGraph; End.

Слайд 5

Графические процедуры управления цветом и шаблоном заполнения SetColor (N); Устанавливает цвет рисования линий и примитивов 2. SetLineStyle(S,D,T); Устанавливает стиль и толщину рисования линий 3. SetFillStyle(S,C); Устанавливает шаблон и цвет заливки закрашенных фигур 4. SetBkColor(N); Устанавливает цвет фона экрана 5. ClearDevice; Очищает экран текущим цветом фона

Слайд 6

Графические примитивы 1. PutPixcel (x, y, c); Выводит точку с координатами ( x,y) текущим цветом 2. Line(x1, y1, x2, y2); Выводит отрезок между точками ( x1,y1) и (x2,y2) текущим цветом 3. Circle(x,y,r); Выводит окружность с центром в т. (x,y) с радиусом r текущим цветом 4. Rectangle(x1,y1,x2,y2); Выводит прямоугольную рамку с координатами верхнего левого угла ( x1,y1 ) т правого нижнего (x2,y2) текущим цветом

Слайд 7

Примеры 0 639 479 Putpixcel(100,100,14);SetColor(6); Rectangle(200,200,400,350); Circle(500,300,50); SetFillStyle(1,2); Bar(200,100,400,180); 100 100 200 200 400 350 500 300 180 450

Слайд 8

5. Bar(x1,y1,x2,y2); Выводит закрашенный прямоугольник с координатами верхнего левого угла и нижнего правого угла цветом и стилем установленным SetFillStyle 6. FloodFill(x,y,c); Закрашивает замкнутую область, начиная с точки ( x,y) текущим цветом и стилем, установленным SetFillStyle до границы цвета C . 7. Ellipse(x,y,u1,u2,rx,ry); Выводит дугу эллипса с полуосями rx и ry , начиная от угла u1 до угла u2 (углы заданы в градусах) ,

Слайд 9

8. FillEllipse(x,y,xr,yr); Выводит закрашенный эллипс с центром в точке (x,y) и полуосями xr, yr. 9. Bar3D(x1,y1,x2,y2,d,t); Выводит трехмерный прямоугольный параллелепипед с верхней гранью, если t = true, и без верхней грани, если t = false. D- размер боковой грани. 10. Sector(x,y,u1,u2,xr,yr); Выводит закрашенный эллиптический сектор с центром в точке (x,y) полуосями xr, yr и от начального угла u1 до угла u2.

Слайд 10

Примеры 0 639 479 100 100 SetFillStyle(1,14); Bar(100,100,200,300);SetColor(1); Ellipse(300,300,0,90,50,50); . FillEllipse(500,350,50,100); 200 300 300 350 500

Слайд 11

0 639 479 100 100 SetFillStyle(1,6); Bar3D(100,100,200,200,30,true); Sector(300,250,90,180,50,50); 200 200 300 250

Слайд 12

Задача. Написать программу рисования гриба на экране компьютера. ПРИМЕР

Слайд 13

program grib; uses crt,graph; var gd,gm:integer; begin gd:=detect; initgraph(gd,gm,''); {Земля} setfillstyle(9,2); bar(0,250,639,479); {Небо} setfillstyle(1,1); bar(0,0,639,250);

Слайд 14

{Шляпа} setfillstyle(1,6); sector(320,150,0,180,100,80); setfillstyle(1,14); sector(320,150,180,360,100,20); {Ножка} setfillstyle(1,7); bar(290,150,350,300); setcolor(7); sector(290,225,90,270,20,75); sector(350,225,270,360,20,75); sector(350,225,0,90,20,75); readkey; closegraph; end.