Графика в Pascal ABC и Qbasic
презентация к уроку (7 класс) по теме

Слайд 2

Подключение дополнительных библиотек Для работы в графическом режиме необходимо подключение этого модуля и определение графического окна Pascal ABC uses GraphABC; SetWindow Size ( x,y ); Qbasic SCREEN 12 6 4 0 точек 400 точек x Y

Слайд 3

- очищает графическое окно белым цветом. - очищает графическое окно указанным цветом . Очистка графического окна Pascal ABC ClearWindow; ClearWindow( color ); Qbasic CLS COLOR [передний план] , [фон]

Слайд 4

Используемые цвета Pascal ABC clBlack – черный clPurple – фиолетовый clWhite – белый clMaroon – темно-красный clRed – красный clNavy – темно-синий clGreen – зеленый clBrown – коричневый clBlue – синий clSkyBlue – голубой clYellow – желтый clCream – кремовый clAqua – бирюзовый clOlive – оливковый clFuchsia – сиреневый clTeal – сине-зеленый clGray – темно-серый clLime – ярко-зеленый clMoneyGreen – цвет зеленых денег clLtGray – светло-серый clDkGray – темно-серый clMedGray – серый clSilver – серебряный Random(16777215) – случайный цвет из всей палитры цветов Паскаля

Слайд 5

Номера цветов основной палитры Qbasic Номер цвета Название цвета Номер цвета Название цвета 0 Чёрный 8 Серый 1 Синий 9 Светло-синий 2 Зелёный 10 Светло-зелёный 3 Голубой 11 Светло-голубой 4 Красный 12 Светло-красный 5 Пурпурный 13 Светло-пурпурный 6 Коричневый 14 Жёлтый 7 Белый 15 Ярко-белый

Слайд 6

Графические примитивы Точка Линия Прямоугольник Окружность Эллипс Сектор Дуга

Слайд 7

Точка SetPixel(x,y,color ) program tochka ; uses GraphABC; begin SetPixel(300,200,clred); end. PSET ( X , Y ), C CLS SCREEN 12 PSET (270, 150), 1

Слайд 8

Линии SetPenColor(color ) Line(x1,y1,x2,y2); LINE (Х1, У1)—(Х2, У2), С LINE (150, 100)—(450, 270), 2 setpencolor(clred); line( 30,30 , 400 , 350 );

Слайд 9

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

Слайд 10

LINE (Х1, У1)—(Х2, У2), С, В где Х1, У1 и Х2, У2 — координаты начала и конца диагонали С — цвет сторон прямоугольника В – буква (признак прямоугольника от англ. слова box – ящик, коробка). Х 100 У 270 LINE (150, 100)—(450, 270), 2 , B 150 450 Прямоугольник

Слайд 11

Заливка цветом FloodFill(x,y,color ) - заливает область одного цвета цветом color, начиная с точки (x,y). Program pryamougolnik; uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end. x1,y1 x2,y2

Слайд 12

LINE (Х1, У1)—(Х2, У2), С, В F где Х1, У1 и Х2, У2 — координаты начала и конца диагонали; С — цвет BF- признак закрашенного прямоугольника (от английского слова full box – полная коробка). Х 100 У 270 LINE (150, 100)—(450, 270), 2, BF 450 150 Закрашенный прямоугольник

Слайд 13

Программа, рисующая Российский флаг CLS SCREEN 12 LINE (100, 50) – (500, 130), 15, BF LINE (100, 130) – (500, 210), 1, BF LINE (100, 210) – (500, 290), 4, BF END Попробуйте сами написать программы, используя изученные операторы!!! Program flag; uses GraphABC; begin Rectangle( 10 0,50, 5 00, 13 0); FloodFill(10 1 , 51, clWhite ) ; Rectangle( 10 0,130, 5 00,210); FloodFill(10 1 ,13 1 , cl Blue ) ; Rectangle( 10 0,210, 5 00,290); FloodFill(10 1 ,21 1, cl Red ) ; end.

Слайд 14

Заливка кистью SetBrushColor( color ) - устанавливает цвет кисти. Заливка кистью распространяется на замкнутый контур , описание которого следует за процедурой установки цвета кисти. Program zalivka _kist ; uses GraphABC; Begin SetBrushColor(cl Green ); Rectangle(50,50,300,300); end.

Слайд 15

Заливка кистью SetBrushStyle(номер от 0 до 7 или название ) - устанавливает стиль кисти, задаваемый номером или символической константой. Program p12_zalivka; uses GraphABC; Begin SetBrushColor(clAqua); SetBrushStyle(1); Rectangle(10,10,100,100); SetBrushColor(clRed); SetBrushStyle(2); Rectangle(110,10,200,100); SetBrushColor(clBlue); SetBrushStyle(3); Rectangle(210,10,300,100); SetBrushColor(clGreen); SetBrushStyle(4); Rectangle(10,110,100,210); SetBrushColor(clYellow); SetBrushStyle(5); Rectangle(110,110,200,210); SetBrushColor(clBlack); SetBrushStyle(6); Rectangle(210,110,300,210); end. По умолчанию задается стиль 0 – сплошная заливка цветом.