Разберите и выполните на компьютере программу которая рисует кирпичный домик со стеклянным окном
И еще что такое FillRect, Rectangle,SetPenColor,FloodFill и какую сделать команду, чтобы поменять размер окна?
Program kukareku;
uses crt;
begin
clrscr;
writeln('___/\____');
writeln('__/__\___');
writeln('_/____\__');
writeln('_|____|__');
writeln('_|____|__');
readkey;
end.
uses graphabc;
begin
line(10,100,50,50);
line(50,50,100,100);
rectangle(10,100,100,200);
end.
Program p23;
uses graphabc;
begin
setpencolor(clTurquoise);
rectangle(50,150,350,350);
setbrushcolor(clTurquoise);
floodfill(150,250,clTurquoise);
setpencolor(clgreen);
line(50,150,200,50);
line(350,150,200,50);
floodfill(150,100,clForestGreen);
setpencolor(clred);
rectangle(100,200,150,250);
rectangle(250,200,300,250);
setbrushcolor(clred);
floodfill(125,225,clred);
floodfill(275,225,clred);
setpencolor(clblack);
line(125,200,125,250);
line(100,225,150,225);
line(275,200,275,250);
line(250,225,300,225);
setpencolor(clbrown);
rectangle(175,275,225,350);
setbrushcolor(clbrown);
fillrect(175,275,225,350);
end.
Program Domik;
uses Graphabc; //подключение модуля GraphABC
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(3); //толщина пера
SetFontSize(18); //размер шрифта
SetFontColor(clRed); //цвет шрифта
SetFontStyle(fsBold); //жирный стиль шрифта
TextOut(100,100,'Домик'); //текст
Rectangle(200, 300, 600,600); //дом
Circle(400,225, 40); //круг
SetBrushColor(clAqua); //цвет заливки окна
FillRect(300, 400,500,500); //процедура заливки окна
rectangle(300,400,500,500); //окно
Line(400,400,400,500); // окно
Line(300,450,500,450); //окно
Line(200,300,400,150); //крыша
Line(400,150,600,300); //крыша
Line(480,210,480,160); //труба
Line(480,160,520,160); //труба
Line(520,160,520,240); //труба
end.
развитие познавательного интереса, логического и алгоритмического мышления.
Тип урока: урок усвоения новых знаний и умений.
Учащиеся должны уметь: составлять программы с использованием растровых изображений.
Программное и методическое обеспечение урока: система программирования Pascal ABC, учебное пособие «Информатика 11», § 7.2, материалы к уроку.
Объяснение нового материала;
Процедуры и функции для работы с растровыми изображениями содержаться в модуле GraphABC.
LoadWindow (fname: string); - выводит в графическое окно рисунок из файла с именем fname.
SetBrushPicture (fname: string); - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname.
n:= LoadPicture (fname: string): integer; - загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n.
DrawPicture (n, x, y: integer); - выводит рисунок с описателем n в позицию (x, y) графического окна.
DrawPicture (n, x, y, w, h: integer); - выводит рисунок с описателем n в позицию (х, у) графического окна, масштабируя его размеры к ширине w и высоте h. Если w, то рисунок зеркально отражается относительно вертикальной прямой, проходящей через х, если же h, то рисунок зеркально отражается относительно горизонтальной прямой, проходящей через у.
SetPictureTransparent (n: integer; b: boolean); - SetPictureTransparent (n, true) устанавливает режим прозрачности при рисовании рисунка с описателем n.
Redraw; - осуществляет перерисовку окна вывода, чтобы избежать мерцания экрана.
SaveWindow (fname: string); - сохраняет содержимое графического окна в файле fname.
SetPenColor (clcolor); - устанавливает цвет пера.
ClearWindow(clcolor); - устанавливает цвет фона.
Выполнение практических заданий;
Задание 1. Составьте программу, которая рисует кирпичный домик со стеклянным окном и черепичной крышей на фоне леса и сохраняет полученный рисунок в файле fon1.jpg, образцы для закраски стен, окна, крыши – из файлов kirpichi.jpg, steclo.jpg, ch,jpg.
uses crt, GraphABC;
Задание 2. Составьте программу, которая рисует пейзаж и сохраняет полученный рисунок в файле с именем Пейзаж.bmp. Цвет фона – голубой. Цвет пера для рисования – голубой. Образцы для закраски солнца, облака, травы – из файлов sun.jpg, cloug.jpg, grass,jpg. Координаты для рисования пейзажа представлены на рисунке.
развитие познавательного интереса, логического и алгоритмического мышления.
Тип урока: урок усвоения новых знаний и умений.
Учащиеся должны уметь: составлять программы с использованием растровых изображений.
Программное и методическое обеспечение урока: система программирования Pascal ABC, учебное пособие «Информатика 11», § 7.2, материалы к уроку.
Объяснение нового материала;
Процедуры и функции для работы с растровыми изображениями содержаться в модуле GraphABC.
LoadWindow (fname: string); - выводит в графическое окно рисунок из файла с именем fname.
SetBrushPicture (fname: string); - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname.
n:= LoadPicture (fname: string): integer; - загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n.
DrawPicture (n, x, y: integer); - выводит рисунок с описателем n в позицию (x, y) графического окна.
DrawPicture (n, x, y, w, h: integer); - выводит рисунок с описателем n в позицию (х, у) графического окна, масштабируя его размеры к ширине w и высоте h. Если w, то рисунок зеркально отражается относительно вертикальной прямой, проходящей через х, если же h, то рисунок зеркально отражается относительно горизонтальной прямой, проходящей через у.
SetPictureTransparent (n: integer; b: boolean); - SetPictureTransparent (n, true) устанавливает режим прозрачности при рисовании рисунка с описателем n.
Redraw; - осуществляет перерисовку окна вывода, чтобы избежать мерцания экрана.
SaveWindow (fname: string); - сохраняет содержимое графического окна в файле fname.
SetPenColor (clcolor); - устанавливает цвет пера.
ClearWindow(clcolor); - устанавливает цвет фона.
Выполнение практических заданий;
Задание 1. Составьте программу, которая рисует кирпичный домик со стеклянным окном и черепичной крышей на фоне леса и сохраняет полученный рисунок в файле fon1.jpg, образцы для закраски стен, окна, крыши – из файлов kirpichi.jpg, steclo.jpg, ch,jpg.
uses crt, GraphABC;
Задание 2. Составьте программу, которая рисует пейзаж и сохраняет полученный рисунок в файле с именем Пейзаж.bmp. Цвет фона – голубой. Цвет пера для рисования – голубой. Образцы для закраски солнца, облака, травы – из файлов sun.jpg, cloug.jpg, grass,jpg. Координаты для рисования пейзажа представлены на рисунке.
После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно.
Чтобы его открыть, необходимо подключить модуль GraphABC. В этом модуле содержится набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой.
С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями.
Подключение осуществляется в разделе описаний.
Формат подключения модуля GraphABC:Uses GraphABC;
Графический экран PascalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали. Начало отсчета – левый верхний угол экрана. Ось x направлена вправо, а ось y –вниз. Координаты исчисляются в пикселях.
Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметров.
Управление графическим окном
После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно.
Чтобы его открыть, необходимо подключить модуль GraphABC. В этом модуле содержится набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой.
С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями.
Подключение осуществляется в разделе описаний.
Формат подключения модуля GraphABC:Uses GraphABC;
Графический экран PascalABC (по умолчанию) содержит 640 точек по горизонтали и 400 точек по вертикали. Начало отсчета – левый верхний угол экрана. Ось x направлена вправо, а ось y –вниз. Координаты исчисляются в пикселях.
Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметров.
Процедуры рисования графических примитивов
Процедуры, используемые для работы с цветом
Процедуры для работы с текстом
Цвета в PascalABC
Пример графической программы, рисующей изображение дома:
Программа, рисующая фигурку:
Практическая работа за компьютером
Задание 1. Определите координаты и составьте программу, выводящую на экран рисунок дома и дерева.
Программа будет иметь вид:
Задание 2. Используя оператор цикла и введя переменную для пересчета координат по оси x, постройте “поселок”, состоящий из 5 домов. Внесите соответствующие дополнения и изменения в предыдущую программу.
Весь наш «поселок» выстроился вдоль горизонтальной оси экрана — оси X. Построение рисунка начинается с левого верхнего угла стены первого дома — точки с координатами (100, 50). Координата Y не изменяется. Чтобы начать рисовать второй домик, нужно координату X увеличить на 150 (50 точек — ширина первого дома и 100 точек — расстояние между домиками).
Выберем в качестве параметра цикла целочисленную переменную X.
Для всех элементов нашего рисунка абсолютное значение координаты X заменим на относительное. Например, для стены дома процедура для рисования запишется следующим образом:
Сформулируем условие выполнения цыклических действий для нашей задачи.Какие координаты имеет левый верхний угол пятого дома? Конечное значение выбранного нами параметра цикла x = 700. Тогда условие выполнения цикла записывается так: x
развитие познавательного интереса, логического и алгоритмического мышления.
Тип урока: урок усвоения новых знаний и умений.
Учащиеся должны уметь: составлять программы с использованием растровых изображений.
Программное и методическое обеспечение урока: система программирования Pascal ABC, учебное пособие «Информатика 11», § 7.2, материалы к уроку.
Объяснение нового материала;
Процедуры и функции для работы с растровыми изображениями содержаться в модуле GraphABC.
LoadWindow (fname: string); - выводит в графическое окно рисунок из файла с именем fname.
SetBrushPicture (fname: string); - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname.
n:= LoadPicture (fname: string): integer; - загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n.
DrawPicture (n, x, y: integer); - выводит рисунок с описателем n в позицию (x, y) графического окна.
DrawPicture (n, x, y, w, h: integer); - выводит рисунок с описателем n в позицию (х, у) графического окна, масштабируя его размеры к ширине w и высоте h. Если w, то рисунок зеркально отражается относительно вертикальной прямой, проходящей через х, если же h, то рисунок зеркально отражается относительно горизонтальной прямой, проходящей через у.
SetPictureTransparent (n: integer; b: boolean); - SetPictureTransparent (n, true) устанавливает режим прозрачности при рисовании рисунка с описателем n.
Redraw; - осуществляет перерисовку окна вывода, чтобы избежать мерцания экрана.
SaveWindow (fname: string); - сохраняет содержимое графического окна в файле fname.
SetPenColor (clcolor); - устанавливает цвет пера.
ClearWindow(clcolor); - устанавливает цвет фона.
Выполнение практических заданий;
Задание 1. Составьте программу, которая рисует кирпичный домик со стеклянным окном и черепичной крышей на фоне леса и сохраняет полученный рисунок в файле fon1.jpg, образцы для закраски стен, окна, крыши – из файлов kirpichi.jpg, steclo.jpg, ch,jpg.
uses crt, GraphABC;
Задание 2. Составьте программу, которая рисует пейзаж и сохраняет полученный рисунок в файле с именем Пейзаж.bmp. Цвет фона – голубой. Цвет пера для рисования – голубой. Образцы для закраски солнца, облака, травы – из файлов sun.jpg, cloug.jpg, grass,jpg. Координаты для рисования пейзажа представлены на рисунке.
Читайте также: