Флаг Малайзии (программа Паскаль)

Постоянный пользователь нашего ресурса написал нам почту в 8:1 с просьбой предоставить развернутый ответ на его вопрос. Наши эксперты отнесли этот вопрос к разделу Разное. Для ответа был привлечен один из опытных специалистов, который занимается написанием студенческих работ.

Цитируем вопрос ваш вопрос

Разбор вопроса и ответ на него

Раздел 'ЕГЭ (школьный)', к которому был отнесён этот вопрос является не простой рубрикой. Для подготовки ответа на вопросы из этой рубрики специалист должен обладать широкими познаниями в различных научных областях. Однако в нашей компании таковые имеются.

Вы спрашивали:

Флаг Малайзии (программа Паскаль)

Конечно этот ответ может полностью не раскрыть тему вопроса, но мы постарались сделать его максимально полным. Предлагаем ознакомиться с мнением эксперта по этой теме:

uses graphaBC;
var x,y,y1,d,r1,r2:integer;
    u:real;
    p:array of point;
begin
d:=15; //ширна полосок
setwindowsize(52*d+80,26*d+80);
centerwindow;
clearwindow(clSkyblue); //голубой фон
x:=40; //левый верхний угол
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
begin
  rectangle(x,y1,x+52*d,y1+2*d);
  y1:=y1+4*d;
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
begin
  if not odd(i) then
   begin
    p[i].x:=x+round(r2*cos(u));
    p[i].y:=y-round(r2*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end;
  u:=u+pi/14;
end;
p[28]:=p[0];
polygon(p);
end.

К нам на почту приходит много вопросов. Мы стараемся отвечать на все. Однако вы должны понимать, что большая загруженность увеличивает время ответа. Сейчас среднее время ответа равно 14:2.