kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Язык программирования Pascal - графика

Нажмите, чтобы узнать подробности

Данная презентация предназначенна для проведения урока по теме "Язык программирования Pascal - графика" для 11 класса. Соответствуют стандарту ФГОС. В презентации представлен теоретический материал, приведены примеры программ по даной теме, а также задачи для выполнения самостоятельной работы обучающихся. Данная презентация расчитана на 2 урока. Изучение теоретического материала и выполнение практических работ (закрепление полученных знаний). 

Просмотр содержимого документа
«Язык программирования Pascal - графика»

МИНИСТЕРСТВО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ, ПОДГОТОВКИ И РАССТАНОВКИ КАДРОВ РЕСПУБЛИКИ САХА (ЯКУТИЯ) ГОСУДАРСТВЕННОЕ АВТОНОМНОЕ ПРОФЕССИОНАЛЬНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ РЕСПУБЛИКИ САХА (ЯКУТИЯ) «РЕГИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ КОЛЛЕДЖ В Г.МИРНОМ» Язык программирования Pascal Графика

МИНИСТЕРСТВО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ, ПОДГОТОВКИ И РАССТАНОВКИ КАДРОВ РЕСПУБЛИКИ САХА (ЯКУТИЯ)

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

«РЕГИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ КОЛЛЕДЖ В Г.МИРНОМ»

Язык программирования Pascal

Графика

Графика Для работы в графическом режиме необходимо подключение модуля GraphABC. Uses GraphABC; Для работы с текстом - модуль Crt. Uses Crt; program …; uses crt, GraphABC; var …; begin … End. Управление экраном SetWindowWidth(w) -Устанавливает ширину графического окна; SetWindowHeight(h) - Устанавливает высоту графического окна;

Графика

Для работы в графическом режиме необходимо подключение модуля GraphABC. Uses GraphABC;

Для работы с текстом - модуль Crt. Uses Crt;

program …;

uses crt,

GraphABC;

var …;

begin …

End.

Управление экраном SetWindowWidth(w) -Устанавливает ширину графического окна;

SetWindowHeight(h) - Устанавливает высоту графического окна;

Графика Точка SetPixel(x,y,color) – Закрашивает один пиксель с координатами (x,y) цветом color program tochka; uses GraphABC; begin SetPixel(300,200,clred); end. Линии Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). x1,y1 Program liniay; uses GraphABC; begin line(100,50,500,250); x2,y2 end.

Графика

Точка SetPixel(x,y,color) – Закрашивает один пиксель с координатами (x,y) цветом color

program tochka;

uses GraphABC;

begin

SetPixel(300,200,clred);

end.

Линии Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). x1,y1

Program liniay;

uses GraphABC;

begin line(100,50,500,250);

x2,y2 end.

Графика Цвет линии SetPenColor(color) – устанавливает цвет пера, задаваемый параметром color. Program liniay; uses GraphABC; begin setpencolor(clred); line(30,30,400,350); end.

Графика

Цвет линии SetPenColor(color) – устанавливает цвет пера, задаваемый параметром color.

Program liniay;

uses GraphABC;

begin setpencolor(clred);

line(30,30,400,350);

end.

Графика Прямоугольник Rectangle(x1,y1,x2,y2) – рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).x1,y1 Program pryamougolnik; uses GraphABC; begin x2,y2 Rectangle(50,50,200,200); End.

Графика

Прямоугольник Rectangle(x1,y1,x2,y2) – рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).x1,y1

Program pryamougolnik;

uses GraphABC;

begin

x2,y2 Rectangle(50,50,200,200);

End.

Графика Заливка цветом FloodFill(x,y,color) – заливает область одного цвета цветом color, начиная с точки (x,y).x1,y1 Program pryamougolnik; uses GraphABC; x2,y2 begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); End. Треугольник Рисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y); Program treugolnik; uses GraphABC; begin setpenwidth(20); setpencolor(clred); line(300,100,500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.

Графика

Заливка цветом FloodFill(x,y,color) – заливает область одного цвета цветом color, начиная с точки (x,y).x1,y1 Program pryamougolnik;

uses GraphABC;

x2,y2

begin Rectangle(50,50,200,200);

FloodFill(100,100,clBlue);

End.

Треугольник Рисуется процедурами Line(x1,y1,x2,y2); LineTo(x,y);

Program treugolnik;

uses GraphABC;

begin setpenwidth(20);

setpencolor(clred);

line(300,100,500,300);

lineto(100,300);

lineto(300,100);

floodfill(300,200,clgreen);

end.

Графика Окружность Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. Program circle; uses GraphABC; r begin x1,y1 Circle(500,200,100); FloodFill(500,200,clred); End.

Графика

Окружность Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r.

Program circle;

uses GraphABC;

r

begin

x1,y1 Circle(500,200,100);

FloodFill(500,200,clred);

End.

Графика Дуга окружности Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки). Program duga; uses GraphABC; x,y Begin SetPenWidth(10); Arc(300,250,150,45,135); End.

