Ответьте на вопросы теста
uses GraphABC;
begin
...
end.
SetWindowSize(w, h);
Line(x1,y1,x2,y2) — отрезок, соединяющий точки с координатами (x1, y1) и (x2, y2).
MoveTo(x,y) — устанавливает текущую позицию рисования в точку (x, y);
LineTo(x,y) — отрезок от текущей позиции до точки (x, y);
Rectangle(x1,y1,x2,y2) — прямоугольник, заданный координатами противоположных вершин (x1, y1) и (x2, y2);
Circle(x1,y1,r) — круг с центром в точке (x1, y1) и радиусом r;
Ellipse(x1,y1,x2,y2) — овал (эллипс), вписанный в прямоугольник с координатами противоположных вершин (x1, y1) и (x2, y2).
FloodFill(x,y,c); — заливает ограниченную область одного цвета цветом c, начиная с точки внутри области (x,y)
TextOut(x,y,z); — выводит строку или число z в прямоугольник с координатами левого верхнего угла (x,y);
SetFontName('Comic Sans MS'); — выбор шрифта;
SetFontColor(clRed); — цвет шрифта;
SetFontSize(25); — размер шрифта;
SetFontStyle(fsBold); — стиль текста.
fsNormal — обычный;
fsBold — жирный;
fsItalic — наклонный;
fsUnderline — подчеркнутый;
fsBoldUnderline — жирный подчеркнутый.
uses GraphABC;
begin
//Круг
Circle(250, 125, 30);
//Прямоугольник
Rectangle(100,200,400,450);
//Эллипс
Ellipse(100,200,400,450);
//Отрезок
Line(450, 50, 550, 350);
end.
uses GraphABC;
begin
//Дом
SetPenColor(RGB(255,0,0));
SetBrushColor(clBlue);
Rectangle(100,200,400,450);
//Окно
SetBrushColor(clYellow);
Rectangle(200,250,300,350);
SetPenColor(clRed);
SetPenStyle(psDot);
SetPenWidth(2);
Line(250,250,250,350);
Line(200,300,300,300);
//Крыша
SetPenStyle(psSolid);
SetPenWidth(1);
Line(100, 200, 250, 0);
Line(250, 0, 400, 200);
SetBrushStyle(bsHatch);
SetBrushColor(clLightGreen);
SetBrushHatch(bhCross);
Circle(250, 125, 30);
FloodFill(250,70, clPlum);
end.
uses GraphABC;
begin
//Цвет фона для текста
SetBrushColor(clYellow);
SetFontName('Comic Sans MS');
//Цвет букв
SetFontColor(clBlue);
//Размер шрифта
SetFontSize(25);
//Полужирный шрифт
SetFontStyle(fsBold);
TextOut(20,30,'Здравствуй,');
SetBrushColor(clPink);
SetFontName('Monotype Corsiva');
SetFontColor(clSalmon);
SetFontSize(50);
SetFontStyle(fsUnderline);
TextOut(120,130,'МИР!');
//Прозрачный фон
SetBrushStyle(bsClear);
SetFontName('Tahoma');
SetFontColor(clViolet);
SetFontSize(20);
SetFontStyle(fsItalic);
TextOut(300,130,'PascalABC');
end.
1. Дополните программный код примера 14.8 для решения поставленных ниже задач.
1. Подпишите изображение, указав свои имя и фамилию. Разместите подпись в правом нижнем углу изображения, применив курсивный шрифт, измените цвет букв, фон для надписи - прозрачный.
До 6 баллов
2. Дополните результат каким-либо из предложенных изображений или придумайте свои.
+ до 10 баллов
2. Напишите программу для создания изображения. Раскрасьте полученное изображение по своему усмотрению.
Изображение рисуется в соответствии с указанными координатами.
До 8 баллов
3. Напишите программу для создания изображения. Раскрасьте полученное изображение по своему усмотрению.
Изображение рисуется в соответствии с указанными координатами.
До 10 баллов
4. Напишите программу для создания изображения. Раскрасьте полученное изображение по своему усмотрению.
Изображение рисуется в соответствии с указанными координатами.
До 10 баллов
Для тех, у кого не хватает знаний и навыков выполнить предложенные выше задания.
Запустите систему программирования PascalABC Net. Скопируйте в нее предложенный ниже программный код. Протестируйте программу.
До 2 баллов
Добавьте в в код программы представленные ниже комментарии, объясняющие действие команды строки. Для это скопируйте их и вставьте в соответствующей строке программного кода.
+ 2 балла
Подпишите изображение, добавив свои фамилию и имя над чертой изображения.
+ 2 балла
Код программы:
uses graphABC
begin
setWindowSize(600,240);
line(80,40 ; 500,40);
setPenWidth (5 ;
setPenColor(clBrown); setBrushColor(clYellow);
rectangle(40,80,200,160);
setPenColor(clRed); setBrushColor(clAquamarine);
circle(300,120,40);
setPenColor(clBlue); setBrushColor(clRed);
ellipse(400,80,540,160);
setFontSize(15); setFontStyle(fsBold);
setFontColor(clBrown); setBrushColor(clWhite);
textOut(120,180,'Графические примитивы');
end
Комментарии к программе
// эллипс
// толщина пера
// размеры окна
// вывод текста
// прямоугольник
// подключение модуля graphABC
// отрезок
// цвет пера и кисти
// круг
// размер и начертание шрифта