1 ответ
Мореходова
Юлия
uses graphaBC;
var x,y,y1,d,r1,r2:integer;
nbsp;nbsp;nbsp;nbsp;u:real;
nbsp;nbsp;nbsp;nbsp;p:array of point;
begin
d:=15; //ширна полосок
setwindowsize(52*d+80,26*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40; nbsp;//левый верхний угол
y:=40;
setpencolor(clWhite);//белоснежный цвет линий
setbrushcolor(clRed);//красная кисть
rectangle(x,y,x+52*d,y+26*d);//красноватое полотно
//белоснежные полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for var i:=1 to 6 do
nbsp;begin
nbsp;nbsp;rectangle(x,y1,x+52*d,y1+2*d);
nbsp;nbsp;y1:=y1+4*d;
nbsp;end;
//мрачно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+26*d,y+16*d);
//месяц
setpencolor(clYellow);
setbrushcolor(clYellow);
ellipse(x+6*d,y+2*d,x+17*d,y+14*d);
setbrushcolor(clNavy);
setpencolor(clNavy);
ellipse(x+8*d,y+3*d,x+18*d,y+13*d);
x:=x+18*d;
y:=y+8*d;
//звезда
setbrushcolor(clYellow);
r1:=2*d;
r2:=4*d;
u:=pi/2;
setlength(p,29);
for var i:=0 to 27 do
nbsp;begin
nbsp;nbsp;if not odd(i) then
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p[i].x:=x+round(r2*cos(u));
nbsp;nbsp;nbsp;nbsp;p[i].y:=y-round(r2*sin(u));
nbsp;nbsp;nbsp;end
nbsp;nbsp;else
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p[i].x:=x+round(r1*cos(u));
nbsp;nbsp;nbsp;nbsp;p[i].y:=y-round(r1*sin(u));
nbsp;nbsp;nbsp;end;
nbsp;nbsp;u:=u+pi/14;
nbsp;end;
p[28]:=p[0];
polygon(p);
end.
var x,y,y1,d,r1,r2:integer;
nbsp;nbsp;nbsp;nbsp;u:real;
nbsp;nbsp;nbsp;nbsp;p:array of point;
begin
d:=15; //ширна полосок
setwindowsize(52*d+80,26*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40; nbsp;//левый верхний угол
y:=40;
setpencolor(clWhite);//белоснежный цвет линий
setbrushcolor(clRed);//красная кисть
rectangle(x,y,x+52*d,y+26*d);//красноватое полотно
//белоснежные полосы
setbrushcolor(clWhite);
y1:=y+2*d;
for var i:=1 to 6 do
nbsp;begin
nbsp;nbsp;rectangle(x,y1,x+52*d,y1+2*d);
nbsp;nbsp;y1:=y1+4*d;
nbsp;end;
//мрачно-синий прямоугольник
setbrushcolor(clNavy);
setpencolor(clNavy);
rectangle(x,y,x+26*d,y+16*d);
//месяц
setpencolor(clYellow);
setbrushcolor(clYellow);
ellipse(x+6*d,y+2*d,x+17*d,y+14*d);
setbrushcolor(clNavy);
setpencolor(clNavy);
ellipse(x+8*d,y+3*d,x+18*d,y+13*d);
x:=x+18*d;
y:=y+8*d;
//звезда
setbrushcolor(clYellow);
r1:=2*d;
r2:=4*d;
u:=pi/2;
setlength(p,29);
for var i:=0 to 27 do
nbsp;begin
nbsp;nbsp;if not odd(i) then
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p[i].x:=x+round(r2*cos(u));
nbsp;nbsp;nbsp;nbsp;p[i].y:=y-round(r2*sin(u));
nbsp;nbsp;nbsp;end
nbsp;nbsp;else
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p[i].x:=x+round(r1*cos(u));
nbsp;nbsp;nbsp;nbsp;p[i].y:=y-round(r1*sin(u));
nbsp;nbsp;nbsp;end;
nbsp;nbsp;u:=u+pi/14;
nbsp;end;
p[28]:=p[0];
polygon(p);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов