Проверка домашнего задания Графические возможности языка программирования

Вопросы: Где хранятся команды для работы в графическом режиме? Где хранятся команды для работы в графическом режиме? Из каких примитивов можно создать изображение в графическом режиме? Из каких примитивов можно создать изображение в графическом режиме? Что является минимальным элементом графического изображения? Что является минимальным элементом графического изображения? Как задаются координаты точки на экране монитора? Как задаются координаты точки на экране монитора? Какая команда рисует линию? Какая команда рисует линию?

1. Команды для работы в графическом режиме хранятся в модуле ________. 2. Рафическую библиотеку нужно подключать в разделе описаний с помощью зарезервированного слова __________. 3. setwindowsize(X,Y) - задаёт размеры ____________. 4. setpixel(x,y,c) – рисует _________ с координатами (х,у) цветом с. 5. Line(x1,y1,x2,y2) – рисует _________, где (x1,y1) и (x2,y2) - координаты точек отрезка, которого соединяет линия. 6. setpencolor(c) – устанавливает _________ для линии.

Проверь себя 1. GraphAbc 2. Uses 3. Графического окна или экрана 4. Точку или пиксел 5. Линию или отрезок 6. Цвет

Использование графических возможностей языка программирования

треугольник, у которого все стороны разного цвета, с определенной толщиной (шириной) линии. program treugolnik; uses graphabc; begin setwindowsize(640,480); setpenwidth(5); setpencolor(clred); line(100,200,170,70); setpencolor(clGreen); line(170,70,250,200); setpencolor(clBlue); line(250,200,100,200); end.

setpenwidth(5) - устанавливает ширину текущего пера. В скобках указывается количество пикселей, образующих ширину линии. setpenwidth(5) - устанавливает ширину текущего пера. В скобках указывается количество пикселей, образующих ширину линии.

Что будет выведено на экран монитора в результате выполнения следующих программы program grafika1; uses graphabc; begin setpenwidth (10); setpenwidth (10); setpencolor (clred); setpencolor (clred); line (100,100,270,90) line (100,100,270,90) End. End.

Изменим нашу программу так, чтобы она рисовала закрашенный треугольник. Program treug_zakrash; uses graphabc; begin setwindowsize(640,480); clearwindow(clWhite); setpenwidth(3); setpencolor(clgreen); line(100,200,170,70); line(170,70,250,200); line(250,200,100,200); floodfill(440,120,clred); end.

clearwindow(С ) - очищает графическое окно цветом С, floodfill(440,120,clred) - закрашивает треугольник красным цветом, (указывается координата точки (х,у), которая обязательно должна попасть во внутреннюю область закрашиваемой фигуры.)

Изменим нашу программу так, чтобы она рисовала закрашенный треугольник. Program treug_zakrash; uses graphabc; begin setwindowsize(640,480); clearwindow(clWhite); setpenwidth(3); setpencolor(clgreen); line(100,200,170,70); line(170,70,250,200); line(250,200,100,200); floodfill(440,120,clred); end.

Рисование прямоугольников и окружностей rectangle(x1,y1,x2,y2) - рисует прямоугольник, где x1,y1,x2,y2 – координаты противоположных вершин rectangle(x1,y1,x2,y2) - рисует прямоугольник, где x1,y1,x2,y2 – координаты противоположных вершин circle(x,y,r) - рисует окружность с центром в точке (х, у) и радиуса r. circle(x,y,r) - рисует окружность с центром в точке (х, у) и радиуса r.

program gemetry; uses graphabc; begin setwindowsize(640,480); setpencolor(clBlue); setpenwidth(6); rectangle(50,50,250,150); setpencolor(clred); circle(350,100,60); end.

А теперь закрасим прямоугольник и круг! setbrushcolor(c) - устанавливает цвет заливки

program gemetry; uses graphabc; begin setwindowsize(640,480); setpencolor(clBlue); setpenwidth(6); setbrushcolor(); setbrushcolor(clMaroon); rectangle(50,50,250,150); setpencolor(clred); setbrushcolor(); setbrushcolor(clSilver); circle(350,100,60); end.

Подпишем прямоугольник и круг! textout(380,220,'Круг') - делает надпись

program gemetry; uses graphabc; begin setwindowsize(640,480); setpencolor(clBlue); setpenwidth(6); setbrushcolor(); setbrushcolor(clMaroon); rectangle(50,50,250,150); setpencolor(clred); setbrushcolor(); setbrushcolor(clSilver); circle(350,100,60); textout(100,220,'Прямоугольник'); textout(380,220,'Круг'); end.

Домашнее задание: учить по конспекту, чтобы ответить на вопросы учить по конспекту, чтобы ответить на вопросы 1. Какая команда рисует прямоугольник? 2. Какая команда рисует окружность?