Графика

Дуга окружности Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Program duga;

uses GraphABC;

x,y

Begin SetPenWidth(10);

Arc(300,250,150,45,135);

End.

Операторы SetWindowHeight(h); - Устанавливает высоту графического окна SetWindowWidth(w); - Устанавливает ширину графического окна ClearWindow; - очищает графическое окно белым цветом. ClearWindow(color); - очищает графическое окно указанным цветом. SetPixel(x,y,color); - Закрашивает один пиксел с координатами (x,y) цветом color LineTo(x,y); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). Line(x1,y1,x2,y2); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). SetPenColor(color); - устанавливает цвет пера, задаваемый параметром color.

Операторы

SetWindowHeight(h); - Устанавливает высоту графического окна

SetWindowWidth(w); - Устанавливает ширину графического окна

ClearWindow; - очищает графическое окно белым цветом.

ClearWindow(color); - очищает графическое окно указанным цветом.

SetPixel(x,y,color); - Закрашивает один пиксел с координатами (x,y) цветом color

LineTo(x,y); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y).

Line(x1,y1,x2,y2); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

SetPenColor(color); - устанавливает цвет пера, задаваемый параметром color.

Операторы SetPenWidth(n); - устанавливает ширину (толщину) пера, равную n пикселям. Rectangle(x1,y1,x2,y2); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).    FloodFill(x,y,color); - заливает область одного цвета цветом color, начиная с точки (x,y). SetBrushColor(color); - устанавливает цвет кисти, заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти. Circle(x,y,r); - рисует окружность с центром в точке (x,y) и радиусом r. Ellipse(x1,y1,x2,y2); - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

Операторы

SetPenWidth(n); - устанавливает ширину (толщину) пера, равную n пикселям.

Rectangle(x1,y1,x2,y2); - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).  

FloodFill(x,y,color); - заливает область одного цвета цветом color, начиная с точки (x,y).

SetBrushColor(color); - устанавливает цвет кисти, заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.

Circle(x,y,r); - рисует окружность с центром в точке (x,y) и радиусом r.

Ellipse(x1,y1,x2,y2); - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

Операторы SetFontName(‘name’);- устанавливает наименование шрифта. SetFontColor(color); - устанавливает цвет шрифта. SetFontSize(sz); - устанавливает  размер шрифта в пунктах. SetFontStyle(fs); - устанавливает  стиль шрифта.

Операторы

SetFontName(‘name’);- устанавливает наименование шрифта.

SetFontColor(color); - устанавливает цвет шрифта.

SetFontSize(sz); - устанавливает  размер шрифта в пунктах.

SetFontStyle(fs); - устанавливает  стиль шрифта.

Стиль шрифта: fsNormal – обычный; fsBold – жирный; fsItalic – наклонный; fsBoldItalic – жирный наклонный; fsUnderline – подчеркнутый; fsBoldUnderline – жирный подчеркнутый; fsItalicUnderline – наклонный подчеркнутый; fsBoldItalicUnderline – жирный наклонный подчеркнутый

Стиль шрифта:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый

Примеры Задача: Нарисовать

Примеры

Задача:

Нарисовать

Программа

Программа

  • Program Seventh; uses GraphABC; Begin Line (200,200,400,200); LineTO (300,140); lineTO (200,200); FloodFill (300,170,clblue); Line (200,200,400,200); LineTo (300,260); LineTo (200,200); FloodFill (300,230,cllime); circle (160,200,40); FloodFill (160,200,clred); circle (440,200,40); FloodFill (440,200,clyellow); End.
Пример Рисование шара uses GraphABC; var I,X,Y,D: integer; begin X:=20; Y:=30; D:=100; ClearWindow; SetBrushColor(clGreen); Ellipse(X+I,Y,X+I+D,Y+D); end.

Пример

Рисование шара

uses GraphABC;

var I,X,Y,D: integer;

begin

X:=20; Y:=30; D:=100;

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

end.

Пример Движение шара uses GraphABC; var I,X,Y,D: integer; begin X:=20; Y:=30; D:=100; for i:=1 to 500 do begin ClearWindow; SetBrushColor(clGreen); Ellipse(X+I,Y,X+I+D,Y+D); Sleep(1); end; end.

Пример

Движение шара

uses GraphABC;

var I,X,Y,D: integer;

begin

X:=20; Y:=30; D:=100;

for i:=1 to 500 do

begin

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

Sleep(1);

end;

end.

Пример Движение шара (без мерцания) uses GraphABC; var I,X,Y,D: integer; begin X:=20; Y:=30; D:=100; LockDrawing; for i:=1 to 500 do begin ClearWindow; SetBrushColor(clGreen); Ellipse(X+I,Y,X+I+D,Y+D); Redraw; Sleep(1); end; end.

