Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация по информатике на тему "Программирование на языке Паскаль-Графика"

Презентация по информатике на тему "Программирование на языке Паскаль-Графика"

  • Информатика

Название документа Программирование на языке Паскаль-Графика.ppt

Программирование на языке Паскаль Графика
Система координат (0,0) (x,y) X Y x y
Управление цветом Цвет и толщина линий, цвет точек: Pen ( 1, 255, 0, 0 ); Цве...
Точки, отрезки и ломаные Pen (1, 0, 255, 0); Line (x1, y1, x2, y2); Pen (1, 0...
Фигуры с заливкой Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle (x1,...
Текст TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); Move...
Пример (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255);...
Задания "4": "Лягушка" "5": "Корона"
Штриховка (x1, y1) (x2, y2) N линий (N=5) h Rectangle (x1, y1, x2, y2); Line(...
Как менять цвет? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill ( ???, ??? ); с...
Штриховка (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h-a, y...
Штриховка (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ; Line...
Задания "4": Ввести с клавиатуры число линий штриховки и построить фигуру, за...
1 из 13

Описание презентации по отдельным слайдам:

№ слайда 1 Программирование на языке Паскаль Графика
Описание слайда:

Программирование на языке Паскаль Графика

№ слайда 2 Система координат (0,0) (x,y) X Y x y
Описание слайда:

Система координат (0,0) (x,y) X Y x y

№ слайда 3 Управление цветом Цвет и толщина линий, цвет точек: Pen ( 1, 255, 0, 0 ); Цве
Описание слайда:

Управление цветом Цвет и толщина линий, цвет точек: Pen ( 1, 255, 0, 0 ); Цвет и стиль заливки: Brush ( 1, 0, 255, 0 ); Цвет текста: TextColor ( 0, 0, 255 ); толщина линии R(red) 0..255 G(green) 0..255 B(blue) 0..255 0 – выключить 1 - включить R G B R G B

№ слайда 4 Точки, отрезки и ломаные Pen (1, 0, 255, 0); Line (x1, y1, x2, y2); Pen (1, 0
Описание слайда:

Точки, отрезки и ломаные Pen (1, 0, 255, 0); Line (x1, y1, x2, y2); Pen (1, 0, 0, 255); Point (x, y); Pen (1, 255, 0, 0); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5);

№ слайда 5 Фигуры с заливкой Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle (x1,
Описание слайда:

Фигуры с заливкой Pen (1, 0, 0, 255); Brush (1, 255, 255, 0); Rectangle (x1, y1, x2, y2); Pen (1, 255, 0, 0); Brush (1, 0, 255, 0); Ellipse (x1, y1, x2, y2); Brush (1, 100, 200, 255); Fill (x, y);

№ слайда 6 Текст TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); Move
Описание слайда:

Текст TextColor (0, 0, 255); Brush (1, 255, 255, 0); Font (20, 30, 600); MoveTo (x, y); writeln ('Привет!'); Привет! (x, y) размер 10 пикселей угол поворота насыщенность: 400 – нормальный 600 – жирный 30о

№ слайда 7 Пример (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255);
Описание слайда:

Пример (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255); Brush(1, 0, 0, 255); Rectangle(100, 100, 300, 200); MoveTo(100, 100); LineTo(200, 50); LineTo(300, 100); Brush(1, 255, 255, 0); Fill(200, 75); Pen(2, 255, 255, 255); Brush(1, 0, 255, 0); Ellipse(150, 100, 250, 200); end.

№ слайда 8 Задания "4": "Лягушка" "5": "Корона"
Описание слайда:

Задания "4": "Лягушка" "5": "Корона"

№ слайда 9 Штриховка (x1, y1) (x2, y2) N линий (N=5) h Rectangle (x1, y1, x2, y2); Line(
Описание слайда:

Штриховка (x1, y1) (x2, y2) N линий (N=5) h Rectangle (x1, y1, x2, y2); Line( x1+h, y1, x1+h, y2); Line( x1+2*h, y1, x1+2*h, y2); Line( x1+3*h, y1, x1+3*h, y2); ... h := (x2 – x1) / (N + 1); Rectangle (x1, y1, x2, y2); x := x1 + h; for i:=1 to N do begin Line( round(x), y1, round(x), y2); x := x + h; end; var x, h: real; x округление до ближайшего целого x

№ слайда 10 Как менять цвет? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill ( ???, ??? ); с
Описание слайда:

Как менять цвет? (x1, y1) (x2, y2) Brush ( 1, c, c, c ); Fill ( ???, ??? ); серый: R = G = B Шаг изменения c: x (x-1, y1+1) var c, hc: integer; hc := 255 div (N + 1); c := 0; for i:=1 to N+1 do begin Line (round(x), y1, round(x), y2); Brush (1, c, c, c); Fill (round(x)-1, y1+1); x := x + h; c := c + hc; end;

№ слайда 11 Штриховка (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h-a, y
Описание слайда:

Штриховка (x1, y1) (x2, y2) (x3, y2) a h (x3+a, y1) Line( x1+h, y1, x1+h-a, y2); Line( x1+2*h, y1, x1+2*h-a, y2); Line( x1+3*h, y1, x1+3*h-a, y2); ... h := (x3 – x2) / (N + 1); a := x1 – x2; x := x1 + h; for i:=1 to N do begin Line( round(x), y1, round(x-a), y2); x := x + h; end; x x-a

№ слайда 12 Штриховка (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ; Line
Описание слайда:

Штриховка (x1, y1) (x2, y2) hx hy y x y Line( x1, y1+hy, x1+hx, y1+hy) ; Line( x1, y1+2*hy, x1+2*hx, y1+2*hy); Line( x1, y1+3*hy, x1+3*hx, y1+3*hy); ... hx := (x2 – x1) / (N + 1); hy := (y2 – y1) / (N + 1); x := x1 + hx; y := y1 + hy; for i:=1 to N do begin Line( x1, round(y), round(x), round(y)); x := x + hx; y := y + hy; end;

№ слайда 13 Задания "4": Ввести с клавиатуры число линий штриховки и построить фигуру, за
Описание слайда:

Задания "4": Ввести с клавиатуры число линий штриховки и построить фигуру, залив все области разным цветом. "5": Ввести с клавиатуры число окружностей и построить фигуру, залив все области разным цветом.

Автор
Дата добавления 05.12.2015
Раздел Информатика
Подраздел Презентации
Просмотров255
Номер материала ДВ-229283
Получить свидетельство о публикации

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх