Otvety
.pdfprocedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var
Form1: TForm1; alf,x,y,a:integer; Implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject);
begin Canvas.MoveTo(150,150); Canvas.Pen.Color:=Form1.Brush.Color; Canvas.LineTo(150+x,150+y); Canvas.Pen.Color:=clblack; Canvas.MoveTo(150,150); x:=round(40*cos(alf*pi/180)); y:=round(40*sin(alf*pi/180)); Canvas.LineTo(150+x,150+y); alf:=alf-6; end;
procedure TForm1.FormPaint(Sender: TObject); begin
Canvas.Ellipse(100,100,200,200); Canvas.MoveTo(150,150); Canvas.LineTo(150+x,150+y); end;
procedure TForm1.FormCreate(Sender: TObject); begin
alf:=-90; x:=round(40*cos(alf*pi/180)); y:=round(40*sin(alf*pi/180)); end; end.
]
[Ярослав
uses crt,graphABC; var i,a,xs,ys:integer; begin
a:=0; i:=100; circle(150,150,50); while(i>=50) do begin
setpencolor(clblack); xs:=round(50*cos(a*pi/180)); ys:=round(50*sin(a*pi/180)); line(150,150,xs+150,ys+150); setpencolor(clwhite); readkey; circle(150,150,49); a:=a-1; end; end.
]
7.Компьютерная графика. Машинная графика. Проползанние змеи в виде синусоиды
[ Матвей unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TForm1 = class(TForm) Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private { Private declarations } public { Public declarations } end; var
Form1: TForm1; i,a,b:integer; Implementation {$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin a:=-40; b:=10; end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer; begin
Canvas.Pen.Color:=Form1.Brush.Color; Canvas.MoveTo(a-1,185); Canvas.LineTo(a-1,215);Canvas.Pen.Color:=clblack; Canvas.MoveTo(a,round(10*sin(2*pi/20*a))+200);
for i:=a to b do Canvas.LineTo(i,round(10*sin(2*pi/20*i))+200); inc(a); inc(b); end;
end. [форма(текст.) program Project2; uses
Forms,
Unit1 in 'Unit1.pas' {Form1}; {$R *.res}
Begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;
end.
]
[ Ярослав
uses crt,graphABC; var i,a,ys:integer; begin
a:=180;
i:=0;
line(0,150,1250,150); while(i<=1250) do begin setpencolor(clblack);
ys:=round(50*cos(a*pi/180));
circle(i,ys+150,3);
readkey;
i:=i+1; a:=a-1; end; end.]
8.Компьютерная графика. Написать программу прыжка мяча.
9.Компьютерная графика. Написать программу полета теннисного шарика по горизонтали.
10.Компьютерная графика. Задан файл записей с координатами отрезков, изображающих рисунок. Написать программу уменьшения размера этого рисунка в двое.
11.Компьютерная графика. Задан файл записей с координатами отрезков, изображающих рисунок на холсте 300х300. Написать программу поворота этого рисунка на 90 градусов.
12.Компьютерная графика. Нарисовать пятиэтажный дом.
13.Машинная графика. Написать изображение, используя векторную графику.
5
3
1
0 |
1 |
3 |
5 |
|
|
7 |
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Тип |
|
|
|
Х1 |
|
|
У1 |
|
Х2/R |
|
У2 |
толщина |
цвет |
|
цвет фона |
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
линии |
|
|
|
|
|
0 |
– холст |
|
|
|
0 |
|
0 |
100 |
100 |
|
|
|
|
Rgb(100,100,0) |
|
||||||
1 |
– точка |
|
|
|
10 |
|
10 |
|
|
|
|
4 |
Rgb(0,0,0) |
|
|
|
|
||||
2 |
– линия |
|
|
|
10 |
|
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
|
|
|
|
||||||
3 |
– прямоугольник |
|
|
10 |
|
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
|
Rgb(100,0,0) |
|
||||||||
4 |
– окружность |
|
|
10 |
|
10 |
50 |
|
|
4 |
Rgb(0,0,0) |
|
|
|
|
||||||
5 |
– круг |
|
|
|
10 |
|
10 |
50 |
|
|
4 |
Rgb(0,0,0) |
|
Rgb(100,0,0) |
|
||||||
|
14. Компьютерная графика. Написать изображение, используя векторную графику. |
||||||||||||||||||||
5 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
0 |
1 |
3 |
5 |
|
|
7 |
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Тип |
|
|
|
Х1 |
|
|
У1 |
|
Х2/R |
|
У2 |
толщина |
цвет |
|
цвет фона |
|
|||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
линии |
|
|
|
|
|
0 |
– холст |
|
|
|
0 |
|
0 |
100 |
100 |
|
|
|
|
Rgb(100,100,0) |
|
||||||
1 |
– точка |
|
|
|
10 |
|
10 |
|
|
|
|
4 |
Rgb(0,0,0) |
|
|
|
|
||||
2 |
– линия |
|
|
|
10 |
|
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
|
|
|
|
||||||
3 |
– прямоугольник |
|
|
10 |
|
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
|
Rgb(100,0,0) |
|
||||||||
4 |
– окружность |
|
|
10 |
|
10 |
50 |
|
|
4 |
Rgb(0,0,0) |
|
|
|
|
||||||
5 |
– круг |
|
|
|
10 |
|
10 |
50 |
|
|
4 |
Rgb(0,0,0) |
|
Rgb(100,0,0) |
|
||||||
|
15. Компьютерная графика. Примитивы имеют следующую векторную кодироку |
||||||||||||||||||||
тип |
|
|
|
Х1 |
|
|
У1 |
|
Х2/R |
|
У2 |
толщина |
|
цвет линии |
|
цвет фона |
|||||
0 |
– холст |
|
|
|
0 |
|
0 |
|
100 |
|
10 |
|
|
|
|
|
Rgb(100,100,0) |
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
0 |
|
|
|
|
|
|
|
1 |
– точка |
|
|
|
10 |
|
|
10 |
|
|
|
|
4 |
|
Rgb(0,0,0) |
|
|
|
|||
2 |
– линия |
|
|
|
10 |
|
|
10 |
|
50 |
|
50 |
4 |
|
Rgb(0,0,0) |
|
|
|
|||
3 |
– прямоугольник |
|
|
10 |
|
|
10 |
|
50 |
|
50 |
4 |
|
Rgb(0,0,0) |
|
Rgb(100,0,0) |
|||||
4 |
– окружность |
|
|
10 |
|
|
10 |
|
50 |
|
|
4 |
|
Rgb(0,0,0) |
|
|
|
||||
5 |
– круг |
|
|
|
10 |
|
|
10 |
|
50 |
|
|
4 |
|
Rgb(0,0,0) |
|
Rgb(100,0,0) |
Какой будет вид рисунка следующего векторного представления рисунка
0 |
0 |
0 |
100 |
100 |
|
|
Rgb(100,100,100) |
2 |
0 |
0 |
200 |
200 |
4 |
Rgb(0,0,0) |
|
3 |
0 |
50 |
300 |
150 |
0 |
Rgb(0,0,0) |
Rgb(100,0,0) |
4 |
50 |
50 |
30 |
|
5 |
Rgb(0,100,0) |
|
5 |
40 |
40 |
5 |
|
1 |
Rgb(0,0,0) |
Rgb(0,100,100) |
5 |
60 |
40 |
5 |
|
1 |
Rgb(0,0,0) |
Rgb(0,100,100) |
16. Как сделать в HTML таблицу красок (черный, серый, белый …)
Название |
Черный |
Серый |
Белый |
Синий |
Зелены |
Красны |
|
|
|
|
|
й |
й |
Цвет |
_________ |
██████ |
… |
|
|
|
Код |
000000 |
888888 |
FFFFFF |
… |
|
|
<!-- saved from url=(0047)file:///C:/Users/Madway/Desktop/new%20%202.html --> <html><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <meta charset="utf-8">
<title>Таблица цветов</title> </head>
<body>
<table border="1"> <caption>Таблица цветов</caption> <tbody><tr>
<th>Черный</th> <th>Серый</th> <th>Белый</th> <th>Синий</th>
<th>Зеленый</th> <th>Красный</th>
</tr>
<tr><td>000000</td>
<td>888888</td>
<td>FFFFFF</td>
<td>0000FF</td>
<td>00FF00</td>
<td>FF0000</td>
</tr>
<tr>
<td bgcolor="#000000"> . </td> <td bgcolor="#888888"> . </td> <td bgcolor="#FFFFFF"> . </td> <td bgcolor="#0000FF"> . </td> <td bgcolor="#00FF00"> . </td> <td bgcolor="#FF0000"> . </td> </tr>
</tbody></table>
</body></html>