Пример

Движение шара (без мерцания)

uses GraphABC;

var I,X,Y,D: integer;

begin X:=20; Y:=30; D:=100;

LockDrawing;

for i:=1 to 500 do

begin

ClearWindow;

SetBrushColor(clGreen);

Ellipse(X+I,Y,X+I+D,Y+D);

Redraw;

Sleep(1);

end;

end.

Пример

Пример

  • uses GraphABC;
  • var I,X,Y,D,X1,X2: integer;
  • begin X:=20; Y:=30; D:=70; X1:=350; X2:=500; LockDrawing; for I:=1 to X1-D do // зеленый шар движется, красный стоит на месте
  • begin
  • ClearWindow;
  • SetBrushColor(clGreen);
  • Ellipse(X+I,Y,X+I+D,Y+D);
  • SetBrushColor(clRed);
  • Ellipse(X+X1,Y,X+X1+D,Y+D);
  • Redraw;
  • Sleep(5);
  • end;
  • for I:=X1 to X2 do // зеленый шар стоит на месте, красный шар движется
  • begin
  • ClearWindow;
  • SetBrushColor(clGreen);
  • Ellipse(X+X1-D,Y,X+X1,Y+D);
  • SetBrushColor(clRed);
  • Ellipse(X+I,Y,X+I+D,Y+D);
  • Redraw;
  • Sleep(5);
  • end;
  • end.
Задание 1. Написать программу, которая выводит на экран шар движущийся по вертикали. 2. Написать программу, которая выводит на экран два шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар останавливается на месте, а красный шар начинает падать вниз (движение по вертикали). 3. Написать программу, которая выводит на экран два шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар двигается в обратном направлении, а красный шар начинает падать вниз (движение по вертикали). 4. Написать программу, в которой окружность «пробегает» по периметру прямоугольника. 5. Написать программу «Круги на воде»: на экране в произвольном месте появляется окружность, которая сначала увеличивается, а потом уменьшается, затем так же появляются другие окружности. Начальные радиусы у окружности всегда разные

Задание

1. Написать программу, которая выводит на экран шар движущийся по вертикали.

2. Написать программу, которая выводит на экран два шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар останавливается на месте, а красный шар начинает падать вниз (движение по вертикали).

3. Написать программу, которая выводит на экран два шара: красный шар стоит на месте, а зеленый движется по горизонтали к нему навстречу. После столкновения зеленый шар двигается в обратном направлении, а красный шар начинает падать вниз (движение по вертикали).

4. Написать программу, в которой окружность «пробегает» по периметру прямоугольника.

5. Написать программу «Круги на воде»: на экране в произвольном месте появляется окружность, которая сначала увеличивается, а потом уменьшается, затем так же появляются другие окружности. Начальные радиусы у окружности всегда разные


Получите в подарок сайт учителя

Предмет: Информатика

Категория: Презентации

Целевая аудитория: 11 класс.
Урок соответствует ФГОС

Скачать
Язык программирования Pascal - графика

Автор: Касаткина Татьяна Евгеньевна

Дата: 26.02.2016

Номер свидетельства: 299088

Похожие файлы

object(ArrayObject)#853 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(104) "Урок на тему :"Графика на языке программирования АВС Pascal" "
    ["seo_title"] => string(62) "urok-na-tiemu-grafika-na-iazykie-proghrammirovaniia-avs-pascal"
    ["file_id"] => string(6) "160806"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1422118667"
  }
}
object(ArrayObject)#875 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(83) "Паскаль АВС - основы графики. Учебное пособие "
    ["seo_title"] => string(46) "paskal-avs-osnovy-ghrafiki-uchiebnoie-posobiie"
    ["file_id"] => string(6) "139877"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(7) "prochee"
    ["date"] => string(10) "1417806528"
  }
}
object(ArrayObject)#853 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(45) "Графика в Турбо Паскаль. "
    ["seo_title"] => string(22) "grafika-v-turbo-paskal"
    ["file_id"] => string(6) "171903"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1423739443"
  }
}
object(ArrayObject)#875 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(126) ""Паскальда?ы графика" та?ырыбы бойынша 8 сынып?а арнал?ан саба? жоспары"
    ["seo_title"] => string(76) "paskal-dag-y-ghrafika-tak-yryby-boiynsha-8-synypk-a-arnalg-an-sabak-zhospary"
    ["file_id"] => string(6) "279600"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1453270408"
  }
}
object(ArrayObject)#853 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(102) "среднесрочное планирование  по информатике для 7 класса"
    ["seo_title"] => string(55) "sriedniesrochnoieplanirovaniiepoinformatikiedlia7klassa"
    ["file_id"] => string(6) "271811"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(12) "planirovanie"
    ["date"] => string(10) "1451804153"
  }
}

Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

Распродажа видеоуроков!
ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства